¿Abrir un formulario en POR segundos?
Hola, no sé si es muy sencillo pero mi caso es el siguiente:
Tengo un Form1 abierto, lo que quiero es que pasen 5 segundos (Ejemplo) y se abra otro formulario automáticamente, sin pulsar ningún botón...
Necesito estudiarlo para aprender a terminar mi aplicación... Uso Visual Basic 6
PD.: No se explicarme muy bien... Para que te des una idea sería algo como:
Private Sub Form_Load()
****ESPERAR 5 segundos****
Form2.Show 1
End Sub
Si me ayudas te lo agradecería !
Saludos
Tengo un Form1 abierto, lo que quiero es que pasen 5 segundos (Ejemplo) y se abra otro formulario automáticamente, sin pulsar ningún botón...
Necesito estudiarlo para aprender a terminar mi aplicación... Uso Visual Basic 6
PD.: No se explicarme muy bien... Para que te des una idea sería algo como:
Private Sub Form_Load()
****ESPERAR 5 segundos****
Form2.Show 1
End Sub
Si me ayudas te lo agradecería !
Saludos
1 Respuesta
Respuesta
1
Acá te doy una solución bastante sencilla:
' Creamos un procedimiento el cual se encargara de medir el timpo que desees
' Este procedimiento lo puse como publico para que lo pongas en un modulo y lo llames en cualquier momento.
Public Sub Esperar(ByVal SegundoE As Integer)
Dim Tiempo As Date, STiempo As Date
PTiempo = Second(Now)
STiempo = PTiempo + SegundoE
Do
DoEvents
Loop While STiempo > Second(Now)
End Sub
' Luego lo llamamos desde el evento Activate del primer formulario ya que si lo colocal en el evento load despues de los 5 segundo recien apareceran los dos formularios en cambio en el Activate se carga el primer formulario y despues de 5 segundo se carga el sefundo formulario.
Private Sub Form_Activate()
Esperar 5
Form2.Show
End Sub
' Creamos un procedimiento el cual se encargara de medir el timpo que desees
' Este procedimiento lo puse como publico para que lo pongas en un modulo y lo llames en cualquier momento.
Public Sub Esperar(ByVal SegundoE As Integer)
Dim Tiempo As Date, STiempo As Date
PTiempo = Second(Now)
STiempo = PTiempo + SegundoE
Do
DoEvents
Loop While STiempo > Second(Now)
End Sub
' Luego lo llamamos desde el evento Activate del primer formulario ya que si lo colocal en el evento load despues de los 5 segundo recien apareceran los dos formularios en cambio en el Activate se carga el primer formulario y despues de 5 segundo se carga el sefundo formulario.
Private Sub Form_Activate()
Esperar 5
Form2.Show
End Sub