[محمود اكرم]

اخ boty
السلام عليكم
هذه الطريقة ابسط واسهل للاعضاء المبتدئين وهذا هو الكود
علما بان حدث التركيز يعمل على طريقة التحديد بالماوس او تاب

إقتباس :Public Class Form1
Dim X As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If X = 1 Then
TextBox1.Text &= "1"
End If
If X = 2 Then
TextBox2.Text &= "1"
End If
End Sub




Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If X = 1 Then
TextBox1.Text &= "2"
End If
If X = 2 Then
TextBox2.Text &= "2"
End If
End Sub


Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
X = 1
End Sub


Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
X = 2
End Sub


End Class