حريف برمجة كتب :

كود :

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        If Len(TextBox1.Text) > 10 Then
            TextBox2.Focus()
        End If
    End Sub

إقتباس :Public Class Form1
Dim x As Boolean
rivate Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.Control = True Then
If e.KeyValue = 86 Then
x = True
End If
End If
End Sub


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Len(TextBox1.Text) >= 11 Then
If x = True Then


xxx:
TextBox1.SelectionStart = 10
TextBox1.SelectionLength = Len(TextBox1.Text) - 10
TextBox1.Cut()
TextBox2.Paste()
Else
If Len(TextBox1.Text) = 11 Then
TextBox2.Focus()
Else
GoTo xxx
End If
End If
End If
x = False
End Sub


End Class