VB里用多选框怎么做单选？

2025-10-21 22:55:45

简单一种办法用控件数组

在这里解释一下，控件数组简单的理解就是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=99

Check1(i).Value = 0

Check1(Index).Value = 1

End Sub

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。