请教：禁用窗体最大化按钮后，如何恢复可以使用最大化按钮？

Question

请教：禁用窗体最大化按钮后，如何恢复可以使用最大化按钮？

Answer 1

能过禁用，就是知道怎么样禁用的了。api 的参数，0  =〉 1 false 改成 true 之类的。
  
————————————————————————————————————
写作，虽然每个人都会查阅辞海，可，不是人人都能写出不朽的篇章的。编程，如是也。

Answer 2

不是吧？
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
Public Const SC_MAXIMIZE = &HF030
Public Const MF_BYCOMMAND = &H0&
Public Const WS_MAXIMIZEBOX = &H10000
Public Const GWL_EXSTYLE = (-20)
Public Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Public maxtimes   As Integer
Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As LongPublic Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
            (ByVal hWnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
            (ByVal hWnd As Long, _
            ByVal nIndex As Long) As Long
             Public Sub Umaxbutton(hWnd As Long)    Dim Success       As Long
    hMenu = GetSystemMenu(hWnd, 0)
    Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
    Dim xl     As Long
    xl = GetWindowLong(hWnd, GWL_STYLE)
    xl = xl And (Not WS_MAXIMIZEBOX)
    SetWindowLong hWnd, GWL_STYLE, xl End Sub调用 call umaxbutton ( me.hwnd) 禁用的frm 最大化，就是不知道怎么恢复。

Answer 3

xl = xl or WS_MAXIMIZEBOX)