كاتب الموضوع : AhmedEssawy
عندما تقوم بالضغط على زر X في الفورم فإنه تلقائياً يتم اغلاقه ، هذا الكود فيما إذا أردت التراجع عن اغلاقه بعد اظهار رسالة تأكيد الخروح مثلاً :
كود :
Dim Answer
Answer = MsgBox("Exit",Vbyesno,"QQ")
If Answer = vbNo Then
Command1.Value = True
Cancel = True
End If
كاتب المشاركة : المخلب الجارح
اخي لي تعديل بسيط على الكود
وهو يجب ان تضعة في الحدث 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]