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

                                           الكيبورد في الفيجوال بيزك

لإدراج أوامر متعلقة بأزرار من لوحة المفاتيح داخل برنامجك يمكنك استخدام الطرق التالية :

1- عند ضغط الزر ينفذ الأمر مرة واحدة وذلك بوضع الكود تحت keypress

for example :

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "ENTER"
End If
End Sub

فنضع كودا معينا يرمز للزر وستجد مع هذا الكتاب برنامجا يمكنك استخدامه لمعرفة أكواد جميع الأزرار بإذن الله

2- استمرار تكرار الأمر إذا استمر ضغط الزر

وذلك بوضع الكود تحت keydown

for example

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
MsgBox "hi"
End If
End Sub
 

3- تنفيذ الأمر عند تحرير الزر

وذلك بوضع الكود تحت keyup

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
MsgBox "hi"
End If
End Sub