如何去掉MDI窗体的最大化与最小化按钮

Question

如题

Answer 1

把子窗体的 BorderStyle 属性 设为 1

Answer 2

#If Win32 Then
    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 GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
#Else
    Private Declare Function SetWindowLong Lib "User" (ByVal hwnd As Integer, _
    ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "User" (ByVal hwnd As Integer, _
    ByVal nIndex As Integer) As Long
#End If
Const WS_MINIMIZEBOX = &H20000     '最小化
Const WS_MAXIMIZEBOX = &H10000    '最大化
Const GWL_STYLE = (-16)Private Sub MDIForm_Load()
    Dim lWnd As Long
    lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
    lWnd = lWnd And Not (WS_MINIMIZEBOX)       '最小化
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)      '最大化
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
End Sub