求助vb 数组控件问题

Question

怎样数组控件依次循环单击完成呢如
Private Sub Command1_Click(Index As Integer)
 If Index = 0 Then
 Print "0"
 End If
 
 If Index = 1 Then
 Print "1"
 End If
 
 If Index = 2 Then
 Print "2"
 End If
 
 If Index = 3 Then
 Print "3"
 End If
 
 If Index = 4 Then
 Print "4"
 End If
 
 
End SubPrivate Sub Command2_Click()
Dim i As Integer
For i = 0 To 4
Call Command1_Click(Index = i)
NextEnd Sub这是要把数组控件循环单击问题， 但是不知什么原因达不到效果。到底哪里错了呢

Answer 1

不明白你什么意思,你的代码可以改为:Private Sub Command1_Click(Index As Integer)
    Print Index
End SubPrivate Sub Command2_Click()
    Dim i As Integer
    For i = 0 To Command1.Count - 1
        Call Command1_Click(i)
    Next
End Sub

Answer 2

Option Explicit
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
Print "0"
End IfIf Index = 1 Then
Print "1"
End IfIf Index = 2 Then
Print "2"
End IfIf Index = 3 Then
Print "3"
End IfIf Index = 4 Then
Print "4"
End If
End SubPrivate Sub Command2_Click()
Dim i As Integer
For i = 0 To 4
    Command1(i).Value = True
NextEnd Sub

Answer 3

tongnaifu 真可爱， 哈哈~ 你做得对