- '**********************************************
- '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
-
'**********************************************
'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