0/5 (3 avis)
Vue 3 864 fois - Téléchargée 267 fois
Private Sub Form_Load() 'Temps à attendre avant l'arrêt du programme (Là, 10 secondes) Timer2.Interval = "10000" 'Temps de vérification (Il verifie si il y a une seconde la souris a bougé) Timer1.Interval = "1000" IX.Caption = "9999" IX2.Caption = IX.Caption Timer2.Enabled = False Timer2.Enabled = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Quand on bouge ça augmente IX.Caption = IX.Caption + 1 'Rajoute le même nombre a l'autre label (qui diminue si la souris ne bouge pas) IX2.Caption = IX.Caption 'Si la souris bouge, on remet à 5000 le timer Timer2.Enabled = False Timer2.Enabled = True End Sub Private Sub Timer1_Timer() 'Si la souris bouge pas, on diminue..." IX2.Caption = IX2.Caption - 1 End Sub Private Sub Timer2_Timer() 'Si la souris n'a pas bougé, on ferme (Regarde IX par rapport à IX2) If IX.Caption > IX2.Caption Then End Else End If End Sub
7 févr. 2003 à 03:54
pas compliqué mais bonne idée
7/10
6 févr. 2003 à 18:22
pour la prochainne fois pense a faire le .zip please
7/10
6 févr. 2003 à 02:38
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.