حذف دکمه MDIFORMخروج

[ramsess]

دوستان منظور من سه تا دکمه کنترل فرم هستش بزرگنمایی - کوچکنمایی و خروج CLOSE
حال چطور گزینه CLOSE رو از فرم MDIFORMبردارم

[amin_unique]

با کد نویسی میتونی این کارو بکنی

[ramsess]

آقای xxxxxx به چه علت به من اخطار داده شده؟
توی کدام تاپیک
اگه اشتباهی کردم لطف کنید و واضح تر بفرمائید تا منبعد تکرار نشود .

[ali682344]

با سلام

مي توني از اين كد داخل يه ماژوال
Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long


و اين كدها هم داخل mdi

Public Sub DisableXbutton(ByVal frmHwnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(frmHwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (frmHwnd)
End If
End Sub
Private Sub MDIForm_Load()
DisableXbutton (Me.hwnd)
End Sub