Créer un MouseMoveOut ...Résolu

Question

Voila l'histoire: Je veut créer une fenetre où quand on passe devant certaine PictureBox (avec la souris) l'image change Jusque là pas de bug il sufit de faire : Private Sub CartGlyph_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) CartGlyph(Index).Picture = CartGlyph1.Picture End Sub Là où sa ce corse c'est que je veut que la Picture de la PictureBox reviene à la normal (Image de début) quand la souris s'en va Là je fais alors cella : Private Sub CartGlyph_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) CartGlyph(Index).Picture = CartGlyph1.Picture If x < 8 Or x > CartGlyph(Index).Width - 8 Or y < 8 Or y > CartGlyph(Index).Height - 8 Then _ CartGlyph(Index).Picture = Cartglyph3.Picture End Sub Mais ... PROBLEME quand on bouge la souris trop rapidement le MouseMouve ne voit pas les coordonées assez vite pour détécter la perte du MouseMove Une idée est de changer la sensibilité (en rouge dans le code), le probleme reste alors le même car même si la sensibilité est amélioré, il est possible de faire buger le Sub. D'où cette question : Comment créer un MouseMoveOut PARFAIT ??

cs_moustachu · Accepted Answer

Il faut que tu ajoute une capture de souris &#224; ton objet.



API &#224; utiliser GetCapture, SetCapture, ReleaseCapture



Pleins d'exemples sont pr&#233;sents sur le site ou sur le web

++
Moustachu

Renfield · Answer

Subclassing et Message WM_MOUSEOVER WM_MOUSEOUT

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

cs_nico1610 · Answer

Ce cerai simpa renfield, d'en dire plus car je trouve pas avec seulement 
                
                

"Subclassing et Message WM_MOUSEOVER WM_MOUSEOUT"

cs_nico1610 · Answer

C'est bon grace &#224; PopApi 

j'ai trouv&#233; la fonction et son exemple au poil 



MERCI MERCI !!

Renfield · Answer

Bien jou&#233;, et content que tu ai fait l'effort de la recherche...

pas tr&#232;s bavard aujourd'hui, dsl (boulot)

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Créer un MouseMoveOut ...

5 réponses

Discussions similaires