غير فعال كردن دكمه خروج فرم ها
این ترفند مربوط مي شود به غير فعال كردن دكمه خروج فرم ها
.
به اين منظور بايد اين قسمت از فرم را كلاً غير فعال كنيم و از حالت استاندارد در آوريد
.
از كد هاي زير استفاده نماييد
:
'Import necessary API Functions to disable Close button
Private declare function GetsystemMenu "User32"
(byval hwnd as long, byval bRevert as long) as long
private declare function delete lib "user32"
(byval hmenu as long, byval nposition as long. Byval wflags as long) as long
Privat declare function drawmenu bar lib "user32" (byval hwnd as long) as long
'Import Necessary constant to disable close button
Private const Sc_close = &HF60
Private const MF_BYCOMMAND = &H0
Public function disableclosebutton(formhwnd as long)
'have function to disable close button
Dim menuhwnd as long
Menuhwnd = getsystemmenu(formhwnd, 0&)
If menuhwnd then
Deletemenu menu hwnd, SC_close, MF_BYCOMMAND
Drawmenubar (formhwnd)
End if
End Function
ممنون از شما
یه روش ساده
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub
برو حالش رو ببر
دوست عزیز شما میتوانید از رویداد unload در فرم استفاده نمایید
در ضمن در صورتی که لازم داشتید مثلا سوالی برای خروج بپرسد و اگر کاربر تایید کرد خارج شود
A=msgbox("Are You Sure?,vbokcancel)1
if msgbox=vbyes then end else