تالار گفتگوی راسخون - غير فعال كردن دكمه خروج فرم ها

دنیای مجازی

پست جدید

1

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

جمعه 23 مرداد 1388 2:38 AM

پاسخ نقل قول

این ترفند مربوط مي شود به غير فعال كردن دكمه خروج فرم ها

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

'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

gps0064

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

amirlotfi

تشکرهای این پست

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

شنبه 14 شهریور 1388 8:59 PM

پاسخ نقل قول

ممنون از شما

sidamin

تاریخ عضویت: شهریور 1388
سطح کاربری : کاربر تازه وارد
تعداد پست ها: 15
محل سکونت : بوشهر

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

جمعه 3 تیر 1390 1:53 PM

پاسخ نقل قول

یه روش ساده

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

برو حالش رو ببر

jasooos1991@yahoo.com

jasoos1991@gmail.com

jasoos1991.loxblog.com

jasooos1991

تاریخ عضویت: تیر 1390
سطح کاربری : کاربر جدید
تعداد پست ها: 2
محل سکونت : چهارمحال و بختیاری

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

پنج شنبه 28 مهر 1390 5:45 PM

پاسخ نقل قول

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

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

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

if msgbox=vbyes then end else

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

alibbest59

تاریخ عضویت: اردیبهشت 1388
سطح کاربری : کاربر برنزی
تعداد پست ها: 118
محل سکونت : تهران

1

پاسخ

دسترسی سریع:

پست الکترونیکی:

مقالات اسطوره ها