VB做的窗体里面有一个最大化，最小化。还有个关闭！

来源：百度知道 编辑：UC知道 时间：2024/05/27 03:36:54
请问一下。VB做的窗体里面有一个最大化，最小化。还有个关闭！
最大化和最小化我都会使他失效,,现在我想问一下,,怎样使关闭按扭失效,,但不是用BOARDSTYLE=0 来实现
谢谢了
最好是能够变为灰色的那种

在form的unload事件里加上一句：cancel=true.
这样，不管怎么样按那个关闭按钮都不会关闭了。

代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Const MF_GRAYED = &H1&
Private Const MF_BYPOSITION = &H400&

Private Sub Form_Load()
Dim h As Long, l As Long
h = GetSystemMenu(hwnd, 0)
l = GetMenuItemCount(h)
EnableMenuItem h, l - 1, MF_BYPOSITION + MF_GRAYED
End Sub

'需一个Command Button
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Lon