تنفيذ كود معين عند الضغط علي مفتاح F1

'F أرقام مفاتيح الـ

' f1 >>>>>>>> 112

' f2 >>>>>>>> 113

' f3 >>>>>>>> 114

' f4 >>>>>>>> 115

' f5 >>>>>>>> 116

' f6 >>>>>>>> 117

' f7 >>>>>>>> 118

' f8 >>>>>>>> 119

' f9 >>>>>>>> 120

' f10 >>>>>>>> 121

' f11 >>>>>>>> 122

' f12 >>>>>>>> 123

Private Sub Command1_Click()

'ضع كود الحفظ هنا

MsgBox "تم الحفظ"

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = 112 Then 'مفتاح f1

Command1_Click

End If

End Sub

ممكن توضح اكتر اخي العزيز

وشكراً

السلام عليكم

لتنفيذ كود بالضغط علي الـ F

هذا هو الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Rem === F1 ===

If KeyCode = 112 Then

frmCustomerSerch.Show

End If

' Rem === F5 ===

If KeyCode = 116 Then

frmCustomerSerch.Show

End If

End Sub

وشكراً