Flashing text in buttons

[cdeane]

I need some basic code to make the text in my buttons to flash on and off.
Ex: blue to red and back every second.

 

[taximania]

Here's a start. I'm sure using one of the libraries you can adjust the Border colours.

Sub Globals
   'Declare the global variables here.
   flag=0
End Sub

Sub App_Start
   Form1.Show
   button1.FontColor=cred
   timer1.Enabled=true
End Sub


Sub Timer1_Tick
   If flag=0 Then
   button1.FontColor=cblue
   flag=1
   Return
   End If
   If flag=1 Then
   button1.FontColor=cred
   flag=0
   Return
   End If
   

End Sub

 

[Erel]

Small modification for developers who like short code:

Sub Globals
   'Declare the global variables here.
End Sub

Sub App_Start
   Form1.Show
   button1.FontColor=cred
   timer1.Enabled=true
End Sub


Sub Timer1_Tick
   If button1.FontColor = cRed then button1.FontColor = cBlue else button1.FontColor = cRed
End Sub

 

[cdeane]

Great

Thanks a lot to all.

 

[taximania]

Small modification for developers who like short code:

I hate If ... Else ... 1 liners.
They never work for me

 

[Cableguy]

I hate If ... Else ... 1 liners.
They never work for me

I share your hate my friend.....

Try some yoga before using it, it works for me.....

 

[taximania]

Ha ha ha, try some beer .....:sign0060:

Hi Paulo