Article ID: 194202
Article Last Modified on 12/11/1999
PROCEDURE object1.INTERVAL_Access
RETURN THIS.INTERVAL
ENDPROC
In the rare instance where you need to return a value other than the
property's value, changing the value of the property, and returning the
property ensures that you are storing the value for future comparison.
*******Begin Sample Code************
PUBLIC oDS
oDS=CREATEOBJECT("test")
oDS.SHOW
READ EVENTS
USE
RELEASE oDS
DEFINE CLASS test AS FORM
DOCREATE = .T.
CAPTION = "Now Testing Access for Object TIMER"
ADD OBJECT object1 AS TIMER
ADD OBJECT btnClose AS COMMANDBUTTON
PROCEDURE object1.INTERVAL_access
RETURN
ENDPROC
PROCEDURE btnClose.CLICK
CLEAR EVENTS
RELE THISFORM
ENDPROC
ENDDEFINE
*********End Sample Code********
Additional query words: kbVFp600 kbOOP
Keywords: kbprb kbcode KB194202