Grouping Objects

[DeutchBose]

I have several command buttons on a form, and I'm trying to program it so that when a user clicks on one of the buttons, the text on that button turns red, and all the other buttons remain blue.

Is there a way to group the buttons together, so I can easily adjust the properties of all of them...as opposed to listing each individual button each time I want to do this?

 

[Norie]

I don't think you can group buttons but you could cycle through all the controls and identify the buttons.

Perhaps code like this:

Private Sub Command0_Click()
    ColourButtons "Command0"
End Sub
Private Sub Command1_Click()
    ColourButtons "Command1"
End Sub
Private Sub Command2_Click()
    ColourButtons "Command2"
End Sub
Private Sub Command3_Click()
    ColourButtons "Command3"
End Sub

Sub ColourButtons(strCtl)
Dim ctl
    For Each ctl In Me.Controls
        If ctl.Name <> strCtl Then
            ctl.ForeColor = vbBlue
        Else
            ctl.ForeColor = vbRed
        End If
    Next

End Sub

 

[DeutchBose]

Thanks

That makes perfect sense...I'll try that.