03/03/2005, 20:07
|
| | | Fecha de Ingreso: noviembre-2003
Mensajes: 418
Antigüedad: 20 años, 11 meses Puntos: 0 | |
Cita:
Iniciado por GeoAvila Pregunta :
¿Como esperar X segundos?
Respuesta : Una forma de esperar un número determinado de segundos.
Código:
'Si se quiere usar de forma GLOBAL, insertarlo en un Módulo BAS y declararlo como público
Código:
Private Sub Wait(ByVal nSec As Integer)
'Esperar un número de segundos
Dim t1 As Date, t2 As Date
t1 = Second(Now)
t2 = t1 + nSec
Do
DoEvents
Loop While t2 > Second(Now)
End Sub
Código:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Esperar 5000 milisegundos
Sleep 5000
__________________ La cantidad total de inteligencia del planeta permanece constante.
La población, sin embargo, sigue aumentando. COLE :cool: Los ordenadores no resuelven problemas ... ejecutan soluciones.Laurent Gasser Tienes alguna duda :pensando: ? >>> www.google.com :aplauso: <<< |