منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الغاء عملية الخروج بعد الضغط على زر x - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : الغاء عملية الخروج بعد الضغط على زر x (/showthread.php?tid=5823)

الغاء عملية الخروج بعد الضغط على زر x - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy

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


كود :
Dim Answer
Answer = MsgBox("Exit",Vbyesno,"QQ")
If Answer = vbNo Then
Command1.Value = True
Cancel = True
End If


الغاء عملية الخروج بعد الضغط على زر x - RaggiTech - 17-10-12

كاتب المشاركة : المخلب الجارح

اخي لي تعديل بسيط على الكود
وهو يجب ان تضعة في الحدث 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]