Discussion :

[tebonb]

Bonjour tout le monde. Voila, j'aimerais faire un petit code qui détecte lorsque l'utilisateur sort la souris d'un controle Image. Il y a l'évènement MouseMove pour détecter lorsque l'utilisateur passe sur le controle mais il n'y en a aucun poru détecter lorsqu'il sort. J'ai essayé en détectant la position de la souris, mais je n'y suis pas arrivé.

Si quelqu'un aurait une solution à me proposer, je lui en serais reconnaissant. Merci d'avance.

[zazaraignée]

Salut

Tu dois faire un mouse move sur le formulaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_MouseMove(Button As Integer, _
                           Shift As Integer, _
                          X As Single, Y As Single)
Shape1.BackColor = vbGreen
End Sub
 
Private Sub Image1_MouseMove(Button As Integer, _
                             Shift As Integer, _
                            X As Single, Y As Single)
Shape1.BackColor = vbRed
End Sub

[tebonb]

Salut. Tu as mal compris, ce n'est pas un shape mais une Image. De plus je ne veux pas effectuer une oppération lorsque l'utilisateur passe la souris sur le controle mais au controle lorsqu'il sort du controle .

[leroissejp]

Bonsoir,
Si tu veux agir sur ton image, tu reprends le code de zazaraignée, tu mets la même icone dans Form_MouseMove que dans ton image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Form_MouseMove(Button As Integer, _
                           Shift As Integer, _
                          X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "\Pico.ico")
End Sub
 
Private Sub Image1_MouseMove(Button As Integer, _
                             Shift As Integer, _
                            X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "\Question1.ico")
End Sub

jpleroisse

[zazaraignée]

Salut

Regarde comme il faut:
Private Sub Image1_MouseMove

L'objet Shape1 ne sert que de voyant coloré.

La question était de savoir lorsque la souris n'est plus au dessus d'un contrôle image, il me semble.

MouseMove sur l'image: la souris est au dessus de l'image
MouseMove sur le Form: la souris est sur le Form, en dehors de l'image.

Tutoriel événements souris

[tebonb]

Ah oui d'accord. C'est effectivement une bonne solution, mais le probléme est que j'ai plusieurs images et pas qu'une.