Flashing Form Caption [ All Languages » VB »  Api] Total Hit ( 3097) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

Click here to copy the following block 'Ever wanted to get the users attention without one of those annoying BEEPs, or just have a 'little fun? Here is a good way to do it. Flash the caption of your Form. That should get 'their attention! 'Place this code into a Module: Option Explicit Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal binvert As Long) As Long Public Sub Flash(hFlash As Long, iTimes As Integer, sInterval As Single) Dim I As Integer For I = 0 To iTimes 'iTimes sets the number of flashes! Call FlashWindow(hFlash, True) Dim Start As Single Start = Timer 'set the start time Do While Timer < Start + sInterval DoEvents Loop Next I Call FlashWindow(hFlash, False) End Sub 'Thats it! Now, to flash a caption, just use this call. The arguments are the number of 'flashes (20) and the interval for the flash (.5): Flash Me.hwnd, 20, 0.5

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )