تقييم الموضوع :
  • 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] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 31 أمس, 08:09 PM
آخر رد: عبدالله الدوسري
  [سؤال] بخصوص تشفير ملف txt Mohamed20 6 754 13-10-18, 05:43 PM
آخر رد: asemshahen5
  استفسار عن البحث في مجلد في جهاز أخر بالشبكة المحلية أبووسم 4 98 13-10-18, 04:35 AM
آخر رد: حريف برمجة
  [VB.NET] استفسار :- بخصوص DataGridViewCheckBoxColumn dubai.eig 0 46 12-10-18, 10:05 PM
آخر رد: dubai.eig
  بخصوص حماية البرنامج وتفعيله salah mansour 2 63 06-10-18, 11:31 PM
آخر رد: asemshahen5
  [VB.NET] استفسار :- Speech To Text تحويل الصوت الى حروف dubai.eig 1 86 05-10-18, 07:08 PM
آخر رد: alsouf
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 272 04-10-18, 10:22 PM
آخر رد: ay.alhaj
  [درس فيديو] أحب أن أسال أعضاء المنتدى سؤال بخصوص موضوع ( الشرح من خلال عمل فيديو صوت وصورة ) عبدالله الدوسري 21 568 03-10-18, 07:18 PM
آخر رد: larbihamri
  محتاج استفسار بخصوص اداة WebBrowser Mohamed Magdy 11 258 02-10-18, 12:38 AM
آخر رد: Mohamed Magdy
  [VB.NET] استفسار :- بخصوص التفريق بين الحروف الكبيره والصغيره dubai.eig 2 64 01-10-18, 10:08 AM
آخر رد: dubai.eig

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


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