Ayuda timer

fran
27 de Octubre del 2005
Hola
Necesito que mi programa, al pulsar un botón, empiece a realizar una serie de cálculos después de que haya pasado un tiempo (por ejemplo 2segundos), y no consigo hacer que funcione.

Por favor, echadme una mano y escribidme el código que tengo que implementar, seguro que será una tontería pero es que no consigo hacerlo.

Gracias.

mvallejos
27 de Octubre del 2005
No se entiende muy bien, lo que yo interpreto es que una vez pulsado el botón, que espere 2 segundos y empiece con los cálculos.
Yo usaría un bucle previo usando la función Timer. esta función te retorna la cantidad de segundos transcurridos desde las 0 horas

Private Sub Command1_Click()
Dim Ini as Long
Dim Fin as Long

Ini = Timer
Fin = Ini
Do While (Fin - Ini) < 2 -- 2 segundos
Fin = Timer
Loop
< acá se empezarían a hacer los calculos>

Espero que sirva

Saludos