Control Array WithEvents

Hi,

For test purposes I have a worksheet to which I dynamically add 3 buttons as a control array.

Clicking a Checkbox creates the buttons, clicking a second checkbox hooks up the events (just a "Mouse Down" message), clicking a third checkbox deletes the buttons.

All works fine (the status of the checkboxes is unimportant as they're only used to create the buttons etc for test purposes).

But (there's always a but...) I have a fourth checkbox which creates buttons AND hooks up the events - but the events don't hook up for some reason - even though exactly the same code is running in the same scope as is run in the first two checkboxes.

For the life of me I can't understand why one checkbox doesn't work! I'm using Excel 2010 but I don't think that it the cause at all... Any help appreciated.

Regards,
Brian

Code below:

Code in class module called cslActiveXEvents:

Please Login or Register  to view this content.

Worksheet (called "Debug") code:

Please Login or Register  to view this content.

Code in module called ButtonsModule:

Please Login or Register  to view this content.

Can you please add code tags to the code ?

Since you 'dynamically' add controls, when will the connection to the class module be laid ?

You only add 3 buttons in macro AddButtons()

I'd prefer simpler code

Please Login or Register  to view this content.

I would also prefer to connect to the classmodule in the same macro that creates the controls.

I don't think you already grasp what the code is doing:

adapted code:

Please Login or Register  to view this content.

I amended the routine to match yours exactly - but it still doesn't add anything to the collection - inserting a msgbox (mcolevents.Count) just before the End Sub returns 0.

If it helps, I've attached my workbook (in 97~2003 format but with the .xlt changed to xlsm to satisfy the uploader requirements) so you can see what I'm doing "works" - but it insists that the Add Button and Add Events routines are activated by separate checkboxes rather than from just one for some reason.

Thanks again for your help.

Brian

It's all in the details
CommandButton instead of Commandbutton

Please Login or Register  to view this content.

To make the code more robust:

Please Login or Register  to view this content.

It won't work as one procedure because as soon as a procedure that adds activex controls ends, the vb project is reset and your variables get cleared. What you can do is use OnTime at the end of the routine that adds the controls to run the hook routine a second later.

Maybe this is what you want. See the attachment.

Brian,
For your test file, change the fourth checkbox to:

Please Login or Register  to view this content.

and you should see it work.

Glad to help.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save