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]

Originally Posted by Erel

Small modification for developers who like short code:

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

[Cableguy]

Originally Posted by taximania

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 .....

Hi Paulo