AYUDA CON TIMER
Publicado por ANDRES (72 intervenciones) el 30/03/2007 23:23:17
HOLA TENGO ESTE CODIGO
formulario=CREATEOBJECT("miformu")
formulario.VISIBLE=.T.
READ EVENTS
DEFINE CLASS miformu AS FORM
AUTOCENTER=.T.
HEIGHT=130
WIDTH=250
CAPTION="Ejemplo de cronometro"
ADD OBJECT reloj AS TIMER
ADD OBJECT texto AS TEXTBOX WITH ;
TOP=50, LEFT=50
PROCEDURE DESTROY
CLEAR EVENTS
ENDPROC
PROCEDURE texto.INIT
THIS.VALUE=TIME()
ENDPROC
PROCEDURE reloj.INIT
THIS.INTERVAL=500
ENDPROC
PROCEDURE reloj.TIMER
THISFORM.texto.INIT
ENDPROC
ENDDEFINE
COMO HAGO PARA CARGARLO A UN FORMULARIO QUE YA EXISTE EN MI APLICACION Y NO CREARLO COMO ESTA HAY CON EL CREATEOBJECT O SEA QUE SERIA QUE EN MI FORM ME CREARA EL TEXT Y LA HORA RESPECTIVAMENTE LA CUAL ES LA QUE HACE EL CODIGO
formulario=CREATEOBJECT("miformu")
formulario.VISIBLE=.T.
READ EVENTS
DEFINE CLASS miformu AS FORM
AUTOCENTER=.T.
HEIGHT=130
WIDTH=250
CAPTION="Ejemplo de cronometro"
ADD OBJECT reloj AS TIMER
ADD OBJECT texto AS TEXTBOX WITH ;
TOP=50, LEFT=50
PROCEDURE DESTROY
CLEAR EVENTS
ENDPROC
PROCEDURE texto.INIT
THIS.VALUE=TIME()
ENDPROC
PROCEDURE reloj.INIT
THIS.INTERVAL=500
ENDPROC
PROCEDURE reloj.TIMER
THISFORM.texto.INIT
ENDPROC
ENDDEFINE
COMO HAGO PARA CARGARLO A UN FORMULARIO QUE YA EXISTE EN MI APLICACION Y NO CREARLO COMO ESTA HAY CON EL CREATEOBJECT O SEA QUE SERIA QUE EN MI FORM ME CREARA EL TEXT Y LA HORA RESPECTIVAMENTE LA CUAL ES LA QUE HACE EL CODIGO
Valora esta pregunta


0