تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- بخصوص _KeyDown
#1
السلام عليكم ورحمة الله

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


وشكرا لكم
الرد
تم الشكر بواسطة:
#2
فقط قم باضافة للجزء 
كود :
Select Case KeyCode

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: Finish , Finish , dubai.eig , dubai.eig , princelovelorn
#3
استخدم KeyData وليس KeyCode في الحدث KeyDown
PHP كود :
If e.KeyData = (Keys.Control Keys.F1Then
    MsgBox
("Ctrl + F1")
End If 
الرد
تم الشكر بواسطة: elgokr , dubai.eig , dubai.eig , princelovelorn
#4
(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.F1Then
    MsgBox
("Ctrl + F1")
End If 

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

شكرا  Rolleyes

الرد
تم الشكر بواسطة:
#5
الشكر لله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] بخصوص مشكلة بتنفيذ كود sdk البصمة ssayed111 4 803 22-05-19, 08:34 AM
آخر رد: محمد محمود أحمد الغرياني
  [VB.NET] استفسار بسيط اسامه الهرماوي 3 85 05-05-19, 07:26 PM
آخر رد: asemshahen5
  [سؤال] بخصوص SQL Database DK-x 4 138 04-05-19, 04:44 PM
آخر رد: asemshahen5
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 91 27-04-19, 10:32 PM
آخر رد: saoud2
  [VB.NET] سؤال بخصوص فتح الشاشات khalid475 3 101 25-04-19, 09:18 PM
آخر رد: elgokr
Heart استفسار حول treeview احمد كبه 3 114 25-04-19, 06:44 PM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص datetimepicker في الداتا جريد فيو jassim316 7 168 25-04-19, 09:28 AM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص client server dubai.eig 3 102 23-04-19, 11:40 AM
آخر رد: elgokr
  [VB.NET] سوال بخصوص اداه JbsaPrintDataGridView.dll للطباعه jassim316 3 89 21-04-19, 12:53 PM
آخر رد: elgokr
  [VB.NET] مساعدة بخصوص برنامج مبيعات hodanet 4 154 20-04-19, 12:16 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم