Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Timers not firing
Message
From
15/03/2004 11:26:04
 
 
To
15/03/2004 10:53:10
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00885366
Message ID:
00886334
Views:
17
Hi Steve,

>I am a little familiar with this timer however, how can I use it to manipulate a Label on my main form?

A quickie from the class browser:
PUBLIC ofrm1

ofrm1=NEWOBJECT("frm1")
ofrm1.Show
RETURN


	**************************************************
*-- Form:         form1 (c:\program files\microsoft visual foxpro 8\timefll.scx)
*-- ParentClass:  form 
*-- BaseClass:    form
*-- Time Stamp:   03/15/04 11:20:06 AM
*
DEFINE CLASS frm1 AS form


	Top = 0
	Left = 0
	Height = 117
	Width = 318
	DoCreate = .T.
	Name = "Frm1"


	ADD OBJECT label1 AS label WITH ;
		Caption = "Testing", ;
		Height = 17, ;
		Left = 24, ;
		Top = 36, ;
		Width = 40, ;
		Name = "Label1"


	PROCEDURE myfunc
		THISFORM.label1.VISIBLE = !THISFORM.label1.VISIBLE
	ENDPROC


	PROCEDURE Destroy
		=killtimers()
		SET LIBRARY TO
	ENDPROC


	PROCEDURE Init
		SET LIBRARY TO c:\vfpstuff\timers\cpptimer.fll
		=InitTimers(1,20)
		=SetupTimer(1,1000,"_vfp.activeform.myfunc()")
	ENDPROC


ENDDEFINE
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform