Zeit (timer) in textbox resetten? Verfasst am: 02.06.2009, 08:20
Tach Leutz,
ich hoffen ihr könnt mir helfen, denn ich bin am verzweifeln... suche schon seid stunden nach der lösung aber kann nichts finden.
Hier mein problem:
habe eine stoppuhr gebastelt, die eine zeit startet (00:00:00) (start button) und in einer textbox anzeigt (habe eine textbox gewählt da ich per button die rundenzeiten in eine listbox einfügen möchte (was auch schon funktioniert).
ich hätte aber gerne dass die zeit jedes mal wieder von vorne anfängt zu zählen wenn ich auf den button (laps) klicke.
bei mir läuft die zeit einfach weiter... und ich komme einfach nicht dahinter warum!
wenn der code jetzt etwas komisch aussieht und bei einigen von euch augenkrebs verursacht, möchte ich mich an dieser stelle schon entschuldigen, aber ich habe schon sehr lange kein VB6 mehr praktiziert
hier mal der code:
Code:
Public Start1 As Date
Private Sub Command13_Click()
Dim Lap1 As String
Lap1 = Text1.Text
List1.AddItem Text1.Text
End Sub
Private Sub Command17_Click()
Dim strPath As String
On Error Resume Next
MkDir "c:\Time"
Kill "c:\Time\*.*"
On Error GoTo 0
End Sub
Private Sub Command5_Click()
TrZ = "|"
FNr = FreeFile
Open "C:\Time\Auto1.text" For Output As #FNr
For i = 0 To List1.ListCount - 1
If i < List1.ListCount - 1 Then
Print #FNr, List1.ItemData(i) & TrZ & List1.List(i);
End If
Next
Close #FNr
End Sub
Private Sub Command9_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Start1 = CDate(CStr(Date) & " 00:00:00")
End Sub
Private Sub Timer1_Timer()
Static zait1 As Long
Dim n As Date
zait1 = zait1 + 1
n = DateAdd("s", zait1, Start1)
Text1.Text = Format(n, "hh:mm:ss")
End Sub
Registrieren
Login
