تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنفيذ اوامر عن طريق الضغط علي مفتاح f1 مثلا
#1
السادة الزملاء
غاب عن ذهني وبحتت عنه لم اتذكر اين هو بالمنتدي
كيفية تنفيذ اوامر عن طريق الضغط علي مفتاح f1 مثلا
مع ضبط خاصية معينه للفورم
انا اسف لتعبكم معي
شكرا
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F1 Then
            MsgBox("F1")
        End If
    End Sub
الرد }}}}
تم الشكر بواسطة: kafi2030 , الشاكي لله
#3
شكرا لاهتمامك
الرد }}}}
تم الشكر بواسطة: سعود
#4
السلام عليكم

اخي 3booody

تم انشاء مثال بسيط للغاية، وتم وضع الكود بداخله
وعند الضغط على زر F1

لم تظهر الرسالة

مما يدل على ان الكود لايعمل


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة: سعود
#5
السلام عليكم...

تحتاج إلى ضبط الخاصية KeyPreview للـ Form على True.

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: 3booody , kafi2030 , سعود
#6
اخي ... في بعض الاجهزة ..... لاتعمل مفاتيح F

لذلك استبدلها بمفاتيح ... مثل ( Esc - Enter - Right - او الحروف ... الخ )

تجربة لمفتاح Esc

PHP كود :
If e.KeyCode Keys.Escape Then
            MessageBox
.Show("hi")
        
End If 
الرد }}}}
تم الشكر بواسطة: kafi2030 , سعود
#7
(30-10-13, 01:36 AM)kafi2030 كتب : السلام عليكم

اخي 3booody

تم انشاء مثال بسيط للغاية، وتم وضع الكود بداخله
وعند الضغط على زر F1

لم تظهر الرسالة

مما يدل على ان الكود لايعمل

كما قال الاستاذ ناجي ابراهيم الخاصية KeyPreview والسبب
لايتم اقتناص حدث Form1_KeyDown اذا كان التركيز على اداة ثانية غير الفورم وبتغير هذا الخاصية يتم اقتناصه بغض النظر عن التركيز
الرد }}}}
تم الشكر بواسطة: kafi2030 , سعود
#8
شكرا اخوتي الكرام
على التوضيح

وضعت زر اغلاق على النموذج، وموجود به كود معين

حاولت عند الضغط على زر Esc ان يتم تنفيذ احداث الكود المتعلقة بزر الاغلاق

وكتبت
كود :
If e.KeyCode = Keys.Escape Then
            Call btn_Close_Click()
        End If

الا ان هناك رسالة خطأ ظهرت

ارجو التصويب


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة: سعود
#9
السبب لايمكنك استدعاء الطريقة الا بأرسال قيمتين

كود :
ByVal sender As System.Object, ByVal e As System.EventArgs

الحل اذا كنت تريده بنفس الزر

كود :
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Call Button1_Click(New Object, New EventArgs)
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

او بعمل طريقة وحدها بدون قيم

كود :
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Call CloseMe()
        End If
    End Sub

    Private Sub CloseMe()
        Me.Close()
    End Sub
الرد }}}}
تم الشكر بواسطة: mohammed moh , kafi2030 , سعود , الشاكي لله
#10
(30-10-13, 06:01 PM)3booody كتب : السبب لايمكنك استدعاء الطريقة الا بأرسال قيمتين

كود :
ByVal sender As System.Object, ByVal e As System.EventArgs

الحل اذا كنت تريده بنفس الزر

كود :
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Call Button1_Click(New Object, New EventArgs)
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

او بعمل طريقة وحدها بدون قيم

كود :
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Call CloseMe()
        End If
    End Sub

    Private Sub CloseMe()
        Me.Close()
    End Sub



او

PHP كود :
Private Sub Form1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles Me.KeyDown
        
If e.KeyCode Keys.Escape Then
            Button1
.PerformClick()
        
End If
    
End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Me
.Close()
    
End Sub 

Cool
الرد }}}}
تم الشكر بواسطة: 3booody , kafi2030 , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ظهور البرنامج عند الضغط على رابط ابو روضة 4 85 14-10-17, 10:55 PM
آخر رد: ابو روضة
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 6 900 11-10-17, 08:48 PM
آخر رد: رمضان محمد
  [سؤال] الضغط على Enter ابو روضة 5 110 05-10-17, 09:13 PM
آخر رد: a.ahmed
  تسجيل دخول موقع عن طريق Httprequest pos . للخبراء فقط kingofring 5 150 05-10-17, 01:39 AM
آخر رد: kingofring
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 52 04-10-17, 11:34 PM
آخر رد: ahmed kamal
  [سؤال] طريقة حذف مفتاح من الريجستري سعود الشامان 7 139 04-10-17, 06:19 PM
آخر رد: سعود الشامان
  [VB.NET] اخذ نسخة احتياطية عن طريق المشروع محمد بوقزاحة 4 109 27-09-17, 10:48 AM
آخر رد: محمد بوقزاحة
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 2 84 23-09-17, 10:56 AM
آخر رد: aliday03
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 55 08-09-17, 04:02 PM
آخر رد: Amjad
  [سؤال] كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس alims 8 168 04-09-17, 11:27 PM
آخر رد: alims

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


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