1,488
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Resize()
If Me.WindowState = 1 Then
MsgBox "最小化"
End If
If Me.WindowState = 2 Then
MsgBox "最大化"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "关闭"
End Sub
Private Sub Form_Resize()