VB.NET 循环窗体内所有控件

    Private Sub 清理并初始化控件()
        For Each 控件 As Control In Me.Controls            '循环当前窗口的所有控件
            '清理所有ComboBox控件
            If TypeOf 控件 Is ComboBox Then                '如果当前控件类型是 ComboBox
                Dim 组合框控件 = TryCast(控件, ComboBox)   '把控件 转成 ComboBox 控件
                组合框控件.Text = ""
            End If
            '清理所有ListBox控件
            If TypeOf 控件 Is ListBox Then                '如果当前控件类型是 ListBox
                Dim 列表框控件 = TryCast(控件, ListBox)   '把控件 转成 ListBox 控件
                列表框控件.Items.Clear()                  '清空当前控件内容
            End If
            '清理所有ListBox控件
            If TypeOf 控件 Is TextBox Then                '如果当前控件类型是 TextBox
                Dim 列表框控件 = TryCast(控件, TextBox)   '把控件 转成 TextBox 控件
                列表框控件.Text = ""                      '清空当前控件内容
            End If
        Next
    End Sub