FAQ's de VB6

[lic_dahool]

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