今天群友问了一个问题：
下面来讲一下具体的操作思路：
1、获取每一个多选框的状态，由于有多个多选框，所以我这里使用循环，同时名称命名的时候使用默认的多选框+序号形式，并且获取到的多选框状态存入变量k。
fori=1to10then
Dimk=("多选框"i)
next
2、判断每一个多选框的状态，如果是选中状态，就用一个变量m记录一下，初始m=0
Dimm=0
Ifk["选中"]Then
m=m+1
next
3、当m3的时候，就说明超过3个多选框被选中了，此时就不能再继续勾选，同时结束循环。
Ifm3Then
("多选框1",{"选中":false})
ShowMessage"超过3了"
//ExitFor
If
把这些结合在一起的代码如下：
Function函数名1()
Dimm=0
Fori=1To10
Dimk=("多选框"i)
Ifk["选中"]Then
m=m+1
Ifm3Then
("多选框1",{"选中":false})
ShowMessage"超过3了"
ExitFor
If
If
Next
Function
注意：这是多选框1的写法，如果是其他的多选框，修改上面的红色中的数字。最终10个多选框会有10个函数。
版权声明：本站所有作品（图文、音视频）均由用户自行上传分享，仅供网友学习交流，不声明或保证其内容的正确性，如发现本站有涉嫌抄袭侵权/违法违规的内容。请举报，一经查实，本站将立刻删除。