Entfernen Sie Dynamisch Hinzugefügten Controls von Userform

Ich habe eine excel-Userform dynamisch mit Checkboxen Hinzugefügt. Füge ich die Checkboxen schon früh mit code, der wie folgt aussieht:

Set chkBox = Me.Controls.Add("Forms.Checkbox.1", "Checkbox" & i)

Später möchte ich entfernen Sie alle diese Kontrollkästchen. Ich versuche diesen code:

    Dim j As Integer
'Remove all dynamically updated checkboxes
For Each cont In Me.Controls
    For j = 1 To NumControls
    If cont.Name = "Checkbox" & j Then
        Me.Controls.Remove ("Checkbox" & j)
    End If
    Next j
Next cont

Bin aber immer folgende Fehlermeldung: Entfernen Sie Dynamisch Hinzugefügten Controls von Userform

jegliche Hilfe würde sehr geschätzt werden.

eines der Probleme hierbei könnte die paranthesese in " ("Checkbox" & j)"
überprüfen Sie, zu welchem j es schlägt fehl, und überprüfen, ob dieses ist eine checkbox zur Laufzeit Hinzugefügt und NICHT im design-Modus
Blick zurück, was wohl behoben, mein code war nicht der check, sondern der Ausfahrt, sobald Sie das richtige gefunden. @PatrickLepelletier ist wohl richtig, wahrscheinlich ist dieser Prüfung das falsche Kästchen. That being said, Chris ' code unten sollte das Problem beheben oder so.
ich kam zurück zu diesem post, nur zu Fragen, warum ich nicht sehe es so: ich mache diese Dinge mit einem On error resume next

InformationsquelleAutor ale10ander | 2015-01-06

12

Einen besseren Ansatz zu verfolgen, der die Steuerelemente, die Sie erstellen (z.B. in einer Sammlung), und verwenden Sie diese, um Sie zu entfernen.

Diese Weise Ihr code ist nicht verpflichtet, den Namen format, und kann angewendet werden, um andere Arten der Kontrolle zu.
```
Private cbxs As Collection

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

' Remove all dynamicly added Controls
Private Sub btnRemove_Click()
    Dim i As Long
    Do While cbxs.Count > 0
        Me.Controls.Remove cbxs.Item(1).Name
        cbxs.Remove 1
    Loop
End Sub


' Add some Controls, example for testing purposes
Private Sub btnAdd_Click()
    Dim i As Long
    Dim chkBox As Control
    For i = 1 To 10
        Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "SomeRandomName" & i)
        chkBox.Top = 40 + i * 20
        chkBox.Left = 20
        cbxs.Add chkBox, chkBox.Name  ' <-- populate tracking collection
    Next

    ' Demo that it works for other control types
    For i = 1 To 10
        Set chkBox = Me.Controls.Add("Forms.ListBox.1", "SomeOtherRandomName" & i)
        chkBox.Top = 40 + i * 20
        chkBox.Left = 60
        chkBox.Add chkBox, chkBox.Name
    Next

End Sub
```
- Genauso gut könnte ändern Sie die variable chkbox Namen. +1 für die kühle Verwendung Sammlung.
- Thx @L42. Ja, ich würde ich generalisierten Namen. Einfach gehalten, damit es übersichtlicher für die OP, wie dies bezieht sich auf seine ursprüngliche code
- Ich Schätze die Anregung! In dieser speziellen Anwendung, die ich entfernen wollte Checkboxen zur Laufzeit angelegt wurden (und hatte somit, dass insbesondere Namensschema), während alle anderen Steuern allein. Aber du hast Recht, das ist sauberer und mehr generische code. +1
- ich bin mir nicht sicher, aber wäre es nicht eine Sammlung bei 0 beginnen ?
- eigentlich Nein, Sammlung Objekte starten bei 1. (Wörterbücher auf der anderen Seite bei 0 beginnen). VBA kann ziemlich inkonsistent mit der Start-Indizes
- ok, im hinzufügen dieser auf meine persönlichen Noten 🙂
- Ich verbrachte Ewigkeiten versuchen zu arbeiten, so löschen Sie benutzerdefinierte Steuerelemente, die zur Laufzeit Hinzugefügt werden, um eine PowerPoint-form, so dass diese elegante Lösung genau das richtige. Danke @chris.
InformationsquelleAutor chris neilsen
3

Vorausgesetzt, es gibt keine andere Steuerung beginnen im Namen mit "Markierungsfeld",
```
For Each cont In Me.Controls
    If InStr(cont.Name, "Checkbox") = 1 Then
        Me.Controls.Remove cont.Name
    End If
Next cont
```
- Netter Ansatz, sehr einfach, aber efective.
InformationsquelleAutor Gene Skuratovsky

wenn Sie bereits wissen, den Namen der Steuerelemente, der Typ, und wie viele, warum Doppel-loop ?

beachten Sie, dass NUR die Steuerelemente, die zur Laufzeit angelegt werden können, entfernt.

'the following removes all controls created at runtime
Dim i As Long
On Error Resume Next
With Me.Controls
    For i = .Count - 1 to 0 step -1
        .Remove i
    Next i
End With
Err.Clear: On Error GoTo 0

und für Ihren Fall : "wenn alle Namen werden korrekt

Dim j&
For j = 1 To NumControls
    Me.Controls.Remove "Checkbox" & j
Next j

InformationsquelleAutor Patrick Lepelletier

1

Hinzufügen eines check für die Kontrolle schien dieses Problem zu beheben. Nicht ganz sicher warum, aber es funktioniert.
```
   Dim j As Integer
'Remove all dynamically updated checkboxes
For Each cont In Me.Controls
    If TypeName(cont) = "CheckBox" Then
        For j = 1 To NumControls
            If cont.Name = "Checkbox" & j Then
                Me.Controls.Remove cont.Name
                Exit For
            End If
        Next j
    End If
Next cont
```
- Was diese Schleife innerhalb der Schleife zu tun gibt?
- Die innere Schleife ist die überprüfung der Anzahl der einzelnen regler. In der äußeren Schleife, bekam ich zur Kontrolle Ein, aber ich weiß nicht, mit aller Gewissheit, dass er Kontrolle hat, 1. Also ich check durch jede Zahl, bis ich die richtige Zahl.
- Es war nicht der check für die Kontrolle, die Feste, sondern die Ausfahrt--wenn ich finde, was ich Suche, ich Suche halt. Es ist einfach so passiert, dass meine Checkboxen geprüft wurden, bevor irgendetwas anderes. Die akzeptierte Antwort ist stabiler, es nicht auf Glück verlassen 🙂
InformationsquelleAutor ale10ander

Ich schrieb den original-code mithilfe des Befehls " - Tasten, und nur Hinzugefügt, "Mir.Controls.Count" statt "NumControls" und definiert "Cont" als Kontrolle. Es scheint für mich arbeiten. Bitte lassen Sie mich wissen, wenn dies für Sie arbeitet:

-->

On Error Resume Next
Dim Cont As Control
Dim C As Integer
'Remove all dynamically updated checkboxes
For Each Cont In Me.Controls
    For C = 1 To Me.Controls.Count
    If Cont.Name = "CommandButton" & C Then
        Me.Controls.Remove ("CommandButton" & C)
    End If
    Next C
Next Cont

InformationsquelleAutor MrPantsMan

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.