Question

(急!!!)VB中如何让窗口的默认关闭按钮显示，但是不可用?

(急!!!)VB中如何让窗口的默认关闭、最小化、最大化按钮显示，但是不可用，就像把command的enabled设成false一样

Answer 1

maxbutton 和 minbutton 可以直接设置为（好象不可以同时设置）False
至于关闭按扭：
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

Function Disabled(ChWnd As Long)
Dim hMenu, hendMenu As Long
Dim c As Long
hMenu = GetSystemMenu(ChWnd, 0)
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Function

'然后在Sub Form_Load()中加入Disabled Me.hwnd即可：
Private Sub Form_Load()
Disabled Me.hwnd
End Sub

Answer 2

maxbutton 和 minbutton 设置成False

关闭按纽
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1
End Sub

Answer 3

vbyesno的都行吧
msgbox
"测试",
vbyesno
+
vbexclamation
msgbox
"测试",
vbyesno
+
vbinformation
msgbox
"测试",
vbyesno
+
vbquestion
msgbox
"测试",
vbyesno
+
vbcritical
vbabortretryignore的也可以