如何让许多Check控件只有一个被选中就执行事件？

Question

创建了由20个Check控件组成的控件数组，Index都为0，请问这样能响应一个Check被选中文本框中就显示“有选中项”吗？具体怎么办到？

Answer 1

index 都为 0 ??厉害

Answer 2

怎样设置Index?不是控件数组都用一个过程吗？初学者见笑了。只要能够实现20个Check中，任何一个被点中就执行文本框显示“有选中项”。请明示，谢谢！

Answer 3

可以使用控件数组，例如为Check1,设置每一个check控件的index属性为0-19,添加下面的代码
Private Sub Check1_Click(Index As Integer)
  If Check1(Index).Value = 1 Then MsgBox "有选中项。"
End Sub

Answer 4

原来每个Check的(名称)都要一样（比如都是Check），但是Index不能一样。于是就可以使用空间数组事件了。
Private Sub Check_Click(Index As Integer)
    Dim CmdC As Integer
    CmdC = 0
    For n = 1 To 20
        If Controls("Check")(n).Value = 1 Then
        CmdC = 1
        Exit For
    Else
    End If
    Next n
End Sub