!!!!我想在点最小化或关闭按钮的时候都使它到托盘 请问怎样实现

Question

如题，我想点最小化或点关闭按钮时不最小化或关闭，而是到托盘，请问怎么处理。谢谢

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 0 Then
        MsgBox "关闭了"
        Cancel = True
        
        Me.Hide
        '接着调用托盘代码
        .........
    End If
End SubPrivate Sub Form_Resize()
    If Me.WindowState = 1 Then
        MsgBox "最小化了"
        Me.Hide
        '接着调用托盘代码
        .........
    End If
End Sub

Answer 2

楼上正解，使用Cancel = True就可以阻止窗体关闭