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

Question

I have a start on looping through dynamically-created Checkboxes:

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

...but I don't know what I need instead of this line:

If (cntrl As CheckBox).Checked Then

...which was just a guess and which does not compile.

Answer 1

Using LInQ would save you some lines of code:

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

I would do this:

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