السلام عليكم ورحمة الله تعالى وبركاته
لدي في الفورم 3 تكست بوكس اريد ان انتقل من التكست 1 ثم التكست 2 فالتكست 3 وذلك من خلال الضغط على مفتاح الانتر دون استعمال الماوس ...............................
.....وشكرا و صح صيامكم
السلام عليكم
- إستخدم حدث ال KeyDown لكل تكست بوكس ، كالتالي :
كود :
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
IF KeyCode = 13 Then
Text2.SetFocus
Exit Sub
End If
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
IF KeyCode = 13 Then
Text3.SetFocus
Exit Sub
End If
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
IF KeyCode = 13 Then
Text1.SetFocus
Exit Sub
End If
End Sub
- تحياتي .
السلام عليكم...
إذا كان النظام هو Win XP أو ما قبله فإن أسهل طريقة هي استعمال الجملة SendKeys في الحدث KeyDown لإرسال قيمة المفتاح Tab:
كود :
If KeyCode = vbKeyReturn Then SendKeys "{TAB}"
و لكن للأسف هذه الطريقة لا تعمل مع Win 7 لأسباب أمنية!!
نرجو الاستفادة و السلام.