Time

[_Vb_N00bie_]

Ok I dont know if you use a timer or what not but in a label I want the time to count up. When Command button 1 is clicked it will start the time until it is stopped. So starting at 0 hours, 0 minutes, 0 seconds I want it to go up until it is stopped... So how would I do something like this? Well please reply with some feedback as its very much appreciated and happ v-day everyone

[bbressler]

You can use a timer control......

Add one to your form, then set it's interval to 1000, and enabled to false

Private Sub Command1_Click()
If Timer1.Enabled = True Then
    Timer1.Enabled = False
    Exit Sub
End If
 
Label1.Caption = "00:00:00"
Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
     Label1.Caption = DateAdd("s", 1, Label1.Caption)
     Label1.Caption = Format(Label1.Caption, "hh:mm:ss")
     Label1.Refresh
 
End Sub

[_Vb_N00bie_]

Originally posted by bbressler
You can use a timer control......

Add one to your form, then set it's interval to 1000, and enabled to false

Private Sub Command1_Click()
If Timer1.Enabled = True Then
    Timer1.Enabled = False
    Exit Sub
End If
 
Label1.Caption = "00:00:00"
Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
     Label1.Caption = DateAdd("s", 1, Label1.Caption)
     Label1.Caption = Format(Label1.Caption, "hh:mm:ss")
     Label1.Refresh
 
End Sub

Lol wow damn fast and very well explained bro thanks very much I appreciate it a lot happ v-day