Cuenta atrás

08/08/2005 - 11:59 por Dudoso | Informe spam
hola necesito hacer una cuenta atrás. la estoy haciendo con un timer y
necesito que la cuenta atrás,segundo a segundo, aparezca en un label. El
problema es que no se capturar esa cuenta atrás.
 

Leer las respuestas

#1 Diego Cofré
08/08/2005 - 16:51 | Informe spam
El evento elapsed del timer se dispara cada vez que se cumple el intervalo
de tiempo configuarado en su propiedad Interval. Lo que podrias hacer es
mantener un contador que cada vez que se produzca el evento reste 1 y
actualice el label. Quedaria algo asi:

'Declarar el contador y el timer

Dim Counter As Int32 = 10

Dim WithEvents _Tmr As New System.Timers.Timer



Private Sub _Tmr_Elapsed(ByVal sender As Object, ByVal e As
System.Timers.ElapsedEventArgs) Handles _Tmr.Elapsed

Counter -= 1

Me.Label1.Text = Counter.ToString

If Counter = 0 Then

MessageBox.Show("Despegue!!")

Me._Tmr.Stop()

End If

End Sub

Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles MyBase.Load

Me.Label1.Text = Counter.ToString

Me._Tmr.Interval = 1000

Me._Tmr.Start()

End Sub

Espero que te sirva
Saludos
Diego

Preguntas similares