[dubai.eig]

السلام عليكم ورحمة الله

استفسار :-  بخصوص _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

وشكرا لكم