كيف أستخدم زر Esc للخروج من البرنامج.؟

بالنسبة لزر ESC ، ضع زر ، واخفيه ، واجعل الخاصية Cancel = True

وفي كود الزر ضع أمر إغلاق الفورم

باقي المطلوب لم أفهمه

Private Sub Form_KeyPress(KeyAscii As Integer)
If keyAscci = keyAsciiEscape Then End
End Sub

جزاك الله خير أخوي مجرد إنسان على المعلومة .. وكن ما ذكرته ينطبق على الزر عندما يكون الزر ظاهراً وليس مخفياً .

أما باقي المطلوب فهو تابع لما قبله .

أريد أن أتحكم بما يقوم المستخدم بضغطه من لوحة المفاتيح .. وأستخدمها في إختصارات أنا أحددها ..

لقد جربت الإختصارات عن طريق ( Menu ) القائمة .. ولكنها غير مجدية .. فهي تنفع فقط في زر الخروج أو فتح نموذج آخر أو شاشة بحث .. لكن أريد أن أستخدم الإختصارات في أمور أخرى ولا يصلح أن أضيفها في القائمة .

أرجوا ممن لديه فكره عن هذا الموضوع أن يدلي بدلوه هنا ..

وشكراً لك أخي مجرد إنسان مرة أخرى ..

جزاك الله خير أخوي gaf58 لكن الكود الذي وضعته لا ينفذ إلا إذا كان التركيز على الفورم نفسه .. أما إذا كانت هناك أكثر من أداه فإنه لا ينفذ ..

شكراً لك على ردك ..

أشكركم أخوتي على التفاعل الجميل ولكني أظن أنني وجدت الحل بعد البحث في ملف التعليمات .. وهو بكل بساطه جعل خاصية ( KeyPreview ) إلى ( True ) وبهذا سوف يتحسس الفورم جميع ما يدخل من المستخدم من لوحة المفاتيح وبهذا يمكن عمل الإختصارات المناسبة ..

Private Sub Form_Load
   Form1.KeyPreview = True
End Sub

أشكركم مرة أخرى .

Private Sub Form_KeyPress(KeyAscii As Integer)
If keyAscci = keyAsciiEscape Then End
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

:lol: