Bisherige verstrichene Zeit in Label anzeigen Verfasst am: 15.07.2009, 13:55
So muss heute nun das dritte Mal was nachfragen und zwar möchte ich in meinem Programm gerne die Zeit mitzählen, die schon verstrichen ist, seit dem das Programm läuft. Leider habe ich dazu nichts gefunden. Vllt hat jemand eine Idee.
Habs mal so versucht:
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
zaehler += 1000
lblBisherigeTestzeit.Text = zaehler /1000
If zaehler = 0 Then
Timer1.Stop()
End If
End Sub
so bekomme ich die Sekunden aber wie bekomme ich die Anzeige 00:00 so hin??
Danke im Vorraus
Clarence Newbie
Anmeldedatum: 15.07.2009 Beiträge: 16
Verfasst am: 16.07.2009, 12:06
Also hab rausgefunden wie das funktioniert. Ich stells mal hier rein. Vllt sucht ja mal jemand danach und kanns dann hier nachlesen.
Das funktioniert also mit folgendem Code:
Code:
Public Class Form1
Private StartTime As Date
Timer1.Stop()
End Sub
Private Sub
StartTime = Date.Now
Timer1.Start()
'Code
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Ts As TimeSpan = Date.Now.Subtract(StartTime)
Label1.Text = Ts.Hours.ToString("00") & ":" & _
Ts.Minutes.ToString("00") & ":" & _
Ts.Seconds.ToString("00")
Label1.Refresh()
End Sub
End Class
Clarence Newbie
Anmeldedatum: 15.07.2009 Beiträge: 16
Verfasst am: 16.07.2009, 12:08
Sorry habs ausversehen weggeschickt.
So sollte das ganze aussehen : )
Code:
Public Class Form1
Private StartTime As Date
Private Sub
StartTime = Date.Now
Timer1.Start()
'Code
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Ts As TimeSpan = Date.Now.Subtract(StartTime)
Label1.Text = Ts.Hours.ToString("00") & ":" & _
Ts.Minutes.ToString("00") & ":" & _
Ts.Seconds.ToString("00")
Label1.Refresh()
End Sub
End Class
Registrieren
Login
