[علاء الدين]

طريقة أستخدام زر Enter للتنقل بين TextBox ...


بسم الله الرحمن الرحيم ...

===================

قم بتشغيل الفيجوال بيسيك .. ثم أختر منه من مربع الحوار Standard EXE وبعد ذلك

قم بأضافة التالي على الفورم


1-Text1
2-Text2
3-Text3
4-Text4
5-Text5

الأن سوف نقوم باضافة أوامر البرمجة ....

ضع هذا الكود في التصريحات جنرال في أعلى صفحة الكود .. طبعا الكود راح يترتب على التوالي ..


========


كود:

Private Declare Function LoadKeyboardLayout Lib "user32" Alias _
"LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal _
flags As Long) As Long


Private Sub Text1_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
Dim t As Integer
t = KeyAscii

If t = 8 Then Exit Sub
If (t < 48 Or t > 57) Then KeyAscii = 0
End Sub

Private Sub Text2_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text3.SetFocus
End Sub

Private Sub Text3_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text4.SetFocus
End Sub

Private Sub Text4_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text5.SetFocus
End Sub

Private Sub Text5_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim t As Integer
t = KeyAscii
End If

End Sub


==========================

وبس ... طبعا هذه الأكواد خاصة للكي برس KeyPress وخصوصا بالزر أنتر ... وفي هذا
الكود مناداة LoadKeyboardLayout للكتابة بالعربي .. على طول بدون تحويل .. أتوقع الكل فاهم .. وهذا لا يحتاج إإلى شرح ..

منقول