تنفيذ كود من خلال KEY WORD

تستطيع ذلك أخي الكريم عن طريق كود مثل التالي:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF10 Then
        MsgBox "السلام عليكم"
    End If
End Sub

لاحظ أنك إن كنت تريد تنفيذ الكود في كل الأحوال عند الضغط على F10 حتى لو كنت في عنصر على النموذج فينبغي أن تعين الخاصية key Preview للنموذج إلى Yes. توجد هذه الخاصية في تبويب Event من تبويبات خصائص النموذج.

والله أعلم.

KeyboardFunctionButtons.rar

رحم الله والديك

الحل روعة 100 %