FUNCAO PARA AGUARDAR

FUTURA 28/09/2011 13:54:18
#385480
preciso de uma função que aguarde um tempo para chamar uma próxima função, daria pra fazer com um timer ?
DANIELCPAETE 28/09/2011 14:23:23
#385481
você poderia usar a api sleep mas ela tranca a aplicação enquanto o tempo estiver correndo.
GANDA.NICK 28/09/2011 14:50:03
#385483 Resposta escolhida
olá, esta nao tranca a aplicação:


  Public Declare Function GetTickCount Lib [Ô]kernel32[Ô] () As Long
Dim lngTickStore As Long

Public Sub SlowDown(Delay)
lngTickStore = GetTickCount()
    Do While lngTickStore + Delay > GetTickCount()
        DoEvents
    Loop
End Sub 




 SlowDown (2000) [ô]2 segundos
FUTURA 28/09/2011 16:59:16
#385494
caraca...muito bom...valeu ganda..
Tópico encerrado , respostas não são mais permitidas
Voltar