怎样把窗口的关闭按扭和最大化按扭去掉？

Question

怎样把窗口的关闭按扭和最大化按扭去掉？或者变为不可用？？？？？？？？

Answer 1

去掉最大化：设置MaxButton属性为false去掉关闭:
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
    Dim hSysMenu As Long, nCnt As Long
 
        hSysMenu = GetSystemMenu(Me.hwnd, False)    If hSysMenu Then
        
        nCnt = GetMenuItemCount(hSysMenu)
        If nCnt Then
         
            RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
            RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
            DrawMenuBar Me.hwnd
         
        End If
    End If
End Sub

Answer 2

如果什么都不想要，那就简单了，只需指定Controlbox=false就可以了