屏蔽关闭和最大化按钮，只保留最小化按钮

最新推荐文章于 2023-10-12 13:35:24 发布

原创最新推荐文章于 2023-10-12 13:35:24 发布 · 2.9k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

当前文章被以下社区和专栏收录：

本文介绍了一段使用VBA实现屏蔽窗口中关闭和最大化按钮的代码，仅保留最小化按钮的功能。通过调用Windows API函数实现对窗口样式的修改。

'屏蔽关闭和最大化按钮，只保留最小化按钮

Option Explicit
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_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060&

'--------------------------------------

Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
'Private Const WS_MINIMIZEBOX = &H20000

Private Sub Form_Load()
Dim MyMenu As Long
MyMenu = GetSystemMenu(Me.hwnd, 0) '得到系统菜单的句柄，Me.hwnd表示当前窗体的句柄
RemoveMenu MyMenu, SC_CLOSE, MF_BYCOMMAND '屏蔽关闭按钮

'下面代码屏蔽最大化按钮
Dim mdiWnd As Long
mdiWnd = GetWindowLong(Me.hwnd, GWL_STYLE)

mdiWnd = mdiWnd And Not (WS_MAXIMIZEBOX)

mdiWnd = SetWindowLong(Me.hwnd, GWL_STYLE, mdiWnd)
End Sub

标签