hacer pausas?

[rugBy_02]

¿se pueden hacer pausas en vb?

por ejemplo si quieres que salga un msgbox y a los 5 segundos otro, tipo el ping de batch


gracias de antemano

[naderST]

usa la api Sleep

Código [Seleccionar] Expandir


Option Explicit

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

Private Sub Form_Load()
    MsgBox "1"
    Sleep 5000 '5 Segundos
    DoEvents
    MsgBox "2"
End Sub


[seba123neo]

tambien podes usar GetTickCount() ,y esto evita que se te trabe toda la aplicación como sucede con Sleep...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Command1_Click()
Dim retraso As Long
MsgBox "1"
retraso = 5000 + GetTickCount&
While retraso >= GetTickCount&
   DoEvents
Wend
MsgBox "2"
End Sub

saludos.

[rugBy_02]

la verdad esque con sleep iva mas lento pero gracias de todas formas a los 2