تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنفيذ اوامر عن طريق الضغط علي مفتاح f1 مثلا
#1
السادة الزملاء
غاب عن ذهني وبحتت عنه لم اتذكر اين هو بالمنتدي
كيفية تنفيذ اوامر عن طريق الضغط علي مفتاح f1 مثلا
مع ضبط خاصية معينه للفورم
انا اسف لتعبكم معي
شكرا
الرد
تم الشكر بواسطة: Mohamed371
#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 , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة اضافة اعلان مثلا بانر Mohamed Magdy 3 119 02-01-19, 04:11 PM
آخر رد: أبووسم
Exclamation [كود] احتاج كود لحفظ التغيرات اللتي بالفورم عن طريق الريجستري YousefOkasha 3 432 01-01-19, 01:12 AM
آخر رد: YousefOkasha
  [VB.NET] سؤال عن حفظ ملف معد بـ FileStream عن طريق SaveFileDialog عماد البشبيشى 0 62 23-12-18, 01:17 AM
آخر رد: عماد البشبيشى
  مشكلة عند الضغط على زر التخزين nooralcown 1 75 10-12-18, 03:10 PM
آخر رد: elgokr
  عند الضغط Next يتم تجاوز صف Hazem1 3 104 10-12-18, 03:02 PM
آخر رد: elgokr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 132 08-12-18, 08:36 PM
آخر رد: masry4u
Heart سؤال عن حساب السن (العمر) عن طريق تاريخ الميلاد ahmadpal 10 244 07-12-18, 04:52 PM
آخر رد: ahmadpal
  التعامل مع برنامج الإكسل عن طريق الفيجول ستوديو +yassen+ 4 147 22-11-18, 06:17 PM
آخر رد: +yassen+
  مطلوب كود : تاكيد هوية شخص ما عن طريق الصوت pablon_pc 3 140 18-11-18, 12:57 PM
آخر رد: pablon_pc
Exclamation [VB.NET] كيف يمكنني أن أعرف هل تم الضغط على زر نجمة * sniperjawadino 4 222 07-11-18, 07:13 PM
آخر رد: sniperjawadino

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


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