Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2915 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Comment déclare t-on un Timer??

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Comment déclare t-on un Timer??

n°1297391
gagletor
Posté le 02-02-2006 à 14:30:15  profilanswer
 

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

mood
Publicité
Posté le 02-02-2006 à 14:30:15  profilanswer
 

n°1297396
mareek
Et de 3 \o/
Posté le 02-02-2006 à 14:37:15  profilanswer
 

le Timer est un controle graphique (invisible à l'execution) que tu dépose sur une forme où un control.
Il est dans les ontroles par défaut de VB et ressemble a un vieux chronomètre.


Message édité par mareek le 02-02-2006 à 14:37:54

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°1297407
gagletor
Posté le 02-02-2006 à 14:47:19  profilanswer
 

En fait j'ai oublié de préciser que je suis sur excel 97, et je ne trouve pas ce chronomètre dont on me parle tout le temps.
Existe-il sous excel?

n°1297414
mareek
Et de 3 \o/
Posté le 02-02-2006 à 14:54:34  profilanswer
 

vu que je ne le trouve pas sous excel 2000, je doute qu'il existe sous excel 97


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Comment déclare t-on un Timer??

 

Sujets relatifs
fonction Timer vide, problème ???Timer + refresh + checkbox
ajouter un timerTimer en JS pour menu
[EJB]programmer un timer dans un EJBComment utiliser un timer en parallèle?
probleme de timerProbleme timer
[MFC] Problème avec OnPaint et un Timertimer multimedia
Plus de sujets relatifs à : Comment déclare t-on un Timer??


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR