How can you tell when form is minimized?

[James Stanich]

I have a MDI form application. When the form is minimized, I would like to flash the caption in the Taskbar. How can this be performed?

[Shafee]

When a form is maximized, the windowstate property of the form is equal to vbMaximized.

If frm.WindowState = vbMaximized Then

'...... FlashWindow procedure ......

End If

[Edited by Shafee on 09-11-2000 at 02:06 PM]

[xstopx81]

Private Sub Form_Resize()
  If Me.WindowState = 1 Then
    MsgBox "current form if minimized"
  End If
End Sub

[James Stanich]

Thank you both.

Ok I got it to flash when minimized...

Now on Form1 load I call a function which properly centers form within the MDIform, but if Form1 hasn't loaded yet, and the MDIform is minimized, Form1 is not centered when it is loaded. Where must I put the code on FORM1 to recenter once MDIform in maximized?

[parksie]

In the Resize event for your MDIForm, centre the other form there.

[James Stanich]

Thank you all...

Here is how to flash the window.

Declare Function FlashWindow& Lib "user32" (ByVal hwnd As Long, _
ByVal bInvert As Long)
Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

Dim h As Integer

Private Sub Form_Load()
h = FindWindow(vbNullString, "MyForm's Caption")
Timer1.Interval = 100
End Sub

Private Sub Form_Resize()
If Me.WindowState = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
Do Until Me.WindowState <> 1
hFlash = FlashWindow(h, 1)
DoEvents
Sleep (300)
Loop
Timer1.Enabled = False
End Sub