Question

我已经厌倦了清除表单中另一个面板内的组框内的所有复选框。我有一个代码可以清除面板221内的表单中的所有复选框。

For Each element As Control In Me.Panel221.Controls
        If TypeOf element Is CheckBox Then
            DirectCast(element, CheckBox).Checked = False
        End If
Next

我不知道为什么我只能使用此代码清除表单中的所有复选框。

For Each element As Control In Me.Controls
            If TypeOf element Is CheckBox Then
                DirectCast(element, CheckBox).Checked = False
            End If
Next

这是我的表格的结构：

-FORM
 -PANEL 1
  -GroupBox 1
   -PANEL 2
     -PANEL 3
       * Several CheckBox inside another panel
     -END OF PANEL 3
   -END OF PANEL 2
  -END OF GROUPBOX 1
   'Another groupbox
  -GroupBox 2
   -PANEL 4
     -PANEL 5
       * Several CheckBox inside another panel
     -END OF PANEL 5
   -END OF PANEL 4
  -END OF GROUPBOX 2
 -END OF PANEL 1
-END OF FORM

如何清除或取消选中多个组框和面板下的所有复选框？

Answer 1

Me.Controls仅包含直接子女，其子女不包含其他子女等。为了做你想做的事，你必须使用递归函数：

Private Sub UncheckRecursive(ByVal element As Control)
    If TypeOf element Is CheckBox Then
        DirectCast(element, CheckBox).Checked = False
    Else
        For Each childElement In element.Controls
            Me.UncheckRecursive(childElement)
        Next
    End If
End Sub

然后你这样称呼：me.UncheckRecursive(me)

取消选中面板和另一个面板内的组框内的表单中的所有复选框

1 个答案: