remove controls from userform

[RAYLWARD102]

At times, I 've wanted to remove; rather then hide, some manually, or dynamically created commandbuttons from a userform. Can anyone show two examples of how to accomplish that with code.

I tried the code below against som of my manually created buttons, but cannot seem to make it work.

Dim ctl As MSForms.Control
For Each ctl In specialty.Controls
    specialty.Controls.remove ctl
    
Next ctl

Any idea's on how to achieve this?

 

[mikerickson]

The Remove method will error if used on a control that is made at design time.

 

[RAYLWARD102]

so the alternative would be?

 

[VoG]

Hiding

Sub UFtest()
Dim ctl As MSForms.Control
For Each ctl In UserForm1.Controls
    If TypeName(ctl) = "CheckBox" Then ctl.Visible = False
Next ctl
UserForm1.Show
End Sub

 

[pedie]

'm not sure why and what you;re trying to do....
Why dont you just select and remove it?

I dont see .remove.... property [Me.CommandButton2.remove] etc...


may I ask what you're to trying to do exactly?

 

[mikerickson]

Pedie, .Remove is a method of the Controls collection, not of the control itself.

 

[pedie]

Pedie, .Remove is a method of the Controls collection, not of the control itself.

Mick... never tried one myself...i'll be interested to know that...and when does it become handy..

 

[RAYLWARD102]

basically, at the moment i've created about 50 dynamic buttons in my userform. I'd like to clear them off the userform (not hide them) after the user click's one of the. The reason being that what ever button is clicked would create another whole set of dynamically created buttons in the same userform

So the problem is how do I target those created buttons for removal?

 

[pedie]

Mike, will answer... me you waiting for it.

basically, at the moment i've created about 50 dynamic buttons in my userform. I'd like to clear them off the userform (not hide them) after the user click's one of the. The reason being that what ever button is clicked would create another whole set of dynamically created buttons in the same userform

So the problem is how do I target those created buttons for removal?

 

[mikerickson]

Since you are adding command buttons, I'm guessing that they are getting their event code via a class module. Like this one (named Class1)

Public WithEvents RunTimeCommandButton As MSForms.CommandButton

Private Sub RunTimeCommandButton_Click()
    MsgBox RunTimeCommandButton.Name
End Sub

I'm further guessing that when you add the CommandButton's you are putting the newly generated instances of Class1 in a collection, as is done in butAddButtons_Click below.
The code for butRemoveRemoveControls_Click shows how to remove all the buttons represented in the AddedCommandButtons collection.

I made a test Userform with a frame (Frame1) and two command buttons(butAddButtons and butRemoveControls) and put this code into the userform's code module

Dim AddedCommandButtons As Collection

Private Sub butAddButtons_Click()
    Dim newCB As MSForms.CommandButton
    Dim addedCB As Class1
    Dim i As Long
    With Frame1
        For i = 1 To 50
            Set newCB = Frame1.Controls.Add("Forms.CommandButton.1", Visible:=True)
            With newCB
                .Height = 20: .Width = 100
                .Top = (.Height + 1) * i
                .Caption = .Name
            End With
            Set addedCB = New Class1
            Set addedCB.RunTimeCommandButton = newCB
            AddedCommandButtons.Add Item:=addedCB, Key:=newCB.Name
        Next i
    End With
End Sub

Private Sub butRemoveControls_Click()
    Dim oneAddedButton As Class1
    For Each oneAddedButton In AddedCommandButtons
        Me.Controls.Remove oneAddedButton.RunTimeCommandButton.Name
    Next oneAddedButton
    Set AddedCommandButtons = New Collection
End Sub

Private Sub UserForm_Initialize()
    Set AddedCommandButtons = New Collection
End Sub

Private Sub UserForm_Terminate()
    Set AddedCommandButtons = Nothing
End Sub