Vb如何实现点击窗口右上交的 交叉 关闭按钮时 隐藏窗口，而不是关闭窗口

Question

Vb如何实现点击窗口右上交的 交叉 关闭按钮时 隐藏窗口，而不是关闭窗口
如题

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = -1
    Me.Hide
End Sub

Answer 2

'Form1 Code
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = -1
    Me.Hide
    Form2.Show
End Sub'Form2 Code
Private Sub Command1_Click()
    Unload Form1
End SubPrivate Sub Command2_Click()
    End
End SubPrivate Sub Command3_Click()
    Form1.Show
End Sub

Answer 3

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = -1
 Me.WindowState = 1
End Sub

Answer 4

楼主参考一下我的这段代码吧。
主窗口和‘副窗口’都实现了点‘关闭’时，不是关闭窗口而是最小化。
Form1 是主窗口，添加三个 CommnadButton ，Form2 是副窗口。
把下面的代码分别粘贴到相应的代码窗口中：
'Form1 的代码
Option ExplicitPrivate lUnload As LongPrivate Sub Command1_Click()
'显示第二窗口
    Form2.Show
    
End SubPrivate Sub Command2_Click()
'关闭第二窗口
    Form2.WndExitEnd SubPrivate Sub Command3_Click()
'关闭主窗口（结束程序）
    lUnload = -1
    Unload Me
    '或者，只用下面这句
    'EndEnd SubPrivate Sub Form_Load()    lUnload = 0End SubPrivate Sub Form_Unload(Cancel As Integer)    Cancel = Not lUnload
    WindowState = 1 '最小化
    'Me.Hide         '隐藏End Sub'Form2 的代码
Option ExplicitPrivate lUnload As LongPublic Sub WndExit()    lUnload = -1
    Unload MeEnd SubPrivate Sub Form_Load()    lUnload = 0End SubPrivate Sub Form_Unload(Cancel As Integer)    Cancel = Not lUnload
    WindowState = 1 '最小化
    'Me.Hide         '隐藏End Sub

Answer 5

终于搞好了
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        '关闭时不关闭而是隐藏
        'vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
        If (UnloadMode = 0) Then
            Me.Hide
        End If
End Sub
其实是这样才达到我目的的