本文使用「署名 4.0 国际 (CC BY 4.0)」许可协议，欢迎转载、或重新修改使用，但需要注明来源。 [署名 4.0 国际 (CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.zh)

本文作者: 苏洋

创建时间: 2008年01月18日
统计字数: 593字
阅读时间: 2分钟阅读
本文链接: https://soulteary.com/2008/01/18/vb-how-to-disable-button.html

-----


# VB如何使窗口系统按钮失效

话不多说，直接上代码。

```vb
Private Declare Function GetSystemMenu _
                Lib "user32" (ByVal hwnd As Long, _
                              ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu _
                Lib "user32" (ByVal Hmenu As Long, _
                              ByVal nPosition As Long, _
                              ByVal wFlags As Long) As Long

Private Const MF_REMOVE = &H1000&

Private Const SC_CLOSE = &HF060&

Private Const SC_MINIMIZE = &HF020&

Private Const SC_MAXIMIZE = &HF030&

Private Sub Command1_Click()
    Call CloseMenu
End Sub

Private Sub CloseMenu()

    Dim Hmenu As Long

    Hmenu = GetSystemMenu(Me.hwnd, 0)
    Call RemoveMenu(Hmenu, SC_CLOSE, MF_REMOVE)
    Call RemoveMenu(Hmenu, SC_MINIMIZE, MF_REMOVE)
    Call RemoveMenu(Hmenu, SC_MAXIMIZE, MF_REMOVE)
End Sub
```