急急急:MDI的子窗体在最大化时如何去除最大化、最小化和关闭按钮?
请问MDI的子窗体在最大化时如何去除最大化、最小化和关闭按钮?
[解决办法]
'将以下代码粘贴到mdi主创体中
Option Explicit
Private Declare Function SetWindowLong Lib "user32 " Alias "SetWindowLongA " (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Declare Function GetWindowLong Lib "user32 " Alias "GetWindowLongA " (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Sub MDIForm_Load()
Dim hStyle As Long
hStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
hStyle = hStyle And Not WS_MAXIMIZEBOX
hStyle = hStyle And Not WS_MINIMIZEBOX
hStyle = SetWindowLong(Me.hwnd, GWL_STYLE, hStyle)
End Sub
[解决办法]
属性窗口中不是有样式属性吗,就在那儿设置