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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب كود : تاكيد هوية شخص ما عن طريق الصوت pablon_pc 2 21 منذ 53 دقيقة مضت
آخر رد: dasktop
Exclamation [VB.NET] كيف يمكنني أن أعرف هل تم الضغط على زر نجمة * sniperjawadino 5 155 07-11-18, 07:13 PM
آخر رد: sniperjawadino
  [سؤال] مشكلة في اظهار صورة عن طريق path Simo1991 4 92 06-11-18, 05:52 PM
آخر رد: Simo1991
  الرجاء المساعدة في كتابة كود اتصال عن طريق السيريال بورت moftah70 3 98 06-11-18, 03:20 PM
آخر رد: moftah70
  الإتصال بقواعد البيانات من نوع أكسس عن طريق الكلاس sads 11 373 25-10-18, 10:36 PM
آخر رد: sads
  [VB.NET] فلتر الداتا قريد فيو عن طريق لون الخلية larbihamri 2 96 24-10-18, 06:20 PM
آخر رد: larbihamri
  كيفية فتح صفحة انترنت عن طريق الضغط علي اسم الموقع hamadz 4 120 22-10-18, 10:35 PM
آخر رد: fouadhdfouad
Star التحكم في الحاسوب عن طريق الأوامر الصوتية YousefOkasha 0 61 21-10-18, 11:22 PM
آخر رد: YousefOkasha
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 130 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
  فكرة تنفيذ مشروع sads 1 92 14-10-18, 09:31 PM
آخر رد: عبد العزيز البسكري

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


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