在运行时想屏蔽最大化按钮(使其成灰色),然后又想恢复过来,代码怎么写?
我用了getmenustring函数,当然还有其他的api咯,好像用sc_maximize没有用啊 ??

解决方案 »

  1.   

    Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
        Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
        Private Const SC_MAXIMIZE = &HF030
        Private Const MF_BYCOMMAND = &H0&
        Private Const SC_RESTORE = &HF120
         
        Private Sub Form_Load()
         Dim hMenu As Long, Success As Long
         
         hMenu = GetSystemMenu(hwnd, 0)
         Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
        End Sub
      

  2.   

    Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
        Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
        Private Const SC_MAXIMIZE = &HF030
        Private Const MF_BYCOMMAND = &H0&
        Private Const SC_RESTORE = &HF120
         
        Private Sub Form_Load()
         Dim hMenu As Long, Success As Long
         
         hMenu = GetSystemMenu(hwnd, 0)
         Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
        End Sub
      

  3.   

    rainstormmaster(rainstormmaster):
    如果我要恢复呢?该怎样写??
      

  4.   

    me.maxbutton=false  '屏蔽
    me.maxbutton=true   '恢复
    不必那么麻烦