Hi!
I have a timer that makes my components Flash:
inititalisation:
Private sub Button1_click()
Flash_ID = 1
Flash_Timer.Enabled = True
Flash_Timer.Interval = Flash_Interval
End sub
Private Sub Flash_Timer_Timer()
MakeFlash (Flash_ID)
End Sub
MakeFlash is a sub that is placed in a module.
In this sub it checks the value of Flash_ID so that it knows what to do.
eg.:
Case 1
If frmMain.Button1.BackColor = &H8000000F Then
frmMain.Button1.BackColor = vbRed
Else
frmMain.Button1.BackColor = &H8000000F
End If
frmMain is the name of the form where my components are placed.
My buttons don't flash!! If I place this code on the form it works. What do I need to do?
Thanx in advance!
I have a timer that makes my components Flash:
inititalisation:
Private sub Button1_click()
Flash_ID = 1
Flash_Timer.Enabled = True
Flash_Timer.Interval = Flash_Interval
End sub
Private Sub Flash_Timer_Timer()
MakeFlash (Flash_ID)
End Sub
MakeFlash is a sub that is placed in a module.
In this sub it checks the value of Flash_ID so that it knows what to do.
eg.:
Case 1
If frmMain.Button1.BackColor = &H8000000F Then
frmMain.Button1.BackColor = vbRed
Else
frmMain.Button1.BackColor = &H8000000F
End If
frmMain is the name of the form where my components are placed.
My buttons don't flash!! If I place this code on the form it works. What do I need to do?
Thanx in advance!