在Form的Resize事件中去判断Form的WindowState属性的值,如果等于1就是"最小化",等于2就是"最大化".然后Form的Unload事件就是"关闭".Private Sub Form_Resize() If Me.WindowState = 1 ThenMsgBox "最小化" End IfIf Me.WindowState = 2 Then MsgBox "最大化" End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) MsgBox "关闭" End Sub
Private Sub Form_Resize() If Me.WindowState = 1 Then MsgBox "最小化" End If If Me.WindowState = 2 Then MsgBox "最大化" End If End SubPrivate Sub Form_Unload(Cancel As Integer) MsgBox "关闭" End Sub
If Me.WindowState = 1 ThenMsgBox "最小化"
End IfIf Me.WindowState = 2 Then
MsgBox "最大化"
End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)
MsgBox "关闭"
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 Then
MsgBox "最小化"
End If
If Me.WindowState = 2 Then
MsgBox "最大化"
End If
End SubPrivate Sub Form_Unload(Cancel As Integer)
MsgBox "关闭"
End Sub
2、拦截WM_SYSCOMMAND消息
3、依据WPARAM参数处理对应菜单消息。
当wParam = &HF060时为关闭菜单, wParam = &HF020时为最小化 wParam = &HF030时为最大化