vb 中怎样为多个checkbox 控件赋值

Question

用数组了
把那20个checkbox设为一个控件数组，例如名字都叫check1，索引从0-19
dim i as integar
for i=1 to 20
  check1(i-1).value=1
next i

Answer 1

你可以建一个CheckBox控件数组具体如下：
将所有的name都写为：CheckBox1
将他们的Index属性一次复值为：0，1、、、、、20在你的Form_Load()中：Dim i As IntegerFor i=0 to Check.Count-1
Check1(i).Value=1
Next如果对了，请你一定要给我分
谢谢、、、、、、

Answer 2

建议你用控件数组,也就是建立check1(0),check1(1),....check1(19)等20个check控件,然后:
For i = 0 To 19 Step 1
       Check1(i).Value = 1
Next
你上面的问题是你把s定义为string,而string并非是check,也没有value的属性,所以会出错.可以定义为:
dim s as checkbox,但由于check控件的name属性为只读的,所以无法得到各个控件的名称,也就无法完成赋值操作.

Answer 3

用以下代码可以实现：
Dim s As ControlFor Each s In Me.Controls
    If TypeOf s Is CheckBox Then
        s.Value = 1
    End If
Next

Answer 4

用它：
Me.Controls("Check1").value