تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الغاء عملية الخروج بعد الضغط على زر x
#1
كاتب الموضوع : AhmedEssawy

عندما تقوم بالضغط على زر X في الفورم فإنه تلقائياً يتم اغلاقه ، هذا الكود فيما إذا أردت التراجع عن اغلاقه بعد اظهار رسالة تأكيد الخروح مثلاً :


كود :
Dim Answer
Answer = MsgBox("Exit",Vbyesno,"QQ")
If Answer = vbNo Then
Command1.Value = True
Cancel = True
End If
}}}}
تم الشكر بواسطة:
#2
كاتب المشاركة : المخلب الجارح

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

كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Form_Unload[/color][color=#007700]([/color][color=#0000bb]Cancel [/color][color=#007700]As [/color][color=#0000bb]Integer[/color][COLOR=#007700])
    If [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"Exit"[/color][color=#007700], [/color][color=#0000bb]vbYesNo[/color][color=#007700], [/color][color=#dd0000]"ExitPro"[/color][color=#007700]) = [/color][COLOR=#0000bb]vbNo Then
       Cancel [/COLOR][color=#007700]= [/color][COLOR=#0000bb]True
    End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الغاء زر الاغلاق- اخفاء البرنامج من ادراة المهام- الغاء تكرارتشغيل برنامجك بنفس الوقت RaggiTech 0 823 17-10-12, 03:33 PM
آخر رد: RaggiTech
  الغاء Ctr+Alt+Del RaggiTech 0 453 17-10-12, 03:32 PM
آخر رد: RaggiTech

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


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