Sie sind nicht angemeldet.
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Private Declare Function GetTickCount& Lib "Kernel32" () Private Sub Timer1_Timer() MS = GetTickCount() SekGesamt = MS \ 1000 Std = (SekGesamt \ 3600) Min = (SekGesamt - (Std * 3600)) \ 60 Sek = (SekGesamt - (Std * 3600) - (Min * 60)) t = Format(Std, "00") & ":" & Format(Min, "00") & _ ":" & Format(Sek, "00") Label1.Caption = t End Sub |
Zitat von »Al_Borland«
bei xp wird zwar ne liste erstellt, die kriegt man aber nicht zu gesicht, weil sich das fenster sofort schliesst, wenn alle info's zusammengetragen sind... ;D
-