0
عضویت / ورود
دوشنبه، 20 اسفند 1403 ( جهش تولید با مشارکت مردم )

غير فعال كردن دكمه خروج فرم ها

 
gps0064
gps0064
کاربر نقره ای
تاریخ عضویت : تیر 1388 
تعداد پست ها : 1751
محل سکونت : اصفهان

غير فعال كردن دكمه خروج فرم ها

این ترفند مربوط مي شود به غير فعال كردن دكمه خروج فرم ها
.  به اين منظور بايد اين قسمت از فرم را كلاً غير فعال كنيم و از حالت استاندارد در آوريد .  از كد هاي زير استفاده نماييد :

'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 
جمعه 23 مرداد 1388  2:38 AM
تشکرات از این پست
amirlotfi AliFanoodi designer
sidamin
sidamin
کاربر تازه وارد
تاریخ عضویت : شهریور 1388 
تعداد پست ها : 15
محل سکونت : بوشهر

پاسخ به:غير فعال كردن دكمه خروج فرم ها

ممنون از شما
شنبه 14 شهریور 1388  8:59 PM
تشکرات از این پست
designer
jasooos1991
jasooos1991
کاربر تازه وارد
تاریخ عضویت : تیر 1390 
تعداد پست ها : 2
محل سکونت : چهارمحال و بختیاری

پاسخ به:غير فعال كردن دكمه خروج فرم ها

یه روش ساده

 

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub
 

برو حالش رو ببر
جمعه 3 تیر 1390  1:53 PM
تشکرات از این پست
designer
alibbest59
alibbest59
کاربر برنزی
تاریخ عضویت : اردیبهشت 1388 
تعداد پست ها : 117
محل سکونت : تهران

پاسخ به:غير فعال كردن دكمه خروج فرم ها

دوست عزیز شما میتوانید از رویداد unload در فرم استفاده نمایید

در ضمن در صورتی که لازم داشتید مثلا سوالی برای خروج بپرسد و اگر کاربر تایید کرد خارج شود

A=msgbox("Are You Sure?,vbokcancel)1

if msgbox=vbyes then end else

همه مي خواهند بشريت را عوض کنند، ولي افسوس هيچ کس در اين انديشه نيست که خود را عوض کند

پنج شنبه 28 مهر 1390  5:45 PM
تشکرات از این پست
designer
دسترسی سریع به انجمن ها