MAR
15 de Enero del 2004

Hola de nuevo a todos.
Estoy un poco dándole vueltas y no me sale a la siguiente cuestión: quiero que transcurridos 5 sg después de pulsar enter, me refresque unos datos de un formulario y los ponga en blanco. Hasta ahí bien, pero cómo. He probado con bucles del tipo:
tiempo1 = CDate(Label5.Caption)
salida = False
Do While salida = False
tiempo2 = Time
If tiempo2 >= tiempo1 + CDate("00:00:5") Then
salida = True
End If
Loop

donde label5 es un reloj digital (pone la hora cada sg)
En fin que creo que ya estoy tan liada que no veo nada, si alguien puede decirme cómo se lo agradeceré.
Saludossss

Thessen
15 de Enero del 2004

Puedes declararte la función sleep, que lo que hace es dejar tu programa en espera el tiempo que le indicas en el parámetro. Su declaración es :

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

recuerda que el tiempo es en milisegundos. Espero que te sirva, un saludo.

MAR
15 de Enero del 2004

Muchas graciassss!
Funcionó y su durmió como un bebé ;)

sdemingo
15 de Enero del 2004

No había visto tu respuesta Thessen ;-)

sdemingo
15 de Enero del 2004

' El ejemplo necesita un botón
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Me.Caption = "Tu máquina se dormirá durante 5 segundos."
'Para 5 segundos
Sleep 5000
Me.Caption = ""
End Sub
Private Sub Form_Load()
Me.Caption = ""
Command1.Caption = "Duerme ..."
End Sub


Saludos
sdemingo