Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Timer prob
Message
 
To
08/07/1997 12:58:03
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00038918
Message ID:
00038991
Views:
44
>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
Thanks Vladimir
Do you actually program hardcode all this. I started it by clicking & dragging mostly with the mouse. I finally got it when your message came thru but I do have 1 problem. When going to the next screen I get a "row or position is off screen" . I think I need to hide something.
Wehn you say "thisform.image1.Visible=.f.", what is image1? The actually name of the image file?
thanks
"Build a man a fire, and he's warm for a day.
Set a man on fire, and he's warm for the rest of his life."
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform