VB.NET窗体调用自定义Dispose子例程未完全释放所有控件

这套释放逻辑无法正常清空所有控件，主要有两个直接问题：

• 遍历过程中动态改动集合导致漏项
  当对集合内的控件调用Dispose方法时，该控件会立刻从所属的Controls集合中移除，集合长度、剩余元素的索引会实时变化。普通正序循环、For Each遍历的游标不会适配这种动态变动：比如集合初始包含[TextBox1, TextBox2, TextBox3]三个控件，第一次遍历到TextBox1并调用Dispose后，集合会自动变为[TextBox2, TextBox3]，此时游标会直接跳到下一个索引位置，跳过现在排在集合首位的TextBox2，最终只Dispose了第1个和第3个控件，和你观察到的“仅释放约半数控件”的现象完全吻合。
• 未覆盖嵌套容器内的控件
  Me.Controls仅存储直接放置在窗体上的顶级控件，那些被放在Panel、GroupBox、TabPage等容器内部的控件，根本不属于窗体的直接Controls集合，原代码完全遍历不到，自然无法被释放。

修复逻辑需要同时解决两个问题：一是调整遍历顺序为倒序，避免动态删除导致的索引错位；二是通过递归遍历处理所有嵌套层级的容器控件。

Sub disposer() '释放窗体上所有层级的全部控件
    ' 从集合末尾往前遍历，遍历过程中删除元素不会影响未遍历到的前置元素索引
    For i As Integer = Me.Controls.Count - 1 To 0 Step -1
        Dim currentControl As Control = Me.Controls(i)
        ' 先释放当前控件内部嵌套的所有子控件
        ReleaseAllChildControls(currentControl)
        ' 释放当前控件本身
        currentControl.Dispose()
    Next
End Sub

' 递归遍历释放控件所有嵌套子控件的辅助方法
Private Sub ReleaseAllChildControls(parent As Control)
    For j As Integer = parent.Controls.Count - 1 To 0 Step -1
        Dim childControl As Control = parent.Controls(j)
        ' 递归处理更深层级的嵌套控件
        ReleaseAllChildControls(childControl)
        childControl.Dispose()
    Next
End Sub

注意事项 #

• 控件被Dispose后会彻底销毁，无法再次在窗体上显示，这个方法仅适合需要彻底清空窗体所有动态生成控件的场景，如果窗体后续还要复用原有静态控件，不要直接调用这个方法。
• 倒序遍历的逻辑是专门适配集合动态删除场景的，不要把遍历方向改回正序，否则会重新出现漏删的问题。

内容的提问来源于stack exchange，提问作者user15338372