[RaggiTech]

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

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

كود :

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

[RaggiTech]

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

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