صدور پيغام خروج در هنگام خارج شدن از برنامه

valipoor_k

New Member
با سلام . مي خواستم بدانم چكار بايد بكنيم كه در هنگام بستن فرم اصلي يك برنامه ويژوال بيسيك (زدن دكمه close فرم MDIFORM) پيغام ( آيا مايليد از برنامه خارج شويد ؟ Yes No ) صادر شود و با تاييد كاربر از برنامه خارج شود .البته من در برنامه خودم دستورات زير را به Unload form فرم اصلي ام اضافه كرده ام ولي چه Yes را بزنيم و چه No را از برنامه خارج مي شود ممنون مي شوم كمكم كنيد .
'resualt = MsgBox("آيا مي خواهيد از برنامه خارج شويد ؟", vbYesNo)
'If resualt <> 6 Then
'Exit Sub
else
end
end if​
 

the_king

مدیرکل انجمن
اگه شما در برنامه تان از MDIForm استفاده می کنید، کد Unload را در رخداد MDIForm_QueryUnload قرار دهید :
کد:
Private Sub [B]MDIForm_QueryUnload[/B](Cancel As Integer, UnloadMode As Integer)
    If MsgBox("Do you really want to exit the application?", vbYesNo) <> vbYes Then
        [B]Cancel[/B] = True
    End If
End Sub

پارامتر Cancel است که تعیین می کند که آیا عمل Unload شدن متوقف بشود یا نه. اگر مقدار Cancel مخالف صفر بود
(یعنی برابر با True باشد)، Unload شدن فرم متوقف می شود.

همین کد را می توان برای رخداد Form_Unload هر فرم عادی (غیر از فرم MDIForm هم نوشت) :
کد:
Private Sub [B]Form_Unload[/B](Cancel As Integer)
    If MsgBox("Do you really want to close this window?", vbYesNo) <> vbYes Then
        [B]Cancel[/B] = True
    End If
End Sub
 

valipoor_k

New Member
خيلي ممنون . مدتي بود كه دنبال حل اين مشكل بودم . بالاخره حل شد .mer30
 

جدیدترین ارسال ها

بالا