4

我创建了一个组框，然后在运行时用按钮填充它。我还创建了一个按钮，比如 Button1 来遍历 groupbox 并删除这些按钮。这是我的 Button1 代码：

Public Sub removeControls()
    For Each ctrl As Control In GroupBox1.Controls
        GroupBox1.Controls.Remove(ctrl)
        ctrl.Dispose()
    Next 
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    removeControls()
End Sub

执行时，它只删除 GroupBox1 内的一些控件，而不是全部。您能解释一下我的代码中缺少什么以使其正常工作吗？谢谢。

4

2 回答 2

5

当您在For Each循环中删除控件时，您实际上是在修改您尝试循环通过的集合。当您删除集合中的第一项时，第二项向上移动成为第一项。但是现在，当您到达循环的第二个索引时，第三个项目就在它的位置。您实际上已跳过删除第二项，只删除了第一项和第三项。依此类推，贯穿整个循环。

相反，您需要以相反的顺序遍历控件并删除每个索引处的项目。通过从末尾开始删除项目，您不会影响项目的顺序或位置。

因此，只需将您的方法更改为以下内容：

Public Sub RemoveControls()
    For i As Integer = (GroupBox1.Controls.Count - 1) To 0 Step -1
        Dim ctrl As Control = GroupBox1.Controls(i)
        GroupBox1.Controls.Remove(ctrl)
        ctrl.Dispose()
    Next i
End Sub
于 2010-11-24T06:24:27.163 回答
2

您在迭代集合时正在更改集合，不应该这样做。

而是使用类似的东西

For i As Integer = GroupBox1.Controls.Count - 1 To 0 Step -1
    Dim ctrl As Control = GroupBox1.Controls(i)
    GroupBox1.Controls.Remove(ctrl)
    ctrl.Dispose()
Next
于 2010-11-24T06:14:47.587 回答