[VB6] Evenement MouseMove

**tim69000** · 30/03/2006, 16h42

Bonjour a tous,

J'essaye d'utiliser l'evenement MouseMove mais en fait, disons qu'il marche TROP bien. J'ai une image et je veux que qd ma souris est dessus, mon image ne soit pa la même mais en fait, l'evenement se fait en permanence qd je suis dessus, donc il y a une impression de clignotement .

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   If Image1.Picture = ImageList2.ListImages("contact").Picture Then
        Image1.Picture = ImageList2.ListImages("contact_over").Picture
   Else
        Image1.Picture = ImageList2.ListImages("contact_over").Picture
   End If
 
End Sub

Je ne sais pas s'il est possible de faire qqch, genre de mettre un index ou quoi.. Si qq a deja eu le probleme, merci de m'aider a trouver.

**chmod777** · 30/03/2006, 16h48

met un compteur pour que l evenement ne se passe qu une seule fois

if x = 0 alors
changer l image
x=1

**tim69000** · 30/03/2006, 16h51

Envoyé par chmod777

met un compteur pour que l evenement ne se passe qu une seule fois

if x = 0 alors
changer l image
x=1

mais je ne veux pas qu'il ne se produise qu'une fois, c'est a chaque fois que je passe sur l'image que je veux qu'elle change.

**chmod777** · 30/03/2006, 16h55

et si tu remets le compteur a 0 lorsque la souris n est plus dessus?

**tim69000** · 30/03/2006, 16h58

Et comment tu sais qu'il n'est plus sur l'image?
parce qu'il n'y a pas de movelost ou quoi

**jmfmarques** · 30/03/2006, 17h36

Bonjour tim69000

et je veux que qd ma souris est dessus, mon image ne soit pa la même mais en fait, l'evenement se fait en permanence qd je suis dessus, donc il y a une impression de clignotement

Je vois mal comment éviter celà simplement, sauf si tu ne veux modifier l'image qu'une seule fois en la survolant par ta souris .
Si tel est le cas, dis-le et nous/je te donnerons(rai) la solution.
Si tel n'est pas le cas : pas de solution !

**méphistopheles** · 30/03/2006, 22h03

Envoyé par tim69000

Et comment tu sais qu'il n'est plus sur l'image?
parce qu'il n'y a pas de movelost ou quoi

si ton image est sur ta frame, tu met "frame". mousemove.

autre solution, tu emploie la methode getx et gety.

**tim69000** · 31/03/2006, 08h14

En fait, mon image est dans un composant image et qd je passe dessus, je veux qu'elle change. Mais pas qu'une seule fois, a chaque fois que je passe dessus. en fait qd ma souris est sur l'image, il y a une image et qd elle n'est pas dessus, une autre

**jmfmarques** · 31/03/2006, 08h38

Mais pas qu'une seule fois, a chaque fois que je passe dessus. en fait qd ma souris est sur l'image, il y a une image et qd elle n'est pas dessus, une autre

C'est bien ce que je pensais ....
Et celà s'écrit de cette façon, pour lever toute ambiguïté :
Je veux que mon image change chaque fois que je la "survole" avec ma souris, mais une seule fois à chaque survol, et qu'elle retrouve son état originel lorsque ma souris est sortie de l'image !
Confirme-nous celà et (je l'avais dit plus haut) les choses seront alors peut-être beaucoup plus simples !

**tim69000** · 31/03/2006, 08h55

je confirme

**jmfmarques** · 31/03/2006, 09h01

Alors je te prépare celà dans 15 minutes
!
A plus !

**tim69000** · 31/03/2006, 09h07

Merci beaucoup pour ton aide

**jmfmarques** · 31/03/2006, 09h14

Coucou ! :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private vol As Boolean
 
Private Sub Form_Load()
  vol = False
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If vol = True Then
    Image1.Picture = ImageList2.ListImages("contact").Picture   
    vol = False
  End If
End Sub
 
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If vol = False Then
    Image1.Picture = ImageList2.ListImages("contact_over").Picture 
    vol = True
  End If
End Sub