Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Blinking Label
Not a good idea to create blinking text but if you must then try using the
OnTime method to control the flash. This method shedules a procedure to occur at a specified moment so if you use....Call the turnon procedure to start the flash (perhaps in the form initialise event) and stop it by using the Schedule:=False option, refer to on line help for details. This is not a good idea!! sub turnoff() Userform1.Label13.Visible = False Application.OnTime Now + TimeValue("00:00:01"), "turnon" end sub sub turnon() Userform1.Label13.Visible = True Application.OnTime Now + TimeValue("00:00:01"), "turnoff" end sub Cheers Nigel "dcstech" wrote in message ... I have a label in a userform that I would like to blink. I am using a Do While Loop to do this and it works. The problem is that the userform acts like it is locked up and will not except any input. Here is my code. Thanks for any help. dcstech Do While TextBox3.Text = "" Label13.Visible = True newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 1 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Label13.Visible = False newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 1 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Loop |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing the font for part of an axis label, not the whole label. | Charts and Charting in Excel | |||
How to rezize data label box in pie charts (label wraps to two lin | Charts and Charting in Excel | |||
COPY LABEL FORM FROM EXCEL TO A LABEL | New Users to Excel | |||
how to remove label formatting (eg label to number) | Excel Worksheet Functions | |||
add text to label (label from forms toolbar) | Excel Programming |