Text Flashing

[itsmario]

Hello,

I want to do a sort of text effect in VB6 I have seen it done before where the text will flash from white to red, white to red, white to red etc...

I am not sure of the coding though?

Thanks

[ZeroCool]

I A TextBox?

[The Hobo]

For a textbox (you need a timer):

Private Sub Timer1_Timer()
  If Text1.ForeColor = vbRed Then
    Text1.ForeColor = vbBlack
  Else
    Text1.ForeColor = vbRed
  End If
End Sub
 
Private Sub Form_Load()
  Timer1.Interval = 10
End Sub

[The Hobo]

For a label, just replace Text1 with Label1, or whatever the name of the label is.

[itsmario]

that just made the label text 1 color? I want the word to be flashing white red white red white red on and on....

[ZeroCool]

The Hobo Did It Right The text was just changing to fast for you to notice:

Private Sub Timer1_Timer()
  If Text1.ForeColor = vbRed Then
    Text1.ForeColor = vbWhite
  Else
    Text1.ForeColor = vbRed
  End If
End Sub
 
Private Sub Form_Load()
  Timer1.Interval = 100
End Sub

Just Keep Changing The Timer1.Interval Property untill you have have it the way you like

[The Hobo]

Originally posted by ZeroCool
The Hobo Did It Right The text was just changing to fast for you to notice

I Guess I have a slow processor. Or eagle eyes.

[Kronix]

Hmm, I always thought the timer was measured in milliseconds. Wouldn't it be independent of the processor?

If not, I'm going to need to change my code.

[BuggyProgrammer]

if you have a slow processor and you have other tasks running from your app or other, then it would maybe sometimes skip a few times.

[The Hobo]

Originally posted by BuggyProgrammer
if you have a slow processor and you have other tasks running from your app or other, then it would maybe sometimes skip a few times.

Actually, I was just joking, but yeah...see above.