re-assign a control to new class event handler

[RAYLWARD102]

Is it possible?
During control creation, you can assign a class event routing (click, change events.....) to a UserForm control (My method below)

                Set C1 = New Class1
                Set C1.labelz = LAB

Is there any possibility for re-assigning a control that has already been assigned

         'Set to label routing 
                Set C1 = New Class1
                Set C1.labelz = LAB

         'After some control has been clicked, re-purpose the control by assigning a new class routing
         Set C1.labelz3 = LAB

 

[RAYLWARD102]

forgot to mention the reason why I want to do this; I wanted to create some generic routines that have many dynamically created controls. I wanted to repurpose these controls, exchange event routines from time to time without clearing and re-creating all the controls; and do not wish to duplicate large sums of code, only for the purpose of changing an event class routing for 1 control. I realize I could use some variable in the class event routine, to distinguish what happens in the event, but wanted to know if there's a cleaner way, like re-assigning a different class event to an existing control

 

[Norie]

How are you storing the controls you are assigning to the class(es)?

 

[RAYLWARD102]

A collection; MEM1

        Set C1 = New PlatformControls
        Set C1.labelzA = LAB
        MEM1.Add Item:=C1, Key:=.Name

This is what I've tried to make the labelzA do; obviously doesn't work, but gives you the direction I'm trying to seek
below are the event class routines

Private Sub labelzA_Click()
    Dim q As String
    q = InputBox("enter 2 to transform this control class routine", "experiment", "1")
    
    Select Case q
        Case "2"
            With labelzA
                Set C1.labelzB = LAB
            End With
    End Select
    
End Sub
Private Sub labelzB_Click()
    MsgBox "sucess"
End Sub

Here is the first control in userform

Private Sub UserForm_Initialize()
    Set MEM1 = New Collection
    
    Set LAB = UserForm1.Controls.Add("Forms.Label.1")
    With LAB
        .Caption = ".click:"
        .Height = 100
        .Width = 500
        .Left = 0
        .Top = 0
        .SpecialEffect = fmSpecialEffectFlat
        .Name = "SearchDisplay"
        .Font.size = .Height * 0.5
        .BackStyle = fmBackStyleOpaque
        .BackColor = vbWhite
        .ForeColor = RGB(192, 192, 192)
        .TextAlign = fmTextAlignCenter
        Set C1 = New PlatformControls
        Set C1.labelzA = LAB
        MEM1.Add Item:=C1, Key:=.Name
    End With
            
End Sub

 

[Norie]

I think what you might need is multiple collections with each collection associated with a particular class.

When you want to re-assign a control to another class you remove it from the relevant collection and add it to its 'new' collection.

Of course, that's all theory but sounds, to me anyway, kind of right.

 

[RAYLWARD102]

Haven't had much luck iterating (previous attempts) through collections; do you have an example of how I'd find the named control in the collection and remove it?
one would think; but below doesn't work

    For x = 0 To MEM1.Count
        Debug.Print MEM1.Item(x)
        
        
    
    Next x

 

[Norie]

I think you might need to look at using the key to remove the control from the collection.

MEM1.Remove "SearchDisplay"

 

[RAYLWARD102]

Below sort of works; except the control now fires both labelza and labelzb routines after first click.

Private Sub labelzA_Click()
    MsgBox "test"
    MEM1.Remove labelzA.Name
    With labelzA
        Set C1.labelzB = LAB
        MEM1.Add Item:=C1, Key:=labelzA.Name
    End With
End Sub
Private Sub labelzB_Click()
    MsgBox "sucess"
End Sub

 

[RAYLWARD102]

Working Now!!! yeah. Thanks Norie!
Added Set C1 = New PlatformControls

Private Sub labelzA_Click()
    MsgBox "test"
    MEM1.Remove labelzA.Name
    With labelzA
        Set C1 = New PlatformControls
        Set C1.labelzB = LAB
        MEM1.Add Item:=C1, Key:=labelzA.Name
    End With
End Sub
Private Sub labelzB_Click()
    MsgBox "sucess"
End Sub

 

[RAYLWARD102]

My Last question is; how can iterate through all controls and identify those belonging to labelza?
Would like to loop thorugh; I know how to loop the controls but not how to identify the assigned event class name labelza

dim CNTRL as object

    For Each CNTRL In UserForm1.Controls
        If "control event name is labelza" Then
        
        End If
    Next CNTRL