Browse DevX
Sign up for e-mail newsletters from DevX

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



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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.



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