كيف ايتم انهاء البرنامج عند النقر على Esc

تنشئ زر لنفرض أن اسمه command1 وتكتب به الكود التالي :

اقتباس

Private Sub Command1_Click()

End

End Sub

وبعدها تغير محتوى خاصية Cancel=True للزر command1

ضعه في حدث Form_KeyPress

اشكركم يا شباب

اخ عفريت انت لم تفهم السؤال

بس ياخ ملاحضة جربت و ما صلح ؟

الاخ/الاخت العزيزة : MiMi

Private Sub Form_KeyPress(KeyAscii As Integer)

    If KeyAscii = 27 Then End

End Sub

قومي بنسخ الكود السابق

تحياتي

اذهب للرابط

هنـــــــا

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

الاخ msa_r هل الكود الذي قمت انا بكاتبة خاطىء ؟؟؟؟؟؟؟؟؟؟؟!!!!!!

ميمي ياريت لو تجربي الكود ترديلنا خبر التجربة

انا اعرف ان هذا الكود بس الكود ما يتنفذ الا اذا لاتوجد اي اده على الفورم

تفضلي ... هذا هو المطلوب

Private Sub Form_Load()

    Form1.KeyPreview = True

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyEscape Then End

End Sub

ضعي مليون عنصر لو شئتي وجربي الكود

بإنتظار جوابك