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 !
Source / Exemple :
'**********************************************
'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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.