今天群友问了一个问题：

这个问题其实和基础课的《多选框变成单选框》差不多，不同点是每次点击多选框要获取所有的多选框情况，然后在决定要不要勾选。效果如下图：

下面来讲一下具体的操作思路：

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个函数。