Changer la couleur d'un label au survol de la souris

maval · 10 Juin 2016

Bonjour,
Sur un Userform j'ai plusieurs Label "Label1, label2, label3 ect..." j'aimerais Changer la couleur des labels au survol de la souris. J'ai mis comme code ceci:

Code:

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Label1.BackColor = &HFF&
 End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Label1.BackColor = &H0&       
 End Sub

Qui fonctionne très bien mais comment ajouter les autre label dans ce code?
Je vous remercie d'avance

Cougar · 10 Juin 2016

Re : Changer la couleur d'un label au survol de la souris

Bonsoir maval,

Peut-être comme cela :

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Label1.BackColor = enlever la couleur si label1 survoler et mettre le code couleur voulu
'Label3.BackColor = enlever la couleur si label2 survoler et mettre le code couleur voulu
Label2.BackColor = &HFF&
End Sub

Cougar

maval · 10 Juin 2016

Re : Changer la couleur d'un label au survol de la souris

Salut Cougar,

je te remercie mais sa e fonctionne pas ?

Bonne journée

phlaurent55 · 10 Juin 2016

Re : Changer la couleur d'un label au survol de la souris

Bonjour à tous,

voir fichier joint

à+
Philippe

maval · 10 Juin 2016

Re : Changer la couleur d'un label au survol de la souris

Bonjour Philippe

Je te remercie c'est Nickel

Bonne journée

BOISGONTIER · 10 Juin 2016

Re : Changer la couleur d'un label au survol de la souris

bonjour,

Avec module de classe

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormMousemoveLabel.xls

Code:

Dim Lbl(1 To 4) As New ClasseLabels
Private Sub UserForm_Initialize()
  For i = 1 To 4
   Set Lbl(i).GrLabels = Me("Label" & i)
  Next i
End Sub

Module de classe

Code:

Public WithEvents GrLabels As Msforms.Label
Private Sub Grlabels_MouseMove(ByVal Lbl As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  For i = 1 To 4
    GrLabels.Parent("Label" & i).BackColor = 0
  Next
  GrLabels.BackColor = RGB(255, 0, 0)
End Sub

jb

maval · 10 Juin 2016

Re : Changer la couleur d'un label au survol de la souris

Bonjour JB

Je te remercie.

Bonne journée

Changer la couleur d'un label au survol de la souris

maval

XLDnaute Barbatruc

Pièces jointes

Cougar

XLDnaute Impliqué

maval

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Pièces jointes

maval

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

Discussions similaires