清除/取消选择 GroupBox 控件中的 ComboBox 控件

Question

我的问题：

我有一个功能可以清除组框中的文本框和组合框 (DropDownList)。虽然文本框正在清除，但我无法清除组合框。

我的代码：

Public Sub ClearGroupControls()
    For Each groupboxControl As Control In Me.Controls
        If TypeOf groupboxControl Is GroupBox Then
            For Each control As Control In groupboxControl.Controls
                ' Clear controls
                If TypeOf control Is TextBox Then
                    control.Text = ""
                ElseIf TypeOf control Is ComboBox Then
                    'control.Text = String.Empty
                    'control.SelectedIndex = -1
                    control.Text = ""
                End If
            Next
        End If
    Next
End Sub

注意：.SelectedIndex = -1 产生错误：

SelectedIndex 不是 System.Windows.Forms.Control 的成员

...考虑到 control.Text 在控件是 TextBox 时有效。

Answer 1

循环遍历控件集合会返回一个没有 SelectedIndex 属性的通用控件。
您需要将其转换为适当的类型

Public Sub ClearGroupControls()
    For Each groupboxControl In Me.Controls.OfType(Of GroupBox)()
        For Each control As Control In groupboxControl.Controls
            ' Clear controls
            If TypeOf control Is TextBox Then
                control.Text = ""
            ElseIf TypeOf control Is ComboBox Then
                Dim cbo = DirectCast(control, ComboBox)
                cbo.SelectedIndex = -1
            End If
        Next
    Next
End Sub

请注意，在外部循环中，您可以使用 IEnumerable 扩展来仅需要 Form 的 Controls 集合中的枚举器返回的 GroupBox 类型的控件。

您可以将内部循环更改为两个循环以利用 OfType 扩展，但如果它确实提供了更好的性能，则应进行测量（这在很大程度上取决于您的组合框中存在的控件数量）

Public Sub ClearGroupControls()
    For Each groupboxControl In Me.Controls.OfType(Of GroupBox)()
        For Each txt In groupboxControl.Controls.OfType(Of TextBox)()
            txt.Text = ""
        Next
        For Each cbo In groupboxControl.Controls.OfType(Of ComboBox)()
           cbo.SelectedIndex = -1
        Next
    Next
End Sub