今天群友问了一个问题：
这个问题其实和基础课的《多选框变成单选框》差不多，不同点是每次点击多选框要获取所有的多选框情况，然后在决定要不要勾选。效果如下图：
下面来讲一下具体的操作思路：
1、获取每一个多选框的状态，由于有多个多选框，所以我这里使用循环，同时名称命名的时候使用默认的多选框 序号形式，并且获取到的多选框状态存入变量k。
for i=1 to 10 then
Dim k=uip.GetAttribute("多选框"&i)
next
2、判断每一个多选框的状态，如果是选中状态，就用一个变量m记录一下，初始m=0
Dim m=0
If k["选中"] Then
m = m 1
next
3、当m>3的时候，就说明超过3个多选框被选中了，此时就不能再继续勾选，同时结束循环。
If m > 3 Then
uip.SetAttribute("多选框1",{"选中":false})
ShowMessage "超过3了"
//Exit For
End If
把这些结合在一起的代码如下：
Function 函数名1()
Dim m=0
For i = 1 To 10
Dim k=uip.GetAttribute("多选框"&i)
If k["选中"] Then
m = m 1
If m > 3 Then
uip.SetAttribute("多选框1",{"选中":false})
ShowMessage "超过3了"
Exit For
End If
End If
Next
End Function
注意：这是多选框1的写法，如果是其他的多选框，修改上面的红色中的数字。最终10个多选框会有10个函数。
,
