Affichage, dans la barre de titre, de la durée d'executer dee l'application

Commenter

Contenu du snippet

Ce code permet d'afficher la durée depuis laquelle l'application est ouverte.

Ce code est ridicule mais apporte une petite vie a vos appli ;)

ajouter juste un Timer et F5.

Source / Exemple : 


Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim depart As Long

Public Function Duree(Total As Long) As String
Dim a As String
Total = Total / 1000
If ((Total) / 3600) > 1 Then
    a = Int(Total / 3600)
    Duree = 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)
        Duree = a & " Mins " & Int(Total - (a * 60)) & " Secs"
    Else
        Duree = Int(Total) & " Secs"
    End If
End If
End Function

Private Sub Timer1_Timer()
    Form1.Caption = "Appli ouverte depuis " & Duree(GetTickCount - depart)
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
depart = GetTickCount
End Sub

A voir également

S'inscrire maintenant

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.

Du même auteur (VbAbdoul)