vb.net已经去掉了控件数组这个类，不过有个代替该方式的一个属性：Tag，你可以把这些关联的Tag属性设置为同一标记，如：a。然后遍历所有的checkbox并且tag为a的则选定：Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一个容器里，比如groupbox，那可以用groupbox.controls
三门网站制作公司哪家好，找创新互联公司！从网页设计、网站建设、微信开发、APP开发、响应式网站建设等网站项目制作，到程序开发，运营维护。创新互联公司2013年至今到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司。
If ctl.GetType().Name.ToLower() = "checkbox" Then
CType(ctl, CheckBox).Checked = CheckBox3.Checked
End If
NextEnd Sub
Dim Str(20) As String '20数据元素
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '实例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗体
Dim Index As Integer = i.TabIndex '没index属性
Str(n) = Index
i.Text = Str(n) 'str数组值赋值给文本框
n += 1
Next
vb.net和vb6.0不同，无法直接使用控件数组。不过可以通过其他方式变通一下。
比如现在有10个label，要将这10个label的text属性统一设置为“这是第X个标签”（X为1-10）。
1.建立10个label，名称分别为label1、label2、label3。。label10
2.代码：
For i = 1 To 10
Me.FindControl("label" i).Text = "这是第" i “个标签”
Next i
关键点是Me.FindControl()的方法，在代码中Me.FindControl("label1").text与label1.text是一样的。
