如何去掉MDI中父窗体的最小化按钮？

[zfdolphin]

谢谢光临！

[落伍者]

up

[czqMaster]

borderstyle=1
minbutton=false

[dsclub]

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
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
Private Const GWL_STYLE As Long = (-16)
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const MF_BYPOSITION As Long = &H400&

Private Sub MDIForm_Load()
Dim lgTemp As Long
Dim hMenu As Long
lgTemp = GetWindowLong(Me.hwnd, GWL_STYLE)
lgTemp = lgTemp And Not WS_MINIMIZEBOX
SetWindowLong Me.hwnd, GWL_STYLE, lgTemp

hMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu hMenu, 3, MF_BYPOSITION
End Sub