VB里用多选框怎么做单选

简单一种办法用控件数组

在这里解释一下，控件数组简单的理解就是N个同类型控件一个名字，只是各自编号不同（index）

比如有100个多选框，那么就是如下代码

'---注意之所以将代码放在MouseUp事件是为了防止连续出发Click事件产生“堆栈控件溢出”错误

Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)For i = 0 To 99 '100个控件 100-1=99Check1(i).Value = 0NextCheck1(Index).Value = 1End Sub