09-08-18, 06:53 PM
السلام عليكم ورحمة الله
استفسار :- بخصوص _KeyDown
قمت بالبحث في المنتدى وحصلت مواضيع كثيره بس ما حصلت شي بخصوص اللي اريده بالضبط
وهو كيف اضبط تشغيل زر
Ctrl + f1
الكود اللي عندي شغال تمام في الازره العاديه مثلا
f1
f2
f3
f4
شغال
بس اريد اضيف ال
Ctrl
بارك الله فيكم
هذا الكود الخاص بي
وشكرا لكم
استفسار :- بخصوص _KeyDown
قمت بالبحث في المنتدى وحصلت مواضيع كثيره بس ما حصلت شي بخصوص اللي اريده بالضبط
وهو كيف اضبط تشغيل زر
Ctrl + f1
الكود اللي عندي شغال تمام في الازره العاديه مثلا
f1
f2
f3
f4
شغال
بس اريد اضيف ال
Ctrl
بارك الله فيكم
هذا الكود الخاص بي
كود :
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
Dim KeyCode As Keys = e.KeyCode
Select Case KeyCode
Case Keys.Escape
Case Keys.F1
' F-1 Key
Btn1_OnLButtonClick(New Object, New EventArgs)
Case Keys.F2
' F-2 Key
Btn2_OnLButtonClick(New Object, New EventArgs)
Case Keys.F3
' F-3 Key
Btn3_OnLButtonClick(New Object, New EventArgs)
Case Keys.F4
' F-4 Key
Btn4_OnLButtonClick(New Object, New EventArgs)
Case Keys.F5
' F-5 Key
Btn5_OnLButtonClick(New Object, New EventArgs)
Case Keys.F6
' F-6 Key
Btn6_OnLButtonClick(New Object, New EventArgs)
Case Keys.F7
' F-7 Key
Btn7_OnLButtonClick(New Object, New EventArgs)
Case Keys.F8
' F-8 Key
Btn8_OnLButtonClick(New Object, New EventArgs)
Case Keys.F9
' F-9 Key
Btn9_OnLButtonClick(New Object, New EventArgs)
Case Keys.F13
' F-10 Key
Btn10_OnLButtonClick(New Object, New EventArgs)
Case Keys.F11
' F-11 Key
Btn11_OnLButtonClick(New Object, New EventArgs)
Case Keys.F12
Case Else
Exit Select
End Select
End Subوشكرا لكم
