如何检查是否选中了动态创建的复选框（VB.NET）？

Question

我开始循环遍历动态创建的复选框：

For Each cntrl As Control In Me.Controls
    If TypeOf cntrl Is CheckBox Then
        If (cntrl As CheckBox).Checked Then
            'Do Something
        End If
    End If
Next

...但是我不知道我需要什么，而不是这条线：

If (cntrl As CheckBox).Checked Then

...这只是猜测，无法编译。

Answer 1

使用LInQ可以节省一些代码行：

Sub Test()
    Dim myList as New List(Of CheckBox)
    For Each cbox As CheckBox In Me.Controls.OfType(Of CheckBox).Where(Function(cb) cb.Checked)
        myList.Add(cbox)
    Next
    Msgbox(String.Format("{0} checkboxes were checked!", myList.Count))
End Sub

Answer 2

我认为您想做的是：

If DirectCast(cntrl, CheckBox).Checked = True Then

Answer 3

我会这样做：

Dim con As Checkbox
For Each con In Me.Controls
   If con.Checked = True
      'Do Something
   End If
Next