23-11-13, 06:21 PM
السلام عليكم
اخي لم اتكلم عن حجم الحروف هذا ما وضعته انت في البداية
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Call SendKeys("{Tab}")
End If
End Sub
وكابه به خطأ وانا حاولت اصحح هذا الخطأ
هذا من جانب
من جانب آخر
بالنسبة لاستخدم مفتاح انتر ليعمل كمفتاح تاب
Enter Key wors like Tabe key
لا يعمل الا في الحدث KeyPress
مثال ذلك
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If
End Sub
بالتوفيق للجميع
اخي لم اتكلم عن حجم الحروف هذا ما وضعته انت في البداية
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Call SendKeys("{Tab}")
End If
End Sub
وكابه به خطأ وانا حاولت اصحح هذا الخطأ
هذا من جانب
من جانب آخر
بالنسبة لاستخدم مفتاح انتر ليعمل كمفتاح تاب
Enter Key wors like Tabe key
لا يعمل الا في الحدث KeyPress
مثال ذلك
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If
End Sub
بالتوفيق للجميع
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات


