今天偶然之间看到个题目:在一个窗体上放6个checkbox,再放一个按钮,要求点击按钮后用msgbox()输出有多少个checkbox被选中.
因为只有6个checkbox,所以用if语句进行条件判断就可以搞定了,但是如果不只6个,是很多的话,怎么搞定?

好像用for.....next可以实现

Private Sub Command1_Click()
Dim i As Integer
Dim check As Control
For Each check In Me.Controls
If check.Value = 1 Then
i = i + 1
End If
Next check
MsgBox i
End Sub

测试可以

[此贴子已经被作者于2007-10-4 20:55:36编辑过]

我试过了:
Private Sub Command1_Click()
Dim i As Integer
Dim checktotal As Integer
checktotal = 0
For i = 1 To 6
If check(i).Value = True Then
checktotal = checktotal + 1
End If
Next
End Sub
关键是第6行中check(i)中的"i"怎么和check1 check2 check3.....中的"1,2,3..."对应不会.

呵呵,不好意思,刚才可能网页没全部打开,没看到2楼写的程序...就看到第一句话了.

设为控件数组（即设置几个Check的Name相同，Index属性从0到5，然后用 Check(i)引用。）

好,我去突击一下控件数组

控件数组其实没什么，就是数组形式维护的控件。顶多就是动态增加元素。删除元素不是控件数组的特性。

这个论坛真的很不错.

LZ,你不会用循环么?

谁能帮我解释下"control" 这个数据类型?找半天了.没找到能看懂的答案.