Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: beginner
Nov 6, 1999

Catch user's attention with a flashing caption

If you want to draw user's attention but you don't want to force the form to move to the foreground, you can simply flash its caption (and its icon in the taskbar), using the FlashWindow API function. To do so, just add a Timer with a suitable Interval property (for example, 1000 milliseconds) and then add this code to the form module:


Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, _
    ByVal bInvert As Long) As Long

Private Sub cmdStartFlashing_Click()
    ' start the flashing by enabling the timer
    Timer1.Interval = 1000
End Sub

Private Sub cmdStopFlashing_Click()
    ' disable the timer to stop the flashing, and restore regular caption
    Timer1.Interval = 0
    FlashWindow Me.hWnd, 0
End Sub

Private Sub Timer1_Timer()
    ' toggle the caption status
    FlashWindow Me.hWnd, 1
End Sub
The second argument to FlashWindow must be zero to restore the standard state of the caption (that is, the activate state), while a non-zero value toggles from enabled to disabled state, and vice versa.
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date