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_MAXIMIZE = &HF030
Private Const SC_MINIMIZE = &HF020
public Sub command1_click()
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_CLOSE, MF_REMOVE '关闭按钮不可用
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE '最大化按钮不可用
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE '最小化按钮不可用
End Sub
Public Sub Command2_click()
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_CLOSE, SC_CLOSE '关闭按钮不可用
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, SC_MAXIMIZE '最大化按钮不可用
RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, SC_MINIMIZE '最小化按钮不可用
End Sub
点击第一个按钮可以屏蔽最大(小)化按钮和关闭按钮,但是为什么点击第二个按钮不能恢复?
答案:2 悬赏:70 手机版
解决时间 2021-05-16 03:26
- 提问者网友:寂寞撕碎了回忆
- 2021-05-15 14:02
最佳答案
- 五星知识达人网友:旧脸谱
- 2021-05-15 15:29
GetSystemMenu Me.hWnd, 1即可恢复
Public Sub Command2_Click()
GetSystemMenu Me.hWnd, 1
End Sub
全部回答
- 1楼网友:一把行者刀
- 2021-05-15 16:31
估计你得用appendmenu不能在用removemenu
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯