How to Flash a Window like in Netants Download Manager...

[lvramanan]

Hi Guys,
What should i do to Flash a Window like in Netants Download Manager. For Example when a Download is completed the Netants shows a Window and the Windows seems to be growing from a Pixel to a window. Can anyone know how to do this...

[Vlatko]

To flash a window use this

'This project needs a timer,Interval 1000
 
'In general section
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Const Invert = 1
 
Private Sub Timer1_Timer()
    'Flash the window
    FlashWindow Me.hwnd, Invert
End Sub

[lvramanan]

Hi Vlatko,
I know how to do this. But what I asked is extremely different from what you've given. Just download the Netants Download Manager from here. After you've downloaded and Installed it. Download a file from anywhere. After successful finish it would display a window with the effect which I asked. Hope this helps to understand my query. Anyway thnx for ur code.

[SanderS]

You don't have to use a api but a api is better... You can use this non-api way

This is only an example of only the form you can add more if you want of course...
Create a very small form 20 by 28 pix. for example, add a timer with interval=1, set tag=1 and use this code

Private Sub Form_Load()
Form1.Tag = Form1.Caption
Form1.Caption = ""
End Sub

Private Sub Timer1_Timer()

If Me.Height <= 5600 Then Me.Height = Me.Height + 20: Form1.Top = Form1.Top - 10
If Me.Width <= 7000 Then Me.Width = Me.Width + 25: Form1.Left = Form1.Left - 13
If Me.Width >= 7000 And Form1.Caption <> Form1.Tag Then
If Form1.Caption = "" Then Timer1.Interval = Timer1.Interval * 25
If Form1.Caption = "" Then Form1.Caption = Mid(Form1.Tag, 1, 1) Else Form1.Caption = Form1.Caption & Mid(Form1.Tag, Timer1.Tag, 1)
Timer1.Tag = Timer1.Tag + 1
End If
End Sub

I use tags but you can better create public values

[lvramanan]

Hi Sander,
I got it. I got what I expected. Thnx a Lot....