高手请帮一下忙？

Question

我现在有8个checkbox控件，我想选择一项后其余就不能在选了，本来可以用Optionbutton控件的，但是为了以后能够多选所以就先做成checkbox控件了，我想问一下怎么能够实现选择一项后，如果用户再点击其他的checkbox控件，就提示，怎么才能实现啊，用checkbox(1)=vbcheck or ....吗？请高手帮一下忙？

Answer 1

当选择其中一项后，其余的enabled设置为false

Answer 2

Private Sub Check1_Click(Index As Integer)
    For i = 0 To 7
        Check1(i).Enabled = False
    Next
End Sub

Answer 3

这样最好：Private Sub Check1_Click(Index As Integer)
    Dim I, J As Integer
    J = 0
    For I = 0 To 7
    
        If Check1(I).Value = 1 Then
            J = J + 1
        End If
    Next
    If J > 1 Then
        Check1(Index).Value = 0
        MsgBox "不能再选取了"
    End If
End Sub