پیغام در هنگام Unload

[HamedNet_ir]

با سلام

در رویداد UNload یک Form چگونه میتوان از Unload شدن آن فرم جلوگیری کرد؟
مثلا یک پیغام برای تائید خروج از برنامه.

باتشکر

[Dr.Bronx]

Private Sub Form_Unload(Cancel As Integer)
Dim Res As String
Res = MsgBox("ÂíÇ ãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿", vbOKCancel + vbExclamation, "ÎÑæÌ")
If Res = vbOK Then
Unload Me
Else
Exit Sub
End If
End Sub

[xxxxx_xxxxx]

Private Sub Form_Unload(Cancel As Integer)
Dim Res As String
Res = MsgBox("ÂíÇ ãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿", vbOKCancel + vbExclamation, "ÎÑæÌ")
If Res = vbOK Then
Unload Me
Else
Exit Sub
End If
End Sub

سلام،
شما اومدید تو رویداد Unload فرم پیغام به کاربر دادید و بعد از این که کاربر رو OK کلیک کرد به فرم میگید که Unload شه؟ خب فرم چون داره Unload میشه این Event اجرا میشه.

همونطور که می بینید این Event یک پارامتر به نام Cancel داره که برای همین کار تعبیه شده.
و روش استفاده از اون:


Private Sub Form_Unload(Cancel As Integer)
Dim Res As String
Res = MsgBox("Are you Sure?", vbOKCancel + vbExclamation, "Exit")
If Res = vbCancel Then Cancel = True
End Sub

[HamedNet_ir]

Private Sub Form_Unload(Cancel As Integer)
Dim Res As String
Res = MsgBox("ÂíÇ ãí ÎæÇåíÏ ÇÒ ÈÑäÇãå ÎÇÑÌ ÔæíÏ¿", vbOKCancel + vbExclamation, "ÎÑæÌ")
If Res = vbOK Then
Unload Me
Else
Exit Sub
End If
End Sub

این برنامه کار نمیکند.

برنامه ی دومی کاملا صحیح است و کار میکند.
ممنون!:تشویق: