01-06-19, 05:03 AM
إضافة لما اقترحه أستاذنا العزيز " سعود " بارك الله فيه و له .. يمكن كذلك ..
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
TextBox3.Text = Format(Val(TextBox3.Text), "00.00")
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
TextBox3.Text = Format(Val(TextBox3.Text), "00.00")
End Subتحياتي
قناتنا على اليوتوب
