تقييم الموضوع :
  • 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] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 171 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  [VB.NET] استفسار بخصوص تحريك الماوس والضغط dubai.eig 0 60 08-02-19, 06:42 PM
آخر رد: dubai.eig
  مساعدة بخصوص امر show سمير جمال 3 108 07-02-19, 03:53 AM
آخر رد: حريف برمجة
  [VB.NET] استفسار :- بخصوص ALTER TABLE dubai.eig 1 73 01-02-19, 04:22 PM
آخر رد: asemshahen5
  [VB.NET] استفسار :- بخصوص New Point form Top dubai.eig 1 92 29-01-19, 05:50 PM
آخر رد: ابراهيم ايبو
  مساعدة بخصوص الارقام في Textbox Adata 2 136 25-01-19, 02:35 AM
آخر رد: ابراهيم ايبو
  سؤال بخصوص تشيك ليست بوكس نور الهدى الهدى 3 139 22-01-19, 07:51 AM
آخر رد: حريف برمجة
  مساعده بخصوص تقرير report viewer ahmed.max1 3 103 22-01-19, 12:43 AM
آخر رد: elgokr
  [VB.NET] استفسار :- كيفية قراءة معلومات UDP dubai.eig 0 105 21-01-19, 06:49 PM
آخر رد: dubai.eig
Bug [VB.NET] استفسار لأفضل طريقة لتخزين رقم الفاتورة sniperjawadino 8 339 16-01-19, 12:37 AM
آخر رد: sniperjawadino

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


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