تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عند الضغط على زر F11 يحدث امر :)
#1
Exclamation 
السلام عليكم اعرف اني عذبتكم بكثرة الاسئلة  Blush


واليوم بعذبكم زيادة  Rolleyes

امزح ...



كان لدي كود عندما اضغط على ESC يخرج من البرنامج
هل يوجد اخر عندما اضغط زر F11 يحدث امر او مسج بوكس Smile


انتظر الرد Smile
الرد
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
تفضل هذا الكود في حدث KeyDown هذه محموعة من المفاتيح
 بنفس الطريقة ضع المفتاح الذي تريد  وبدل اظهار رسالة ضع الكود الذي تريد تنفيذه
كود :
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

       If e.Alt Then
           MsgBox("Alt")
       ElseIf e.KeyCode = Keys.ShiftKey Then
           MsgBox("ShiftKey")
       ElseIf e.KeyCode = Keys.A Then
           MsgBox("A")
       ElseIf e.KeyCode = Keys.Cancel Then
           MsgBox("Cancel")
       ElseIf e.KeyCode = Keys.ControlKey Then
           MsgBox("Control")
       ElseIf e.KeyCode = Keys.Enter Then
           MsgBox("Enter")
       ElseIf e.KeyCode = Keys.Escape Then
           MsgBox("Escape")
       ElseIf e.KeyCode = Keys.F1 Then
           MsgBox("F1")
       ElseIf e.KeyCode = Keys.F11 Then
           MsgBox("hELLO")
       ElseIf e.KeyCode = Keys.Space Then
           MsgBox("Space")
       ElseIf e.KeyCode = Keys.Back Then
           MsgBox("BackSpace")
       End If

   End Sub

الرد
تم الشكر بواسطة: Rabeea Qbaha , SnTnt , ابو روضة , asemshahen5 , mohamedahmed1
#3
Exclamation 
(14-09-19, 03:52 AM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
تفضل هذا الكود في حدث KeyDown هذه محموعة من المفاتيح
 بنفس الطريقة ضع المفتاح الذي تريد  وبدل اظهار رسالة ضع الكود الذي تريد تنفيذه
كود :
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

       If e.Alt Then
           MsgBox("Alt")
       ElseIf e.KeyCode = Keys.ShiftKey Then
           MsgBox("ShiftKey")
       ElseIf e.KeyCode = Keys.A Then
           MsgBox("A")
       ElseIf e.KeyCode = Keys.Cancel Then
           MsgBox("Cancel")
       ElseIf e.KeyCode = Keys.ControlKey Then
           MsgBox("Control")
       ElseIf e.KeyCode = Keys.Enter Then
           MsgBox("Enter")
       ElseIf e.KeyCode = Keys.Escape Then
           MsgBox("Escape")
       ElseIf e.KeyCode = Keys.F1 Then
           MsgBox("F1")
       ElseIf e.KeyCode = Keys.F11 Then
           MsgBox("hELLO")
       ElseIf e.KeyCode = Keys.Space Then
           MsgBox("Space")
       ElseIf e.KeyCode = Keys.Back Then
           MsgBox("BackSpace")
       End If

   End Sub

جار التجربة Smile
الرد
تم الشكر بواسطة: Rabeea Qbaha , asemshahen5
#4
PHP كود :
   Private Sub TextBox1_KeyDown(sender As ObjectAs KeyEventArgsHandles TextBox1.KeyDown
        If e
.KeyCode Keys.F11 Then
            MsgBox
("F11 key pressd ")
 
       End If
 
   End Sub 

PHP كود :
Public Sub FuncKeysModule(ByVal value As Keys)
 
       'Check what function key is in a pressed state, and then perform the corresponding action.
        Select Case value
            Case Keys.F1
                '
Add the code for the function key F1 here.
 
               MessageBox.Show("F1 pressed")
 
           Case Keys.F2
                
'Add the code for the function key F2 here.
                MessageBox.Show("F2 pressed")
            Case Keys.F3
                '
Add the code for the function key F3 here.
 
               MessageBox.Show("F3 pressed")
 
           Case Keys.F4
                
'Add the code for the function key F4 here.
                MessageBox.Show("F4 pressed")
            Case Keys.F5
                '
Add the code for the function key F5 here.
 
               MessageBox.Show("F5 pressed")
 
           Case Keys.F6
                
'Add the code for the function key F6 here.
                MessageBox.Show("F6 pressed")
            Case Keys.F7
                '
Add the code for the function key F7 here.
 
               MessageBox.Show("F7 pressed")
 
           Case Keys.F8
                
'Add the code for the function key F8 here.
                MessageBox.Show("F8 pressed")
            Case Keys.F9
                '
Add the code for the function key F9 here.
 
               MessageBox.Show("F9 pressed")
 
           Case Keys.F10
                
'Add the code for the function key F10 here.
                MessageBox.Show("F10 pressed")
            Case Keys.F11
                '
Add the code for the function key F11 here.
 
               MessageBox.Show("F11 pressed")
 
           Case Keys.F12
                
'Add the code for the key F12 here
                MessageBox.Show("F12 pressed")
            Case Keys.Enter
                MessageBox.Show("Enter pressed")
        End Select
    End Sub

 
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyValue = Keys.F1 Or Keys.F2 Or Keys.F3 Or Keys.F4 Or Keys.F5 Or Keys.F6 Or Keys.F7 Or Keys.F8 Or Keys.F9 Or Keys.F10 Or Keys.F11 Or Keys.F12 Or Keys.Enter Then
            FuncKeysModule(e.KeyValue)
            e.Handled = True
        End If
    End Sub 
الرد
#5
لقد ضغطت على الزر ولام يحدث شئ
اعتقد انني نسيت تفعيل احدى الخيارات في الفورم
هل هاذا صحيح ؟
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#6
اخي بدل TextBox1_KeyDown
ليكن الحدث لـ Form1_KeyDown
الرد
تم الشكر بواسطة: Rabeea Qbaha , asemshahen5 , mohamedahmed1
#7
لا اعلم لماذا لا يعمل معي
لقد استخدمت الكود هاذا قبل فترة مع حرف Esc
وكان يعمل جيدا
الان لا يعمل ؟

سأجرب تعديل الاكواد الخاصة في البرنامج

ان هاذا الكود
كود :
If My.Computer.Keyboard.ShiftKeyDown Then
           MsgBox("ShiftKey")
       End If
لاكنه فقط يقبل بعض الحروف 

هل من حل ؟ 

#################################################
حسنا

لقد تم حل المشكلة 

شكرا الان يعمل وبكل جدارا

شكرا لكم كلكم 


ابراهيم ايبو

Rabeea Qbaha
الرد
تم الشكر بواسطة: Rabeea Qbaha , ابراهيم ايبو , asemshahen5 , mohamedahmed1
#8
في الحقيقة جهازي لا يقبل مفاتيح الـ F جميعها لا ادري اذا كان السبب هو الـ virtual machine ام ماذا 
لكن الكود يعمل مع المفاتيح الاخرى.

انا سعيد انك وجدت الحل .... تحياتي
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , SnTnt , mohamedahmed1
#9
(14-09-19, 04:38 AM)Rabeea Qbaha كتب : في الحقيقة جهازي لا يقبل مفاتيح الـ F جميعها لا ادري اذا كان السبب هو الـ virtual machine ام ماذا 
لكن الكود يعمل مع المفاتيح الاخرى.

انا سعيد انك وجدت الحل .... تحياتي

شكرا لك على الرد الجميل
لقد قمتم بمساعدتي
الان اكملت نسبة %28 من مشروعي Smile
Smile الان انتهيت من اضافة بعض الخواص وهاذا كله 
من فضل الله ثم انتم الذين ساعدتموني 
اذا لم تأتو فسأكون عالق في هاذه المشكلة 
شكرا Smile
الرد
تم الشكر بواسطة: Rabeea Qbaha , asemshahen5 , mohamedahmed1


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] عرض الصور في الليست فيو و إجراء البحث من خلال الضغط على الصورة المعروضة larbihamri 6 221 22-08-19, 10:57 PM
آخر رد: ابراهيم ايبو
  كيف يمكنني الضغط علي زر دااخل صفحة موجود داخل Class dametucorazon 3 138 11-08-19, 02:17 AM
آخر رد: dametucorazon
  مشكلة بالكرستال ريبورت عن الضغط على زر طباعة مختار2 1 134 27-07-19, 12:53 AM
آخر رد: خالد كامل1
  [سؤال] اخواني اريد عند الضغط علي الزر يظهر هذا ال نص داخل textbox1 XCoder 3 192 05-07-19, 09:26 PM
آخر رد: XCoder
  [VB.NET] الغاء حدث الضغط علي راس الاعمدة محمد اسماعيل 4 288 18-05-19, 11:16 PM
آخر رد: محمد اسماعيل
  [ تم الحل ] خطأ عند الضغط على الداتاجريد محمد خيري 5 255 12-04-19, 02:21 AM
آخر رد: elgokr
  [VB.NET] عرض بيانات سجل على نموذج عند الضغط مرتين على DataGridView keno0177 8 353 09-04-19, 02:20 AM
آخر رد: elgokr
  لماذا يحدث مشكلة عند فتح الفورم ShowDialog new_programer 7 444 13-01-19, 10:20 PM
آخر رد: أسامة السالمي
  مشكلة عند الضغط على زر التخزين nooralcown 1 274 10-12-18, 03:10 PM
آخر رد: elgokr
  عند الضغط Next يتم تجاوز صف Hazem1 3 314 10-12-18, 03:02 PM
آخر رد: elgokr

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


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