Retour automatique à la page d'accueil

Signaler
Messages postés
2
Date d'inscription
vendredi 7 mars 2003
Statut
Membre
Dernière intervention
28 mars 2003
-
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
-
Bonjour,
Je viens de créer mon premier EXE.
Un formulaire tout simple avec 3 boutons, qui pointent sur 3 lecteurs Cd-rom virtuels; plus un bouton qui éteint la machine.
Je souhaite faire un rafraîchissement automatique avec un retour sur ma page d'accueil toute les 5 minutes. Surtout utile dans le cas où l'utilisateur à arrêté la consultation du cd-rom sans le quitter (genre quitte le CD ou délogue le user au bout de 5 minutes d'inactivité).
Quelqu'un a une idée, et peut m'aider (je tourne en rond depuis quelques jours).
Merci d'avance

3 réponses

Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

tu met un timer par exemple à 1seconde... et toutes ces une seconde tu regardes ou est ta souris... si elle n'a pas bougé au bout de 5min tu coupe... tu peux utiliser les événement clavier de ta form pour reseter ton compteur aussi...

<center>http://www.fredlynx.com
</center>
0
Messages postés
2
Date d'inscription
vendredi 7 mars 2003
Statut
Membre
Dernière intervention
28 mars 2003

Ok merci, c'est ce que je pensai faire avec la souris (vu que ne j'utilise pas le clavier).
Si tu peux donner quelques codes, ça m'éviterait de me perdre une fois de plus dans l'aide. merci merci d'avance
0
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

Hum je vois...

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim PosMouse As POINTAPI
Dim Compteur As Long

Const Minutes5 As Long = 300

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

Private Sub Timer1_Timer()
Dim NewPosMouse As POINTAPI
GetCursorPos NewPosMouse
'Ici c'est très strict sur la position de la souris... à mon avis il faudra
'donner un petite marge ... de + ou - quelque chose
If (NewPosMouse.X <> PosMouse.X) Or (NewPosMouse.Y <> PosMouse.Y) Then
PosMouse.X = NewPosMouse.X
PosMouse.Y = NewPosMouse.Y
Compteur = Minutes5
Else
Compteur = Compteur - 1
If Compteur = 0 Then
'Fin de boucle
Unload Me
End If
End If
End Sub

<center>http://www.fredlynx.com
</center>
0