递归算法 Public Shared Sub OperateControl(ByVal parentControl As Control) Dim subControl As Control If IsNothing(parentControl) = True Then Return End If If parentControl.Controls.Count = 0 Then Return End If For Each subControl In parentControl.Controls If IsNothing(parentControl) = False Then OperateControl(subControl) End If Next [Your Operations ......] End Sub
选遍历groupcox,再遍历每个checkbox.
foreach(groupbox in winform) { foreach(checkbox in group) { wrietline(); } }这里只是思路.
Return
End If If parentControl.Controls.Count = 0 Then
Return
End If For Each subControl In parentControl.Controls If IsNothing(parentControl) = False Then
OperateControl(subControl) End If
Next [Your Operations ......] End Sub
{
foreach(checkbox in group)
{
wrietline();
}
}这里只是思路.