Vous n’êtes pas connecté.
Bonjour, visiteur, bienvenue sur les forums Aqua Computer Forum. Si c’est votre première visite, nous vous invitons à consulter l’Aide. Elle vous expliquera le fonctionnement de cette page. Pour avoir accès à toutes les fonctionnalités, vous devez vous inscrire. Pour cela, veuillez utiliser le formulaire d’enregistrement, ou bien lisez plus d’informations sur la procédure d’enregistrement. Si vous êtes déjà enregistré, veuillez vous connecter.

|
|
Code source |
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 |
Citation de "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
-