Question

VB中有一组Check复选框:Check1,Check2,....,Check20。如何用OLEObjects写for循环提取.Vaule值？或他法？

For i = 1 To 20 '检查20个文件夹是否存在(当被点选后)
If OLEObjects("CheckBox" & i).Object.Value = 0 Then
P(i - 1) = 0
Else
P(i - 1) = i + 1
End If
Next i
该语句在excel VBA中能运行，但在VB上不行，请高人指点下怎么修改合适。

Answer 1

Private Sub Command1_Click()
Dim x As Control
For Each x In Controls
If TypeOf x Is CheckBox Then Print x.Caption; x.Value
Next
End Sub

Answer 2

用控件数组

追问

怎么用，能具体点吗？

追答

Check1,Check2,....,Check20改成Check1(0),Check1(1),....,Check1(19)，这样语句就好写了：

For i = 0 To 19
If Check1(i).Value = 0 Then
P(i - 1) = 0
Else
P(i - 1) = i + 1
End If
Next i