Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: rugBy_02 en 2 Agosto 2008, 01:26 AM

Título: hacer pausas?
Publicado por: rugBy_02 en 2 Agosto 2008, 01:26 AM
¿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
Título: Re: hacer pausas?
Publicado por: naderST en 2 Agosto 2008, 01:31 AM
usa la api Sleep


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
Título: Re: hacer pausas?
Publicado por: seba123neo en 2 Agosto 2008, 01:36 AM
tambien podes usar GetTickCount() ,y esto evita que se te trabe toda la aplicación como sucede con Sleep...

Código (vb) [Seleccionar]
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.
Título: Re: hacer pausas?
Publicado por: rugBy_02 en 2 Agosto 2008, 01:42 AM
la verdad esque con sleep iva mas lento pero gracias de todas formas a los 2