Jistě si vzpomínáte na to, když jsme se bavili o komponentě WinSock. A jistě také znáte různé klienty pro ICQ a podobné. No a určitě tedy znáte situaci, kdy vám tlačítko na liště začne oranžově blikat. A teď dozvíte, jak se to dělá.
..
Je to jednoduché. Využívá se API funkce a Timer. Jeho interval se nastavuje tak na 1000 milisekund. A kód může vypadat takto:
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Sub Timer1_Timer()
FlashWindow Form1.hwnd, True
End Sub
Už stačí pouze nějaký příkaz, který spustí timer. To znamená, že někam musíte vložit:
Timer1.Enabled = True
A potom je taky potřeba toto blikání vypnout, nejlépe při kliknutí na formulář.
Někomu může stačit i tohle:
FlashWindow Form1.hwnd, True
Čistě bez timeru, proč? No zkuste to. Hodí se nenápadně přidat i Beep, ale ne do timeru a jen jednou.