Question

vb 如何使系统菜单的“关闭”按钮变灰

vb 如何使系统菜单的“关闭”按钮变灰

使系统菜单的“关闭”按钮变灰就是不能使用。。。 不是让它消失？

我的问题是让“关闭”变成灰色的 。不是 没有 掉。。。。
A

Answer 1

我的代码是让“关闭”按钮失效：

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_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
Private Const SC_CLOSE = &HF060&

Private Sub Form_Load()
RemoveMenu GetSystemMenu(Me.hwnd, 0), SC_CLOSE, MF_REMOVE
End Sub

Answer 2

这个效果可以使用系统API实现：

在项目中添加一个Module

其中代码如下：

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&

Public Sub RemoveMenus(FormName As Form)

Dim hMenu As Long
'获取窗口菜单的句柄
hMenu = GetSystemMenu(FormName.hwnd, False)

'操作右键点击标题栏探出菜单

DeleteMenu hMenu, 6, MF_BYPOSITION

End Sub

然后在需要去掉关闭按钮功能的窗体的Form_load事件中添加：

RemoveMenus Me

就可以了 。

Answer 3

可以让 关闭按钮失效，再 form_unload 里写

Cancel = -1 这样做，可以免去多余的代码，几个词就搞定，好看不如好用。

Answer 4

VB在这里有Bug
即使处理了，窗体一激活就失效了