Fermer l'application au bout d'une heure

Résolu
by2k Messages postés 31 Date d'inscription samedi 28 février 2004 Statut Membre Dernière intervention 8 octobre 2009 - 26 janv. 2006 à 08:34
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 26 janv. 2006 à 10:28
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

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
26 janv. 2006 à 10:28
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
jannoman Messages postés 256 Date d'inscription jeudi 17 avril 2003 Statut Membre Dernière intervention 20 février 2008 1
26 janv. 2006 à 08:47
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.
0
Rejoignez-nous