Question

VB 窗口关闭，最小化，最大化、还原时执行代码

VB 窗口在关闭，最小化，最大化、还原时 执行指定代码怎么弄？最好有源码~

Answer 1

Private Sub Form_Unload(Cancel As Integer)
'这里写窗口关闭时的代码
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 Then '0是还原，1是最小化，2是最大化
'这里写代码
End If
End Sub

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "关闭"
End SubPrivate Sub Form_Resize()
Select Case Me.WindowState
Case 0
MsgBox "还原"
Case 1
MsgBox "最小化"
Case 2
MsgBox "最大化"
End Select
End Sub