منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار :- بخصوص _KeyDown - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار :- بخصوص _KeyDown (/showthread.php?tid=26050)

استفسار :- بخصوص _KeyDown - dubai.eig - 09-08-18

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

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


وشكرا لكم

RE: استفسار :- بخصوص _KeyDown - elgokr - 09-08-18

فقط قم باضافة للجزء 
كود :
Select Case KeyCode

السطر التالى
كود :
Case Keys.ControlKey

تحياتى لك
وتمنياتى لك التوفيق


RE: استفسار :- بخصوص _KeyDown - Finish - 09-08-18

استخدم KeyData وليس KeyCode في الحدث KeyDown
PHP كود :
If e.KeyData = (Keys.Control + Keys.F1) Then
    MsgBox("Ctrl + F1")
End If 


RE: استفسار :- بخصوص _KeyDown - dubai.eig - 09-08-18

(09-08-18, 07:00 PM)elgokr كتب : فقط قم باضافة للجزء 
كود :
Select Case KeyCode

السطر التالى
كود :
Case Keys.ControlKey

تحياتى لك
وتمنياتى لك التوفيق

بارك الله فيك على الرد

تشكر استاذي الكريم Rolleyes
(09-08-18, 07:13 PM)Finish كتب : استخدم KeyData وليس KeyCode في الحدث KeyDown
PHP كود :
If e.KeyData = (Keys.Control + Keys.F1) Then
    MsgBox("Ctrl + F1")
End If 

بارك الله فيك
تسلم على الرد والحمدالله المشاركتين افادوني وتعلمت شي جديد

شكرا  Rolleyes


RE: استفسار :- بخصوص _KeyDown - elgokr - 09-08-18

الشكر لله

تحياتى لك
وتمنياتى لك التوفيق