Hi!
Here is a solution:
*-- Form: form1 (d:\vfp\form1.scx)
*-- ParentClass: form
*-- BaseClass: form
*
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
llvisible = .F.
llfirst = .T.
Name = "FORM1"
ADD OBJECT timer1 AS timer WITH ;
Top = 96, ;
Left = 36, ;
Height = 23, ;
Width = 23, ;
Interval = 3000, ;
Name = "Timer1"
ADD OBJECT image1 AS image WITH ;
Picture = "fox.bmp", ;
BackStyle = 0, ;
Height = 26, ;
Left = 108, ;
Top = 36, ;
Visible = .F., ;
Width = 25, ;
Name = "Image1"
PROCEDURE timer1.Init
thisform.image1.Visible=.f.
ENDPROC
PROCEDURE timer1.Timer
if thisform.llFirst
thisform.llFirst = .f.
return
endif
if !thisform.llvisible
thisform.Image1.Visible = .t.
thisform.llVisible = .t.
else
thisform.Image1.Visible = .f.
thisform.Image1.Enabled = .f.
this.Enabled = .f.
this.Interval=0
endif
ENDPROC
ENDDEFINE
Have a happy day
Vladimir Shevchenko
> I wanted to know the quickest way to have a timer flash an image on & off
> upon activation of the form.
* Human is a question asked by birth and answered by death. Machine is another kind of question with another kind of answer
