[سعود]

لا طبعا لا اقصد هذا لان حسب علمي انك وجدت كود طويل يحول زر انتر الى زر تاب.
اللي اريده منك الان تسوي مثال بسيط وتكتب كود تحقق ابسط.
لازم مثال جديد مستقل ولو اعجبتك الطريقة تطبقها على مثالك وان لم تعجبك انساها.
ملاحظة!
ترى اللي تريده طبقتها عدة مرات وماشية معي تمام


اول مربع نص اسمه tn والباقي على التوالي:
Textbox1
Textbox2

استخدمت حدثين :
1-LostFocus
2-KeyDown

وسواء نقرت بزر الادخال Enter ام نقرت زر Tab

وهذا هو الكلاس

كود :

Public Class Form1

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.m = Me.Location
        My.Settings.Save()
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.m
        tn.Focus()
    End Sub

    Private Sub tn_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles tn.KeyDown
        If e.KeyData = Keys.Enter Then
            If sender.text = "" Then
                sender.focus()
            Else
                TextBox1.Focus()
            End If

        End If

    End Sub

    Private Sub tn_LostFocus(sender As Object, e As System.EventArgs) Handles tn.LostFocus
        If sender.text = "" Then
            sender.focus()
        End If
    End Sub

    

    Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyData = Keys.Enter Then
            If tn.Text.Trim.Replace(" ", "") = "" Then Exit Sub 'Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub
            If sender.text = "" Then
                sender.focus()
            Else
                TextBox2.Focus()
            End If

        End If


    End Sub

    Private Sub TextBox1_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox1.LostFocus
        If tn.Text.Trim.Replace(" ", "") = "" Then Exit Sub
        If sender.text = "" Then
            sender.focus()
        End If

    End Sub

  

    Private Sub TextBox2_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyData = Keys.Enter Then
            If tn.Text.Trim.Replace(" ", "") = "" Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub
            If sender.text = "" Then
                sender.focus()
            End If

        End If


    End Sub

    Private Sub TextBox2_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox2.LostFocus
        If tn.Text.Trim.Replace(" ", "") = "" Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub
        If sender.text = "" Then
            sender.focus()
        End If

    End Sub

  
End Class