Fermer l'application au bout d'une heure

Résolu
Signaler
Messages postés
31
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
8 octobre 2009
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour, je code en VB6.

Je souhaiterais savoir comment forcer le fermeture de mon apllication au bout d' 1 heure par exemple, la fonction timer ne me permer pas d'aller plus loin qu'un minute.

merci pour vos réponses.

2 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,





voici sans passer par le systray :






Option Explicit

'

Private Sub Form_Load()

Timer1.Interval = 60000

Timer1.Enabled = True

End Sub

'

Private Sub Timer1_Timer()

Static iCpt As Integer

iCpt = iCpt + 1

If iCpt = 60 Then

Timer1.Enabled = False

MsgBox "Temps d'utilisation expiré", vbExclamation, _

"Fermeture de l'application"

Unload Me

End If

End Sub




<small> Coloration
syntaxique automatique [AFCK]</small>



PCPT [AFCK]
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
256
Date d'inscription
jeudi 17 avril 2003
Statut
Membre
Dernière intervention
20 février 2008
1
regarde les sources de sys tray.
tu mets ton prog dans le tray, puis toutes les secondes tu vérifies si hour = heur_deb + 1 et là ben tu fais End
A+.
Thomas.