اريد ان انتقل من مربع نص لآخر عن طريق المفتاح Enter ارجو الافادة من فضلكم
ارسال مفتاح Enter الى برنامجى
مغلق
هذا هو الكود
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End Sub

اقتباسPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii=0 ' to disable beep
sendKeys "{tab}"
End IF
End Sub
لكم منى جزيل الشكر وجزاكم الله خير
هذا الموضوع مغلق.