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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حول ظهور النافذة الاولى عند الضغط على Menustrip2 في النافذة الثانية vb.net 2012 mh66 0 244 19-10-23, 09:05 AM
آخر رد: mh66
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,884 03-06-23, 04:56 AM
آخر رد: سعود
  هل يحدث هذا معكم ابو محمد محمد محمد 0 221 15-05-23, 12:20 AM
آخر رد: ابو محمد محمد محمد
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 1 1,108 29-09-22, 09:55 AM
آخر رد: mohamedassim
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,824 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
  السلام عليكم مشلكه عند الغاء التحديث الضغط علي no حدث CellEndEdit ahmedhhh2 1 791 11-02-22, 09:55 PM
آخر رد: ahmedhhh2
  أريد كود يعمل عمل لصق للنص Past عند الضغط علي زر بوتن ؟ DanyGhost2010 2 4,179 29-12-21, 10:56 AM
آخر رد: سعود
Heart [سؤال] المطلوب كود فيجوال VB لجعل TEXTBOX تساوي datagridview عند الضغط bilgacim 5 1,455 15-08-21, 12:15 AM
آخر رد: ابراهيم ايبو
  عرض معلومات DataGridView في فورم أخر عند الضغط على الاسم aldery 9 3,290 11-06-21, 06:23 PM
آخر رد: sayyad
  [سؤال] الضغط على زر حسن الجلب 3 1,092 15-05-21, 09:35 PM
آخر رد: ابو انس

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


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