vb.net中一個組框內是否勾選了多個復選框如何勾選顯示

Question

    For Each ctl As Windows.Forms.Control In Me.Controls
        If TypeOf ctl Is System.Windows.Forms.CheckBox Then
            Dim ck As System.Windows.Forms.CheckBox = ctl
            If ck.Checked Then
                intcheckboxesChecked += 1
            End If
        End If
    Next

當我將計數顯示為 0 值時

Answer 1

如果CheckBoxes在GroupBox中，那么您必須使用GroupBox的Controls集合而不是窗體。 此外，您可以使用 LINQ 查詢將循環展平為單個語句：

Dim checkedBoxesCount = myGroupBox.Controls.
                                   OfType(Of CheckBox)().
                                   Count(Function(cb) cb.Checked)