[VBA] Label - Changement de couleur au survol de la souris

Version imprimable

21/02/2008, 17h01
matfeb

[VBA] Label - Changement de couleur au survol de la souris

Bonjour, je ne trouve pas la méthode qui pourrait me permettre lors du survol de ma souris sur un LABEL que la police de ce label change de couleur. En gros j'aimerais faire comme avec un lien hypertexte.
J'ai cherché dans certains topic où Starec à répondu mais ca ne convient pas à ma demande.
Cordialement.
21/02/2008, 17h30
Gabout

Bonjour,

Sauf erreur de ma part, le label n'acceptent pas le traitement d'évènement. Tu dois pouvoir contourner la difficulté en utilisant des champs TEXTE que tu utilises comme LABEL.

Je n'ai pas testé.

Gabout

Une méthode sommaire mais qui marche bien :
dans 1 form j'ai 5 labels lbl1, lbl2 ....
autour de [lbl1], je place un cadre [cdr1]( un rectangle) que je place en arrière plan
puis le VBA associé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
   Private Sub lbl1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call ClickCadre("cdr1")
End Sub
 
Private Sub lbl1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call FlipCadre("cdr1")
End Sub
 
 
'... on réptète pour les autres lbln ....
 
Private Function FlipCadre(ctlActif As String)
    On Error Resume Next
 
    Me.cdr1.Visible = False
    Me.cdr2.Visible = False
    Me.cdr3.Visible = False
    Me.cdr4.Visible = False
    Me.cdr5.Visible = False
    If Not IsNothing(ctlActif) Then
        Me(ctlActif).Visible = True
    End If
 
End Function
 
Public Function ClickCadre(ctlActif As String)
 
    Me!cdr1.BackColor = 15651521
    Me!cdr2.BackColor = 15651521
    Me!cdr3.BackColor = 15651521
    Me!cdr4.BackColor = 15651521
    Me!cdr5.BackColor = 15651521
 
    Me(ctlActif).BackColor = 14857624
 
End Function

Bonne continuation,
:)

22/02/2008, 08h48
matfeb

Merci pour vos réponses.
@ bientôt ;).