Visual Basic - Duda sobre Timer

Life is soft - evento anual de software empresarial
 
Vista:

Duda sobre Timer

Publicado por Pablo (19 intervenciones) el 07/04/2006 14:25:18
Hola, desde ya muchas gracias por interezarse en responder mi problema.
Mi problema es el siguiente, quiero declarar un timer desde codigo, sin usar el control timer, y lo que hago es lo siguiente:
====================================================================
Private WithEvents tmr as Timer

Private Sub Form_Load()
tmr.Interval = 1000
tmr.Enabled = True
End Sub

Private Sub tmr_Timer()
label1.Text = "Prueba"
End Sub
====================================================================

Al ejecutar esto visual basic me devuelve un error que dice:

====================================================================
Error 91 en tiempo de ejecución:

Variable de tipo Object o la variable de bloque With no esta establecida
====================================================================

Alguien me podría decir que es lo que tengo que hacer para que esto funcione, Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Duda sobre Timer

Publicado por toni (2 intervenciones) el 07/04/2006 19:00:18
private withevents tmr as new Timer
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Duda sobre Timer

Publicado por Pablo (19 intervenciones) el 07/04/2006 19:20:19
Gracias por responder, pero eso no funciona, ya lo había probado antes y me sale un cartel que dice que el uso de la palabra clave new no es valida.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Usa el Controls.Add !!

Publicado por SemperFiMXL (74 intervenciones) el 08/04/2006 02:26:07
Asi debe trabajar ... Te falta crear el objeto tmr agregandolo a la coleccion Controls de tu proyecto ...

'''''''

Private WithEvents tmr as Timer

Private Sub Form_Load()
Set tmr = Controls.Add("VB.Timer", "tmr")
tmr.Interval = 1000
tmr.Enabled = True
End Sub

Private Sub tmr_Timer()
label1.Text = "Prueba"
End Sub

Private Sub Form_Unload( ...)
Controls.Remove tmr
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

MUCHISIMAS GRACIAS

Publicado por Pablo (19 intervenciones) el 10/04/2006 02:53:55
Muchas gracias, eso era justo lo que necesitaba, saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar