by nofx (8 Submissions)
Category: Windows System Services
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Wed 31st March 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Make any Window Flash, preatty kewl if you want to drag users attention.
API Declarations
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)
#Else
Declare Function FlashWindow% Lib "user" (ByVal hwnd As Integer, ByVal bInvert As Integer)
Declare Function FindWindow% Lib "user" (ByVal lpClassName As Any, ByVal lpWindowName As Any)
#End If
'Set the to what ever number of seconds.
'Enable it and let it FLASH!
'EX:
'Private Sub Timer1_Timer()
' Call FlashWnd("Dial-Up")
'End Sub
Function FlashWnd(WindowName$)
Dim lFind As Long
Dim lFlash As Long
lFind = FindWindow(vbNullString, WindowName$) 'Find a Window you want to flash
lFlash = FlashWindow(lFind, 1) 'Flash the Window
End Function
No comments have been posted about Make any Window Flash, preatty kewl if you want to drag users attention.. Why not be the first to post a comment about Make any Window Flash, preatty kewl if you want to drag users attention..