CRONOMETRO REGRESSIVO
Amigos tenho este timer regressivo e gostaria de acresentar um botao para aumentar ou diminuir o valor do timer (no timer se encontra com 15:00) gostaria de acressentar o tempo de 10:00 - 09:00 - 08:00 07:00 .....em minutos).
Desde já agradeço a atenção dos experts de plantao.
Abraços
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim NovaData As DateTime = DateTime.Parse([Ô]00:[Ô] & Label1.Text)
Label1.Text = NovaData.AddSeconds(-1).ToString([Ô]mm:ss[Ô])
If Label1.Text = [Ô]00:00[Ô] Then
MsgBox([Ô]Fim[Ô])
Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TimeInicio As DateTime = [Ô]00:10:00[Ô]
Label1.Text = TimeInicio.ToString([Ô]mm:ss[Ô])
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Desde já agradeço a atenção dos experts de plantao.
Abraços
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim NovaData As DateTime = DateTime.Parse([Ô]00:[Ô] & Label1.Text)
Label1.Text = NovaData.AddSeconds(-1).ToString([Ô]mm:ss[Ô])
If Label1.Text = [Ô]00:00[Ô] Then
MsgBox([Ô]Fim[Ô])
Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TimeInicio As DateTime = [Ô]00:10:00[Ô]
Label1.Text = TimeInicio.ToString([Ô]mm:ss[Ô])
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Leandro, postei algo para você no tópico que você duplicou.
Tópico encerrado , respostas não são mais permitidas