¿Cómo hago para que un formulario me ejecute una función segundos después de abrirse?
¿Cómo hago apra que después de abierto un formulario me ejecute una función después de, por ejemplo, 3 segundos?
1 respuesta
Respuesta de ifrancoz
1
Esto lo encontré en un artículo de trucos de Visual Basic
Un sencillo Cronómetro
Para ejecutar un lapso de tiempo por (por ejemplo 5 segundos), escribir el siguiente código en un Modulo Nuevo:
Public Sub Esperar(Tiempo as Single)
Dim ComienzoTiempo as Single
Dim FinTiempo as Single
ComienzoTiempo = Timer
FinTiempo = ComienzoTiempo + Tiempo
Do While FinTiempo > Timer
Do Events
If ComienzoTiempo > Timer Then
FinTiempo = FinTiempo - 24 * 60 * 60
End If
Loop
End Sub
Para "llamarlo" desde un Form común, colocar (por ejemplo, en el evento Click)
Esperar(5)
' En tu caso lo llamarías una vez que cargas el formulario y sería algo así:
Esperar (3)
Suerte !
Un sencillo Cronómetro
Para ejecutar un lapso de tiempo por (por ejemplo 5 segundos), escribir el siguiente código en un Modulo Nuevo:
Public Sub Esperar(Tiempo as Single)
Dim ComienzoTiempo as Single
Dim FinTiempo as Single
ComienzoTiempo = Timer
FinTiempo = ComienzoTiempo + Tiempo
Do While FinTiempo > Timer
Do Events
If ComienzoTiempo > Timer Then
FinTiempo = FinTiempo - 24 * 60 * 60
End If
Loop
End Sub
Para "llamarlo" desde un Form común, colocar (por ejemplo, en el evento Click)
Esperar(5)
' En tu caso lo llamarías una vez que cargas el formulario y sería algo así:
Esperar (3)
Suerte !
