السلام عليكم
كيف نخرج من الفورم عند الضغط على زر ESC
وشكرااااا
كيف نخرج من الفورم عند الضغط على زر Esc
وعليكم السلام ورحمة الله وبركاته
ضع زر ليكن اسمه خروج وفي حدث كليك للزر ضع
End
من خصائص الزر اجعل خاصية Cancel = True
انتهينا
فاعلم أنه لا إله إلا الله
السلام عليكم...
بعد الإذن من الأخ "السندبااد"...
كما قال: اضبط الخاصية Cancel لزر الخروج على True (ليستجيب للمفتاح Escape)، لكن لا نستعمل الأمر End لأنه يؤدي إلى إغلاق البرنامج كله، بل نستعمل الجملة Unload Me لإغلاق النافذة
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
للاسغ عملن ت ولا كن ماشتغل؟؟
اخواني اسف زبط بس على كبسات ragheed button مازبط ليش؟
السلام عليكم...
لا أدري ما مشكلة هذه الأزرار، لكن على أية حال نفرض أن الزر الذي تتحدث عنه اسمه RB1 و كان كود الـ Click لهذا الزر كالتالي:
- Private Sub RB1_Click()
- Unload Me
- End Sub
الآن: اضبط الخاصية KeyPreview للـ Form على True، و في إجراء الحدث KeyDown للـ Form اكتب الكود التالي:
- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
- If KeyCode = vbKeyEscape Then
- RB1_Click
- End If
- End Sub
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم