Bonjour je voudrais savoir comment faire pour réaliser une action lorsque d'un objet perde le focus de la souris. Soit une image, lorsque : - je passe la souris dessus je fais une action (mousemouve marche bienp*) Private Sub house_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) - apres avoir passé la souris dessus, je pointe la souris ailleurs pour une raison x. mais je ne sais comment faire une action lorsque cett objet a perdu le focus souris? (linverse donc de mousemove) Exitse il un événèment tout pret gérant cela? merci d'avance.

dès que la souris quitte l'image, elle passe soit directement sur la forme,
ou sur un autre contrôle, c'est là qu'on peut le détecter.



Dim bool As Boolean

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    bool = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If bool Then
       bool = False
       Beep
       End If
End Sub


Daniel

Oui mais si la souris est passé trop vite et est sortie de la form, comment ont doit faire ???

Enjoy

---

ben oui ScSami,
faut laisser une marge suffisante tout autour de l'image,
disons une cinquantaine de pixels.
ça c'était pour une méthode simple,
sinon taper MouseOut dans moteur de recherche


Daniel

Tu veux dire que sinon il n'y a que le subclassing qui puisse résoudre ce problème ???

Enjoy

---

on peut aussi faire un Timer qui récupère la position de la souris,
et avec les coordonnées de la souris on peut savoir si elle est dans le contrôle ou pas.
mais je pense que le subclassing est préférable.


il y a un ocx tout fait ici qui utilise un Timer
http://www.vbfrance.com/code.aspx?ID=5579


Daniel