OVH Cloud OVH Cloud

mousemove

3 réponses
Avatar
jerome
Bonjour,

J'ai un contrôle pour lequel je veux gérer la couleur de fond au passage de
la souris.
Jusque là pas de problème, seulement, je ne sais pas comment revenir à la
couleur de fond d'origine quand la souris n'est plus sur le contrôle (sur un
autre controle du usercontrol ou sur la form).

Voici un bout de code en espérant mieux me faire comprendre :
' C'est un label du usercontrol dont je veux que la couleur de fond soit
modifier au passage de la souris
Private Sub lblupdown_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
lblupdown.BackColor = m_def_BackColorUD
End Sub

Dans le usercontrol, j'ai des label, listbox, je pense donc que je dois
utiliser leur évènement MouseMove pour revenir à la couleur d'origine du
controle précédent (à moins qu'il n'y est plus simple).
C'est surtout pour la form ou les contrôles qui se situent avec mon
usercontrol que je ne sait pas comment faire.

J'espère ne pas trop vous avoir embrouiller avec tous ces contrôles et
m'être fait à peu près comprendre.

Merci
Jerome

3 réponses

Avatar
Richard Côté
Tu mes dans une variable temp la couleur de fond du label, et dans ton
control tu mes un timer qui vérifie si la souris et toujours sur le
contrôle.
Si la souris n'est plus sur le contrôle tu change sa couleur de fond.

"jerome" a écrit dans le message de news:
3fb90097$0$25320$
Bonjour,

J'ai un contrôle pour lequel je veux gérer la couleur de fond au passage


de
la souris.
Jusque là pas de problème, seulement, je ne sais pas comment revenir à la
couleur de fond d'origine quand la souris n'est plus sur le contrôle (sur


un
autre controle du usercontrol ou sur la form).

Voici un bout de code en espérant mieux me faire comprendre :
' C'est un label du usercontrol dont je veux que la couleur de fond soit
modifier au passage de la souris
Private Sub lblupdown_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
lblupdown.BackColor = m_def_BackColorUD
End Sub

Dans le usercontrol, j'ai des label, listbox, je pense donc que je dois
utiliser leur évènement MouseMove pour revenir à la couleur d'origine du
controle précédent (à moins qu'il n'y est plus simple).
C'est surtout pour la form ou les contrôles qui se situent avec mon
usercontrol que je ne sait pas comment faire.

J'espère ne pas trop vous avoir embrouiller avec tous ces contrôles et
m'être fait à peu près comprendre.

Merci
Jerome




Avatar
The Ultimate Video Game Museum
Salut,

Fait ça tout simplement :

-------------------------------------------------
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)

lblupdown.BackColor = COULEUR_ORIGINE

End Sub
-------------------------------------------------

Cordialement,

Topper

Webmastering, webdesign des sites :
The Ultimate Video Game Museum : http://www.TUVGM.com/
TUVGM Live Playing ! : http://www.LivePlaying.com/
FreeDO France : http://www.TUVGM.com/freedo/
Dune Forever : http://DuneForever.online.fr/
Avatar
jerome
"Richard Côté" a écrit dans le message de
news: a9aub.5126$
Tu mes dans une variable temp la couleur de fond du label, et dans ton
control tu mes un timer qui vérifie si la souris et toujours sur le
contrôle.
Si la souris n'est plus sur le contrôle tu change sa couleur de fond.


Ok, merci.
Je vais essayé.

Jerome