reduce _click events

[bolcskei]

Hi guys,

I am creating an useform, where I have more then 60 labels.
I do not want to write 56-times the below written code and everywhere change number of label. Is it possible instead of this make one macro?

Private Sub Label1_Click()
UserForm1.Controls(labelname).SpecialEffect = fmSpecialEffectFlat
labelname = "label1"
UserForm1.Label1.SpecialEffect = fmSpecialEffectSunken
 
GetRGB UserForm1.Label1.BackColor, Red, Green, Blue
RGBToHSL
UserForm1.TextBox4.Value = Red
UserForm1.TextBox5.Value = Green
UserForm1.TextBox6.Value = Blue
UserForm1.TextBox1.Value = H
UserForm1.TextBox2.Value = S
UserForm1.TextBox3.Value = L
UserForm1.SpinButton1.Value = H
UserForm1.SpinButton2.Value = S
UserForm1.SpinButton3.Value = L
UserForm1.SpinButton4.Value = Red
UserForm1.SpinButton5.Value = Green
UserForm1.SpinButton6.Value = Blue
UserForm1.Label63.BackColor = UserForm1.Label1.BackColor
End Sub

Boris

[Joacim Andersson]

I would recommend using a control array but since you mentioned UserForm I'm guessing that your're using VBA and it doesn't allow it. However you can loop through the Controls array.

Dim ctl As Control
'.... other code
For Each ctl In UserForm1.Controls
    If TypeOf ctl Is Label Then
        ctl.BackColor = UserForm1.Label1.BackColor
    End If
Next

[RhinoBull]

.... However you can loop through the Controls array...

That is Controls Collection.

[Hack]

VBA question moved to Office Development.

[Joacim Andersson]

That is Controls Collection.

Yeah yeah...

[thegreatone]

For Each label In Controls
'do stuff
Next label