OVH Cloud OVH Cloud

Userform Mousemove

2 réponses
Avatar
Crel
Bonjour à toutes et tous
J'ai créé un Userform avec des labels, je souhaite que lorsque l'on passe le
pointeau de la souris sur certains, la couleur change cela fonctionne très
bien, mais cela fait vibrer l'ensemble. Etant moyen en Grand Breton,
existe-il une fonction qui active la proc lorsque l'on passe le pointeau de
la souris une fois pour toutes.
Merci beaucoup
Patrick

2 réponses

Avatar
Julien
Avec un test, cela évite le clignotement :

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Label1.ForeColor <> &HFF& Then
Label1.ForeColor = &HFF&
End If
End Sub

Julien

"Crel" a écrit dans le message de news:
eo$e$
Bonjour à toutes et tous
J'ai créé un Userform avec des labels, je souhaite que lorsque l'on passe
le

pointeau de la souris sur certains, la couleur change cela fonctionne très
bien, mais cela fait vibrer l'ensemble. Etant moyen en Grand Breton,
existe-il une fonction qui active la proc lorsque l'on passe le pointeau
de

la souris une fois pour toutes.
Merci beaucoup
Patrick





Avatar
Crel
Salut Julien, désolé, je n'est pas très bien compris.
Merci
Patrick

"Julien" a écrit dans le message de news:

Avec un test, cela évite le clignotement :

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Label1.ForeColor <> &HFF& Then
Label1.ForeColor = &HFF&
End If
End Sub

Julien

"Crel" a écrit dans le message de
news:

eo$e$
Bonjour à toutes et tous
J'ai créé un Userform avec des labels, je souhaite que lorsque l'on
passe


le
pointeau de la souris sur certains, la couleur change cela fonctionne
très


bien, mais cela fait vibrer l'ensemble. Etant moyen en Grand Breton,
existe-il une fonction qui active la proc lorsque l'on passe le pointeau
de

la souris une fois pour toutes.
Merci beaucoup
Patrick