Bonjour à tous,
J'ai trouver une source sur le net me permettant de détecter l'inactivité de la souris en suivant les coordonnées de la souris.
La personne précise qu'il ne faut pas oublier de rajouter deux timer pour que celà fonctionne.
Quelqu'un pourrait-il m'expliquer comment on ajoute les deux timer, ci joint le code :
[#1c00e2][/#1c00e2]Merci de votre aide
Ce bout de code permet de fermer votre application au bout d'un certain temps si la souris n'a pas bougé !
Pensez à rajouter 2 timer !
'TC le 28/05/02
' Position de X et Y par rapport a l'écran
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Public OLD_X, OLD_Y As Long
Public OLD_DATE As Date
Public Tempo_Fermeture As Integer
Private Sub Form_Load()
Dim pos As POINTAPI
'Dim old_pos As POINTAPI
'Tempo du timer qui permet de récupérer toutes les secondes la position de la souris (en ms)
Timer_Pos_Souris.Interval = 1000
'Tempo tu timer qui permet de fermer l'appli(en ms)
Timer_Unload.Interval = 3000
'Au bout de "Tempo_Fermeture" secondes on fermera l'appli ! (en s)
Tempo_Fermeture = 1
End Sub
Private Sub Timer_Pos_Souris_Timer()
'Petite procédure pour récupérer
'la nouvelle position de la souris
'si celle-ci a changé depuis le précédent passage
Dim pos As POINTAPI
GetCursorPos pos
If OLD_X <> pos.X And OLD_Y <> pos.Y Then
OLD_X = pos.X
OLD_Y = pos.Y
OLD_DATE = Now
End If
End Sub
Private Sub Timer_Unload_Timer()
'Si aucune activité n'a été détecté i.e (la souris n'a pas bougé)
'alors on ferme !
If DateDiff("s", OLD_DATE, Now) >= Tempo_Fermeture Then
Unload Me
End If
End Sub
