Event for Dynamic Label or TextBox on UserForm

[vthokienj]

I create a series of labels and text boxes at runtime.

for x = 1 to 10
        labelName = "label" & x
        Set cControlLabel = Me.frameScrollable.Controls.Add("Forms.Label.1",     labelName, True)
next x

How can I assign an on_click event to these? I have seen some rather complicated suggestions such as creating code for each possible object, but there could possibly be hundreds of labels created. It would be nice to be able to call the same macro from each label click, and then take action based on the .caption property of the label.

Thanks

 

[Norie]

First can I ask if you've considered using some othe control, for example a listbox which is meant to be used to list multiple items?

Anyway, if you do want to keep the labels you'll could use a class module to handle the click events of all of them.

What do you want the click event for each label to do?

 

[vthokienj]

I position the labels over textboxes where data will be entered. If the label is clicked, I then want to load another userform where additional data will be collected, which would be tied to the data in the respective textbox. So a listbox would not work for me.

 

[Norie]

How are you tying the labels and textboxes to each other?

Also, again, what exactly do you want to do when they are clicked?

 

[vthokienj]

I want to add more data. Labels and textboxes are linked because they have the same number in their name (e.g. lbl1, txt1).

Anyway I found a solution:
social.msdn.microsoft.com/Forums/en-MY/isvvba/thread/de63063c-0238-4777-aa01-c1ffe904c96d

I can just look at the id and know the index of what is being edited. Thanks for looking into this.

 

[Norie]

That's what I suggested - a class module.

Just wanted to know more before posting any code, or uploaded an example workbook.

 

[vthokienj]

Oh right, the class module is what you suggested. I guess I just couldn't picture how it would work at first but you did provide the right solution for me. Thanks again.

 

[Norie]

No problem.