تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استفسار toe 2 56 26-03-24, 08:13 PM
آخر رد: mrfenix93
  استفسار هام جدا سلام و محبه2090 1 139 17-02-24, 08:26 PM
آخر رد: عبدالله الدوسري
  [نقاش] بخصوص خصم مبلغ الضريبة من السعر h2551996 6 275 24-01-24, 06:17 PM
آخر رد: Taha Okla
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 311 30-11-23, 04:44 PM
آخر رد: Taha Okla
  [سؤال] استفسار ahmed_king2023 2 387 02-11-23, 01:13 PM
آخر رد: ahmed_king2023
  [VB.NET] استفسار dsa 1 258 09-10-23, 01:20 PM
آخر رد: Ahmed5
Video استفسار حول استعلام في SQL devpos 2 252 27-09-23, 04:25 PM
آخر رد: devpos
  تعبئة الكمبوبوكس دون الارتباط بالجدول .. استفسار عاجل Ali_hassn 0 242 24-09-23, 10:50 PM
آخر رد: Ali_hassn

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


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