我会用deletemenu把窗口右上角关闭按钮变灰，但怎么样把它激活呢？？？请教一下~~~~...
我会用deletemenu把窗口右上角关闭按钮变灰，但怎么样把它激活呢？？？
请教一下~~~~
VB 激活灰色关闭按钮
答案:1 悬赏:30 手机版
解决时间 2021-01-04 03:35
- 提问者网友：饥饿走向夜
- 2021-01-03 18:24
最佳答案
- 五星知识达人网友：舊物识亽
- 2021-01-10 05:51
用AppendMenu应该可以吧？
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Const MF_POPUP = &H10&
Private Const MF_STRING = &H0&
Private Const SC_ARRANGE = &HF110&
Private Sub Form_Load()
'激活关闭按钮
AppendMenu GetSystemMenu(me.hwnd, 0), MF_POPUP + MF_STRING, SC_CLOSE, "关闭 (Alt+F4)"
end sub
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Const MF_POPUP = &H10&
Private Const MF_STRING = &H0&
Private Const SC_ARRANGE = &HF110&
Private Sub Form_Load()
'激活关闭按钮
AppendMenu GetSystemMenu(me.hwnd, 0), MF_POPUP + MF_STRING, SC_CLOSE, "关闭 (Alt+F4)"
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯