如何使MDI窗体的最大化按钮的Enable为False,而且使窗体大小不能改变

Question

如何使MDI窗体的最大化按钮的Enable为False,而且使窗体大小不能改变

Answer 1

'----------------------------------API----------------------------------
Public Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic Const WS_POPUP = &H80000000Public Const GWL_STYLE = (-16)Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_BORDER = &H800000Public Const WS_SYSMENU = &H80000Public Const WS_CAPTION = &HC00000                  '  WS_BORDER Or WS_DLGFRAMEPublic Const WS_POPUPWINDOW = (WS_BORDER Or WS_SYSMENU Or WS_CAPTION Or WS_MINIMIZEBOX)
Public Const MF_GRAYED = &H1&Public Const MF_BYCOMMAND = &H0&Public Const SC_CLOSE = &HF060&
Public Const SC_SIZE = &HF000&'窗体最大化不可用
Public Sub DisableMax(frm as form)
    '设最大化按钮不可用
    SetWindowLong frm.hwnd, GWL_STYLE, WS_POPUPWINDOW
    
    '设置系统菜单最大化操作按钮为不可用
    EnableMenuItem GetSystemMenu(frm.hwnd, True), SC_SIZE, MF_BYCOMMAND Or MF_GRAYED
    
End Sub我的是这样做的,请试一试.

Answer 2

窗体的属性:
moveable=false
scrollbars=false

Answer 3

修改 你所创建的 Form 的  BorderStyle 属性 
选择:  3－Fixed Dialog

Answer 4

分兩步：1，找到你的窗體的屬性：WindowState ---(設置為）－－＞2-Maximized
        2, 找到你的窗體的屬性：Maxbutton------(設置為）－－＞false
                               Minbutton------(設置為）－－＞false
------------------------------------------------------------------------------
要給分喲！！！！！！！！！！！！