Programación General > Visual Basic 6.0 e inferiores

 Un Retardo Para Una Aplicacion

<< < (3/3)

Cyclop:
Prueba con esto


--- Código: Text ---Private Declare Function GetTickCount& Lib &#34;kernel32&#34; () Private Sub Pausa()    ret& = GetTickCount&    ' Esperar hasta que cumpla los 2 minutos    Do While (ret& / 60000) &#60;= 2         ret& = GetTickCount&    LoopEnd Sub  
Salu2

Cyclopz

richard2348:
:hola: Hola amigos, encontre por ahi algo sencillo y que ha servido a mi proyecto aqui les dejo:

Private Sub Pausa()
Dim controlar
Dim comenzar
comenzar = Timer
Do Until controlar >= comenzar + 0.1
controlar = Timer
'DoEvents
Loop
End Sub

Gracias por su apoyo, Saludos a todos
 :hola:

Navegación

[0] Índice de Mensajes

[*] Página Anterior