Control timer

Cristian
24 de Febrero del 2004
como hago para que despues de 10 segundos desaparasca mi formulario

sans2001
24 de Febrero del 2004
Hola Cristian

Pon un objeto timer en tu formulario, cambia la propiedad Interval y ponle un valor de 1000 (es lo que se estima el tiempo de un segundo), y después puedes usar el siguiente código, te recomiendo lo analices y apliques según tu necesidad.

Dim Tiempo

Private Sub Form_Load()
Tiempo=0
Timer1.Enable = True
End Sub

Private Sub Timer1_Timer()
Tiempo = Tiempo + 1
If Tiempo = 10 Then
Unload Me
Exit Sub
end if
End Sub

Con la variable Tiempo, inicias un conteo donde el objeto Timer1 incrementara en uno cada segundo, al llegar a los 10 segundos el mismo objeto Timer aplicará la condición dentro del If.
Ahora bien, yo te lo puse para que después de cargar tu formulario comience el conteo, pero si deseas que este conteo comience después, con alguna otra acción, por ejemplo al oprimir un CommandButton, entonces en este control es donde deberas poner la instrucción que pone a True al Control Timer.

Espero haberte ayudado, cualquier duda que tengas escribeme.

Saludos desde la Ciudad de México.

Jaime Ayala

Cristian
24 de Febrero del 2004
gracias