銷燬控件VB.net

Question

我在動態生成控件後無法銷燬所有控件。我用這個來摧毀他們：

For Each cControl In Me.Controls 
      If (TypeOf cControl Is TextBox) Then 
       Me.Controls.Remove(cControl) 
      End If 
     Next 
     For Each cControl1 In Me.Controls 
      If (TypeOf cControl1 Is CheckBox) Then 
       Me.Controls.Remove(cControl1) 
      End If 
     Next 

我也用cControl.dispose()代替Me.Controls.Remove(cControl)。

而不是通過和銷燬所有文本框和複選框，它只會銷燬其他複選框和文本框。如果我切換兩個For循環，它將會是另一種方式。有沒有解決這個問題？一個解釋？解決？

Answer 1

當您迭代該集合時，您不應該修改Controls集合。你也可以加入循環。這將解決你的問題：

Dim count As Integer = Me.Controls.Count 

For i As Integer = count -1 to 0 Step -1 
    Dim cControl As Control = Me.Controls(i) 

    If (TypeOf cControl Is CheckBox OrElse TypeOf cControl Is TextBox) Then 
     Me.Controls.Remove(cControl) 
    End If 
Next