13/12/2006, 13:53
|
| | | Fecha de Ingreso: noviembre-2004 Ubicación: Corrientes, Arg.
Mensajes: 129
Antigüedad: 19 años, 5 meses Puntos: 0 | |
| Re: Como usar el control timer ??
Al control Timer tienes que establecerle la propiedad Interval al tiempo deseado, en milisegundos, luego ponerlo en marcha (Enabled = True) cuando sea necesario, pararlo (Enabled = False) etc.
Para lapsos de espera prefiero usar esto:
-----------------------------
Public Sub ESPERAR(S As Single)
Dim T1 As Single
T1 = Timer
Do While T1 + S > Timer
DoEvents
Loop
End Sub
-----------------------------
Debe estar en un módulo, para accederla desde cualquier parte del proyecto. En tu caso le dices
ESPERAR 30
o
Call ESPERAR(30)
y eso es todo.
Te hago notar la presencia de DoEvents dentro del Do While / Loop. Es necesaria para que mientras espera que se cumpla el tiempo puedan ejecutarse otros eventos de otros programas, de otra forma la PC te queda colgada hasta que se cumpla el tiempo. |