Class modules

lallemantdo · August 17th, 2005, 04:15 PM

Can you please help me.

I would like to add a control to a form at runtime and be able to assign an event procedure to the newly created control. This would enable me to click on the control to call the procedure.

ie: Have a Commandbutton added to a form at runtime and be able to click on this Commandbutton to call an event procedure.

Thanks for your help.

mjppaba · August 19th, 2005, 02:58 AM

I would set the form up with the command button from the outset, only have the visible property set to false. When you need the button change this property to True and back to false when finished.

Cheers

Matt

lallemantdo · August 21st, 2005, 03:30 PM

Thank you for your suggestion.

gcianfanelli · August 24th, 2005, 02:59 AM

to truly add a control at runtime in VBA you need to execute the Add method of the UserForm object's Controls property. This method expects the ProgID of the control you want to add - something like the following code should be added to your test UserForm:

Code:

Option Explicit

Private WithEvents mRuntimeButton As MSForms.CommandButton

Private Sub mRuntimeButton_Click()

  MsgBox "runtime button clicked"

End Sub

Private Sub UserForm_Initialize()

  Set mRuntimeButton = Me.Controls.Add("Forms.CommandButton.1", "mRuntimeButton", True)

End Sub

You'll additionally need to set a whole bunch of properties (Height, Width, Caption, etc) in order to get the button looking as you want it

If you need to know more, highlight the Add method in your VBA environment and hit F1 for some help

lallemantdo · August 24th, 2005, 08:35 PM

Thank you this is really good stuff!

Never be afraid to try something new.
Remember: Amateurs built the ark. Professionals built the Titanic