Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Blank en Domingo 12 de Noviembre de 2006, 21:17
Título: Timer
Publicado por: Blank en Domingo 12 de Noviembre de 2006, 21:17
Buenas tardes, quiesiera ver si me pueden ayudar, ya que soy nueva en el mundo de la programación y estos tratandod de realizar una aplicación y ya hice mi primeros formularios, y no lo veo complicado, pero me salio una duda en la que quiero que despues de registrame me aparesca otro formulario por espacio de unos 3 segundos y desparesca, he estado viendo el timer, pero no logro entender como hacerlo funcionar de la manera que quiero. lo que llevo mas o menos es asi
Private Sub Form_Load() Timer1.Interval = 10000
If Timer1.Interval = 10000 Then Form2.Show Unload Me End If End Sub
si alguien me puede ayudar estare muy agradecida. gracias
Título: Re: Timer
Publicado por: ArKaNtOs en Domingo 12 de Noviembre de 2006, 21:29
hola primero un comentario, interval es una propiedad del timer para establecer en que intervalo de tiempo se el evento timer, otra cosa mas este intervalo esta establecido en milisegundos, osea que si tu le estableces 1000 al interval se ha de ejecutar el evento cada segundo, por ejemplo para lo que quieres hacer seria algo así:
Código: Text
Dim x As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
Form1.Show
x = 1
End Sub
Private Sub Timer1_Timer()
x = x + 1
If x = 3 Then
Unload Form1
End If
End Sub
espero entiendas el codigo que realmente esta muy sencillo, por ultimo basta decir que estudies un poco más :)
Título: Re: Timer
Publicado por: F_Tanori en Domingo 12 de Noviembre de 2006, 21:34
Código: Text
Private Sub Command1_Click()
Timer1.Interval = 3000
form2.show
End Sub
Private Sub Timer1_Timer()
Unload form2
timer1.enabled=false 'detener el timer si es necesario
End Sub
:ph34r:
Título: Re: Timer
Publicado por: Blank en Lunes 13 de Noviembre de 2006, 04:22
:D Listo, muchas gracias a los dos, por el interes mostrado aun checando sus codidgos me resultaba la acción que quería pero ya ahi moviendole y utilizando parte de las dos aportaciones que me hicieron logre realizar lo que tenía previsto, gracias y espero aprender lo mas pronto posible para yo tambien aportar, nos vemos pronto. :P