Je sais que ce code est très simple, mais bien souvent les gens utilise un timer réglé a 1000 MS. Mais cette astuce est mauvaise puisque le timer en VB est pas très précis (Tester sur Win9x et ensuite sur 2k/XP c'est déchirant)
Source / Exemple :
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim depart As Long
Public Function Sec2time(Total As Long) As String
Dim a As String
Total = Total / 1000
If ((Total) / 3600) > 1 Then
a = Int(Total / 3600)
Sec2time = a & " Heures " & Int((Total / 60) - (a * 60)) & " Mins " & Int((Total) - (a * 3600) - (Int(((Total) / 60) - (a * 60)) * 60)) & " Secs"
Else
If (Total / 60) > 1 Then
a = Int(Total / 60)
Sec2time = a & " Mins " & Int(Total - (a * 60)) & " Secs"
Else
Sec2time = Int(Total) & " Secs"
End If
End If
End Function
Private Sub Form_Load()
depart = GetTickCount
End Sub
Private Sub TimRefresh_Timer()
Label1.Caption = "Appli ouverte depuis " & Sec2time(GetTickCount - depart)
Label2.Caption = "La machine est ouverte depuis " & Sec2time(GetTickCount)
End Sub
Conclusion :
www.psycomaxter.fr.st <= Nouvelle version
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.