[atefkhalf2004]

السادة الزملاء
غاب عن ذهني وبحتت عنه لم اتذكر اين هو بالمنتدي
كيفية تنفيذ اوامر عن طريق الضغط علي مفتاح f1 مثلا
مع ضبط خاصية معينه للفورم
انا اسف لتعبكم معي
شكرا

[3booody]

كود :

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

[atefkhalf2004]

شكرا لاهتمامك

[kafi2030]

السلام عليكم

اخي 3booody

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

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

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

[ناجي إبراهيم]

السلام عليكم...

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

سلام.

[مالكـ]

اخي ... في بعض الاجهزة ..... لاتعمل مفاتيح F

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

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

PHP كود :

If e.KeyCode = Keys.Escape Then
            MessageBox.Show("hi")
        End If 


[3booody]

(30-10-13, 01:36 AM)kafi2030 كتب : السلام عليكم

اخي 3booody

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

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

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

كما قال الاستاذ ناجي ابراهيم الخاصية KeyPreview والسبب
لايتم اقتناص حدث Form1_KeyDown اذا كان التركيز على اداة ثانية غير الفورم وبتغير هذا الخاصية يتم اقتناصه بغض النظر عن التركيز

[kafi2030]

شكرا اخوتي الكرام
على التوضيح

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

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

وكتبت

كود :

If e.KeyCode = Keys.Escape Then
            Call btn_Close_Click()
        End If

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

ارجو التصويب

[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

[الشاكي لله]

(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 Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Button1.PerformClick()
        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