可否获知窗体何时最小化?

t小宝

窗体没有最小化事件,如果想在窗体最小化时运行一些过程,该如何实现?
恳请高手赐教?

goto2008

关注哦........呵呵...

andymark

Private Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Resize()
Dim minflag As Long, maxflag As Long

minflag = IsIconic(Me.hwnd)
maxflag = IsZoomed(Me.hwnd)
If minflag <> 0 Then
MsgBox "最小化"
ElseIf maxflag <> 0 Then
MsgBox "最大化"
Else
MsgBox "正常"
End If

End Sub

t小宝

非常感谢andymark!!!
没想到还真能实现

hauting

真是受教

gaofei186

hhhhhhhhhhhhhhhhhhhh

gaofei186

kkkkkkkkkkkkkkkk