删除另一个面板内的面板

Question

我有一个面板，里面有 4 个面板。内部面板被命名为“XXXX | 1 | A”、“XXXX | 1 | B”、“XXXX | 1 | C”和“XXXX | 1 | D”，您可以看到它们在最后一个字符中的区别一封信。

在这种情况下，我要做的始终是只删除标识为 A 和 B 的面板。

这是我的代码。

Dim clickedLabel = DirectCast(DirectCast(DirectCast(sender, ToolStripMenuItem).Owner, ContextMenuStrip).SourceControl, Panel)

pb = clickedLabel.Parent
Dim controls_number As Integer = pb.Controls.Count
Dim spliterb
Dim con As Control

For Each con In pb.Controls

    spliterb = con.Name.Split("|")

    If spliterb(2).ToString = ("A") Or spliterb(2).ToString = ("B") Then
       pb.Controls.Remove(con)
    End If

Next

如你所见，通过变量controls_number我知道里面有4个Panel，但是在进行排列时，它只读取3，并且只删除了标识为B的Panel，没有到达Panel A。

您能向我解释一下您为什么不阅读 4 个面板吗？有什么想法可以让我完成所有 4 个？

谢谢。

Answer 1

不要在使用For Each 循环枚举列表时修改列表。在这种情况和许多其他情况下，简单的解决方案是将您想要的项目提取到一个单独的列表中并循环遍历该列表，同时从原始列表中删除项目。因此，删除对您正在枚举的列表没有影响。在您的情况下，可能如下所示：

Dim panels = pb.Controls.
                OfType(Of Panel)().
                Where(Function(pnl) pnl.Name.EndsWith("|A") OrElse
                                    pnl.Name.EndsWith("|B")).
                ToArray()

For Each pnl In panels
    pnl.Dispose()
Next

调用Dispose 将从其父级移除控件并正确处置它。如果您只是调用Remove，则不会释放控件。除非您打算重用该控件，否则这很糟糕。

Answer 2

首先，您不能使用管道字符“|”重命名控件因为设计师不允许。 但是在下面的示例中，我假设它是一个下划线字符“_”。 现在，当您循环一个集合时，如果它在此循环期间更改了她的维度，您将丢失新长度/维度之后的元素数量（您删除）。 因此，在这种情况下，您可以使用循环逆向（最大维度为 0）作为技巧，其余元素始终在循环内部/存在于循环中。

下面这段代码说明了我的意思。

    For i As Integer = pb.Controls.Count - 1 To 0 Step -1
        If pb.Controls(i).Name Like "*_A" OrElse pb.Controls(i).Name Like "*_B" Then
            pb.Controls.Remove(pb.Controls(i))
        End If
    Next