DÉCLENCHER UNE ACTION AU BOUT D'UN CERTAIN TEMPS D'INACTIVITÉ DE LA SOURIS
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 2009
-
24 avril 2005 à 11:24
OneHacker
Messages postés1447Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention23 septembre 2007
-
13 août 2005 à 22:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
OneHacker
Messages postés1447Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention23 septembre 20072 13 août 2005 à 22:39
Re salut et1 ! Décidement (mort de rires) ! Je te met 9/10. Car tu m'a donné une piste ! He He j'en profite !
Bonne continuation !
NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024159 27 avril 2005 à 14:49
Tu peux utiliser l'api GetMousePos.
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 25 avril 2005 à 08:24
Donc ton exemple est trop restrictif et ne peut convenir, car j'ai rarement vu un programme n'ayant aucun contrôle sur un formulaire ;O)
Pour réussir cela, il faut s'affranchir de l'événement Mouse_Move du formulaire.
cs_et1
Messages postés250Date d'inscriptionvendredi 14 janvier 2005StatutMembreDernière intervention27 janvier 201110 24 avril 2005 à 16:13
Je sais que si l'on survole un autre contrôle, ça ne fonctionnera pas, c'est pourquoi j'ai bien mis "...souris sur la form"
Mais je ne sais pas comment faire ça autrement.
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 24 avril 2005 à 11:24
Ce programme ne peut pas fonctionner correctement en VB6 ! Sache que l'événement MouseMove du formulaire ne sera pas déclenché si le souris survole un un contrôle inclus dans le formulaire. Un simple exemple : crée un formulaire, intègre une picturebox assez large et ce code :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = X & " - " & Y
End Sub
Tu remarqueras que lorsque tu survoles le formulaire sans survoler le pictuebox, la captionbar du formulaire affiche bien les coordonnées X et Y de la souris, mais lorsque la souris survole la picturebox, l'événement MouseMove du formulaire n'est pas déclenché...
Tu me diras qu'il suffirait de faire de même pour l'événement MouseMove de la picturebox, mais que je sache un formulaire contient très souvent de nombreux contrôles... Alors galère ! Cette façon de faire est trop simplissime pour VB6 et ne fonctionnera pas. Je ne sais pas ce qu'il en est pour VB.NET...
13 août 2005 à 22:39
Bonne continuation !
27 avril 2005 à 14:49
25 avril 2005 à 08:24
Pour réussir cela, il faut s'affranchir de l'événement Mouse_Move du formulaire.
24 avril 2005 à 16:13
Mais je ne sais pas comment faire ça autrement.
24 avril 2005 à 11:24
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = X & " - " & Y
End Sub
Tu remarqueras que lorsque tu survoles le formulaire sans survoler le pictuebox, la captionbar du formulaire affiche bien les coordonnées X et Y de la souris, mais lorsque la souris survole la picturebox, l'événement MouseMove du formulaire n'est pas déclenché...
Tu me diras qu'il suffirait de faire de même pour l'événement MouseMove de la picturebox, mais que je sache un formulaire contient très souvent de nombreux contrôles... Alors galère ! Cette façon de faire est trop simplissime pour VB6 et ne fonctionnera pas. Je ne sais pas ce qu'il en est pour VB.NET...
Guy