Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to get some output in a text box Blinking

Status
Not open for further replies.

isha

MIS
Mar 7, 2002
216
IN
I am showing some output say "Your complaint Number" in a text box in a form. I want to get it blinking. Can someone tell me how is it possible?
Thanks.
 
One approach is to use a Timer control. Set up the Timer with the interval to match the desired rate of blink. Inside the Timer Event handler, swap the foreground and background colors of the textbox, and refresh the textbox.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein
 
timer1.enabled=false
timer1.interval=50 'or whatever

in textbox_lostfocus()
timer1.enabled=(textbox.text="")
end sub

in Timer1_Timer()
if val(textbox.tag)=10 then
textbox.tag=0
textbox.backcolor=white
exit sub
end if
if textbox.backcolor=red then
textbox.backcolor=white
else
textbox.backcolor=red
end if
textbox.tag=val(textbox.tag)+1
end sub

something like that :)

®od

®od
 
forgot:

if val(textbox.tag)=10 then
timer1.enabled=false

textbox.tag=0
textbox.backcolor=white
exit sub
end if


®od
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top