Me.Controls 没有找到表单上的所有控件

Question

我有一个表单，它包含一个搜索词列表，并为每个结果集创建一个组合框。这些框是在运行时创建的，它们都是单独命名的，并且都直接在表单上，​​没有一个在面板或任何子控件中。

我想在每次完成新搜索时删除以前的搜索组合框。我做了以下子删除所有组合框

        For Each c As Control In Me.Controls
        If c.GetType Is GetType(ComboBox) Then 
            Me.Controls.Remove(c)
            c.Dispose()
        End If
    Next c

但由于某种神秘的原因，表单并没有看到之前搜索创建的所有组合框。如果我创建 3 个框，它将看到第一个和第三个，但看不到第二个。如果我再次运行 sub，它将看到第二个并在那个时候捕获它。所以我需要运行 sub 两次才能真正清除所有创建的组合框。我检查了控件集合，它似乎总是比上一次搜索中创建的组合框的实际数量少 1

知道为什么它总是留下一个组合框，我需要再次清除它们以摆脱它吗？

Answer 1

除了 Jimi 在 cmets 中所说的，我建议你使用这个：

For Each cmbx In Controls.OfType(Of ComboBox)().ToArray()
    cmbx.Dispose()
Next

OfType 首先进行过滤，然后ToArray 创建一个可以循环的数组，因此您不会同时枚举和修改集合。删除和释放控件没有意义，因为释放会隐式删除它们。