请问在VB中的窗体中如何屏蔽关闭按纽 急急急急

Question

请问在VB中的窗体中如何屏蔽关闭按纽 急急急急

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 LongPrivate Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim R As Integer
MyMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu MyMenu, &HF060, R
End Sub

Answer 2

http://expert.csdn.net/Expert/topic/2301/2301622.xml?temp=.804104

Answer 3

在以下事件中写上以下代码即可！
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub

Answer 4

百分百好用：
最简单直接的答案
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYCOMMAND = &H0&
Const MF_BYPOSITION = &H400&
Private Sub Form_Load()
Dim mHandle, mHandle2 As Long
mHandle = GetSystemMenu(Me.hwnd, 0)
mHandle2 = GetSubMenu(mHandle, 1)
RemoveMenu mHandle, &HF060, MF_BYCOMMAND
                         问题解决，请结贴！

Answer 5

'请把以下代码复制到窗体的代码窗口中(在窗体添加一个Command按扭)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 Long, ByVal wFlags As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&Private Sub Command1_Click()
Dim hwndmenu As Long
Dim c As Longhwndmenu = GetSystemMenu(Me.hwnd, 0)
c = GetMenuItemCount(hwndmenu)DeleteMenu hwndmenu, c - 1, MF_BYPOSITION
End Sub'绝对可行

Answer 6

楼上的是正确的，不过要是用enablemenuitem是不是更合适些？