如何VB程序上的窗口关闭按纽失效?

Question

想制作1个程序,关闭按纽为不可用的该怎么做?
能不能弄个连最大化也无效的?

Answer 1

顶你啊 窗体的 MaxButton 属性设为False 不就没最大化了 或者设置 BorderStyle属性

===================================

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

Sub Disabled(ChWnd As Long) '设置窗体关闭按钮不可用的子过程
Dim hMenu, hendMenu As Long
Dim c As Long
hMenu = GetSystemMenu(ChWnd, 0)
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Sub

Private Sub Form_Load()
Disabled Me.hwnd '调用子过程
End Sub

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub

Answer 3

晕死，我以前做过VB编程的，不过一年多没碰了，忘记了，不要用代码的，好像是先选中窗口，再右边的属性里改。
我VB都删了，郁闷，回去装一个，有问题你可以留言。

Answer 4

选择"Form"窗体,在右侧的属性里找到"ControlBox" 将的的值设为"False"