08-03-19, 09:03 PM
السلام عليكم ورحمة الله وبركاته اخي الكريم
تفضل هذه الاكواد
تفضل هذه الاكواد
كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Length = 2 Then
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text.Length = 2 Then
TextBox3.Focus()
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End If
End Subاعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
