Question

vb.net从8个CheckBox中挑出那几个被选中

Private Sub 考试窗口提示_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a, b As Integer
For a = 1 To 8
If Form1.CheckBox(a).Visible = True Then
b = ++1
TextBox1.Text = b
End If
Next
End Sub

现在报错说Form1.CheckBox(a)有问题，那位大神能给我改正一下

Answer 1

所有checkbox并没有构成一个数组，不应该用for遍历。
for each control in me.controls
或者
For i = 0 To form1.count - 1
form1.Controls(i) blabla
next i