برنامه نویسی دکمه Exit فرم

[30rabi]

با سلام خدمت اساتید محترم
چگونه می توان برای دکمه exit فرم برنامه نوشت؟
ممنون

[pcdownload.bloghaa.com]

اگه تو رویداد زیر کدهات رو بنویسی موقع زدن دکمه خروج پنجره کدهات اجرا میشه:

Private Sub Form_Unload(Cancel As Integer)

End Sub

اگه خواستی با زدن دکمه خروج خارج نشه و فقط کدهای شمارو اجرا کنه عبارت زیر

cancel=true
را توی همون رویداد قرار بدید.

و اگه زمانی برنامه ای نوشتید که هنگام خروج هنگ میکنه یا یه اخطار میده بعد از خروج و ....
میتونید از کد زیر استفاده کنید:


Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Sub Form_Unload(Cancel As Integer)
ExitProcess 1
End Sub

[محسن واژدی]

سلام علیکم
جناب pcdownload.bloghaa.com توضیحات کامل رو فرمودند، جهت تکمیل توضیحات ایشون:
رویداد QueryUnload یکی از رویداد های فرم بوده که قبل از Unload شدن فعال میشود همچنین یک رویداد مناسب است جهت قرار دادن دستوراتی نظیر پیام تائید خروج:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Are you sure to exit?", vbYesNo, UnloadMode) = vbNo Then
Cancel = 1
End If
End Sub

در رویداد بالا پارامتر UnloadModeنوع درخواست را معین میکند، به عنوان مثال در صورتیکه درخواست خروج از سوی کاربر باشد مقدار آن صفر و از طرف ویندوز مقدار برگشتی آن 2 خواهد بود

موفق باشید