几个checkbox控件，只要一个被选中了，其他就不能被选中.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 9 行

最好把几个控件组成一个控件数组(QA001403 “如何创建控件数组”)，这样比较好处理。下面是例子： 
    Private Sub Check1_Click(Index As Integer) 
     If Check1(Index).Value = Checked Then 
     For i = 0 To Check1.Count - 1 
     If i <> Index Then Check1(i) = Unchecked 
     Next 
     End If 
    End Sub 
<END>