clic + move

Question

Bonjour a tous, Voila j'ai 2 sub ! La 1ere me fait afficher une image lors du clic sur mon bouton. La 2eme permet de garder l'affichage de cette image au clic tant que je suis sur mon bouton Je ne parviens pas à modifier ma sub mousemove pour que mon image ne s'affiche plus au « clic + move » mais seulement au move sur mon bouton. Quelqu'un pourrait m?aider svp ? Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) RaiseEvent MouseDown(Button, Shift, X, Y) If Button And vbLeftButton = vbLeftButton Then 'Left Button is down m_Down = True Timer1_Timer UpdateStatus End If End Sub Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And vbLeftButton vbLeftButton And m_Down True Then 'Left Button is down If X > 0 And Y > 0 And X < UserControl.Width And _ Y < UserControl.Height Then 'Mouse is in the control box m_Down = True Timer1.Enabled = True UpdateStatus Else m_Down = False Timer1.Enabled = False UpdateStatus End If End If End Sub Merci ^^

Leo_Robotic_Passion · Answer

Mes essais n'aboutissent pas:(
Pourrait-on me donner un exemple de détection du move sur le control et hors du control avec un événement classique ? msgbox ou autre !

Leo_Robotic_Passion · Answer

Je ne comprends pas pourquoi ceci ne marche pas! Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) RaiseEvent MouseMove(Button, Shift, X, Y) If X > 0 _ And X < UserControl.Width _ And Y > 0 _ And Y < UserControl.Height _ And m_Down = False Then m_Down = True Timer1.Enabled = True UpdateStatus End If If (X <= 0 _ Or X >= UserControl.Width _ Or Y <= 0 _ Or Y >= UserControl.Height) _ And m_Down = True Then m_Down = False Timer1.Enabled = False UpdateStatus End If End Sub Quelqu'un peut m'expliquer SVP ?

Clic + move

2 réponses

Votre réponse

Discussions similaires