Question sur les grolabeupes de controleRésolu

Question

bonjour !

J'ai cr&#233;&#233; un groupe de controle "label11(y)", y allant de 0 &#224; 31.

Or, lorsque je clique sur ce label, pour y ins&#233;rer une proc&#233;dure label11_click, quelle que soit le label sur lequel je clique, j'arrive sur la meme proc&#233;dure. Chaque label n'est pas g&#233;rable individuellement pour le "_click".

Dans ce cas, lorsque je clique sur le label11(12), quelle est la m&#233;thode pour r&#233;cup&#232;rer cette valeur "12".

Merci encore pour votre aide ..

Stef

Gobillot · Accepted Answer

et o&#249; est pass&#233; l'index ?

Private Sub Label1_Click(Index As Integer)
    MsgBox Label1(Index).Caption
End Sub

Daniel

jpleroisse · Answer

Dans l'exemple suivant je n'ai mis que 3 Label.

Option Explicit
Private Enum Label1s
LabelUn = 0
Labeldeux = 1
Labeltrois = 2
End Enum

Private Sub Label1_Click(Index As Integer)


Select Case Index
Case LabelUn
    Label1(0).Visible = False
Case Labeldeux
    Label1(1).BackColor = vbRed
    Label1(0).Visible = True
Case Labeltrois
        Label1(2).FontBold = True
        Label1(1).BackColor = vbBlue
End Select
End Sub

jpleroisse

Question sur les grolabeupes de controle

2 réponses

Discussions similaires