غیر فعال کردن دکمه ضربدر فرم

[Hassan2500]

سلام
چطوری میشه دکمه ضربدر فرم را از کار انداخت تا دیگه غیر فعال بشه اگه کد هم میخاد واسم کامل بنویسید.

[shahabbasic]

سلام

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub
با این کار غیرفعال نمیشه ولی دیگه عمل نمیکنه

[MohammadGh2011]

سلام عليکم
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
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
Private Sub Form_Load()
DisableCloseWindowButton Me
End Sub

با کد بالا دکمه ي ضربدر فرم غير فعال ميشه.

منبع:homecode.blogfa.com (http://www.homecode.blogfa.com/post-247.aspx)



موفق باشيد