[kum2002]

عندما يكون عندنا اكثر من textbox
نتنقل من بينهم
اريد كود يجعلني انتقل من textbox لاخر عن طريق ضغط enter
فمثلا حينما اشغل البرنامج
اكتب في الخانة الاولى اضغط enter مباشرة المؤشر ينتقل للtextbox الثاني وهكذا


شاكر لكم تعاونكم :

[vbnet]

.....

منقول

كود :

Private Sub Form_Load()
    ' يمكن الإستغناء عن هذا السطر بضبط هذه الخاصية عن طريق خصائص الفورم
    Me.KeyPreview = True
    
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        Dim i As Long: For i = Me.Count - 1 To 0 Step -1
            If Me.Controls(i).Name = Me.ActiveControl.Name And TypeName(Me.Controls(i - 1)) = "TextBox" Then
                Me.Controls(i - 1).SetFocus
                Exit For
            End If
        Next i
    End If
End Sub

.....

[kum2002]

تسلم اخوي

[king2512010]

جزاك الله كل الخير اخى

فى ميزان حسناتك ان شاء الله

....