Class module sharing between Labels and CommandButtons

[RawlinsCross]

I have a series of labels on one userform and a series commandbuttons on another userform. They both contain properties that I want to access through a Class Module (see below). At the moment I have to apply them to two separate class modules (i.e. one for labels and one for command buttons) - is there a way to combine them?

Class module for label

Option Explicit

Public WithEvents ElementButtonGroup As MSForms.Label
Private mfrmParent As Object

'--public properties
Public Property Set Parent(frmParent As Object)
Set mfrmParent = frmParent
End Property

'--event procedures
Private Sub ElementButtonGroup_Click()

mfrmParent.SelectedElement = ElementButtonGroup.Caption
mfrmParent.ElementLabel = ElementButtonGroup.Name
mfrmParent.ElementSet

End Sub

Class module for CommandButton

Option Explicit

Public WithEvents ElementChoiceGroup As MSForms.CommandButton
Private mfrmParent As Object

'--public properties
Public Property Set Parent(frmParent As Object)
Set mfrmParent = frmParent
End Property

'--event procedures
Private Sub ElementChoiceGroup_Click()

mfrmParent.SelectedElement = ElementChoiceGroup.Caption
mfrmParent.ElementLabel = ElementChoiceGroup.Name
mfrmParent.ElementSet

End Sub

 

[RoryA]

Yes, you could add a property to set the control object, and assign it to the relevant control type. For example:

Option Explicit

Private WithEvents ElementButtonGroup As MSForms.Label
Private WithEvents ElementChoiceGroup As MSForms.CommandButton
Private mfrmParent As Object

'--public properties
Public Property Set Parent(frmParent As Object)
Set mfrmParent = frmParent
End Property
Public Property Set Control(ctl As Object)
Select case lcase$(typename(ctl))
case "label"
set ElementButtonGroup = ctl
case "commandbutton"
set ElementChoiceGroup = ctl
End Select
End Property
'--event procedures
Private Sub ElementButtonGroup_Click()

mfrmParent.SelectedElement = ElementButtonGroup.Caption
mfrmParent.ElementLabel = ElementButtonGroup.Name
mfrmParent.ElementSet

End Sub
Private Sub ElementChoiceGroup_Click()

mfrmParent.SelectedElement = ElementChoiceGroup.Caption
mfrmParent.ElementLabel = ElementChoiceGroup.Name
mfrmParent.ElementSet

End Sub

 

[RawlinsCross]

How then would I augment the assigning of controls from one of the userforms to this new class... this is my existing code from the userform that has labels:

Private Sub PopulateControlArrays()

Dim ctrl As Control
Dim lElementButtonCount As Long

For Each ctrl In Me.Controls
   If TypeName(ctrl) = "Label" Then
      If ctrl.Tag = "ElementButton" Then
          lElementButtonCount = lElementButtonCount + 1
          ReDim Preserve ElementButtons(1 To lElementButtonCount)
          Set ElementButtons(lElementButtonCount).ElementButtonGroup = ctrl
          Set ElementButtons(lElementButtonCount).Parent = Me
      End If
   End If
Next ctrl

End Sub

 

[RoryA]

You'd use the new class type and change this:

Set ElementButtons(lElementButtonCount).ElementButtonGroup = ctrl

to this:

Set ElementButtons(lElementButtonCount).Control = ctrl

 

[RawlinsCross]

Great... that was painless and understandable which is always a hoot. Cheers.

 

[RawlinsCross]

Curious though, why change the TypeName to lowercase?

 

[RoryA]

Because I can never remember how they’re all formatted!