AFFICHAGE, DANS LA BARRE DE TITRE, DE LA DURÉE D'EXECUTER DEE L'APPLICATION

Signaler
Messages postés
33
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
25 août 2004
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/18631-affichage-dans-la-barre-de-titre-de-la-duree-d-executer-dee-l-application

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
Angie, est-ce que tu as une fenêtre modale, affichée ???
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
Ton code pourrais se résumer comme ca :

Public Sub TimeFromLaunch(ByRef H, ByRef M, ByRef S)
Static Depart As Long: If Depart 0 Then Depart Timer
Dim InSeconds As Long: InSeconds = Timer - Depart
H = Format(InSeconds 3600, "00")
M = Format((InSeconds 60) - H * 60, "00")
S = Format(InSeconds - 3600 * H - 60 * M, "00")
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1000
Dim H As String, M As String, S As String
Call TimeFromLaunch(H, M, S)
Form1.Caption = "Appli ouverte depuis " & IIf(H <> "00", H & " Heures ", vbNullString) & M & " Min " & S & " Sec"
End Sub


J'ai modifié la procédure (elle stocke elle même "Départ") et renvoie Heures , Minutes et Secondes, ce qui laisse la liberté d'en faire ce qu'on veux.....

Petit truc , Int(Total / 3600) ce dit tout simplement : Total 3600

une division avec le symbole "" est en effet une division entière....
Messages postés
33
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
25 août 2004

Coucou!!
Bah simpa le code oui ca donne une petit + aussi je travail en Mdi et j'ai beau avoir mit :
liste.Status(1).text = "Appli ouverte depuis " & Duree(GetTickCount - depart)
>> ici ma form/status/(panel 1)
Si tu c pk ca ne marche pas :( ossi g mit ca dans un autre time a true et a 0
Merci sinon c t bien sympa merci de me repondre
Angie :)