بسم الله الرحمن الرحيم
الكيبورد في الفيجوال بيزك
لإدراج أوامر متعلقة بأزرار من لوحة المفاتيح داخل برنامجك يمكنك استخدام الطرق التالية :
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