حذف دکمه کلوز در فرم MDI

[mobin_co]

من دنبال کدی میگردم که در فرمهای ام دی ای دکمه کلوز فرم رو حذف و یا غیر فعال کنه اگر دوستان کمک کنن ممنون هستم.

[ehsan_882000]

e.cancel=true

[noorsoft]

برای این کار باید از APi کمک بگیری



ption Explicit
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&

Public Sub DisableCloseWindowButton(frm As Form)
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.hwnd, 0)
RemoveMenu hSysMenu, 6, MF_BYPOSITION
RemoveMenu hSysMenu, 5, MF_BYPOSITION
End Sub

[M-M-Mojtaba]

سلام. اين كد رو كه نوشته ايد روي كدوم قسمت فرم بايستي اضافه كنيم.

[محسن واژدی]

سلام. اين كد رو كه نوشته ايد روي كدوم قسمت فرم بايستي اضافه كنيم.

سلام
دستور Call DisableCloseWindowButton(Me) را در در رویداد Form_Load بنویسید

موفق و موید باشید

[Artur2014]

سلام دوستان برنامه نویس
لطفا هرمطلبی که میذارید فقط تکه کدی بی در وپیکر نباشه که
موقع به کار گیری اون مخاطبامون سردرگم بشن!
الان کدهای بالا رو هرکجای MDI-Form چایلد یا پیرنت که میذارم نتیجه نمیگیرم کلی هم وقت ازم گرفت!
درحالی که کافی بود خود پروژه که معمولا حجمی ندارن توی فایلی RAR یا Zip ضمیمه یا پیوست میشد ته پست ارسالی.
مثل اکثر سایتهای خارجی!

مثلا...:

[M-M-Mojtaba]

سلام. آقاي يا خانم Artur2014
ممنون از كدي كه گذاشته بودي. ولي وقتي مي اجرا كردم دو خط Public را خطا مي دهد. چكار كنم؟