按键精灵脚本界面多选框实现10选3(选中不超过3个)

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

界面多选框实现10选3(选中不超过3个)

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

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

把这些结合在一起的代码如下:

界面多选框实现10选3(选中不超过3个)

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

原文始发于微信公众号(3分钟学堂):

除特别注明外,本站文章均为原创,转载请注明出处和链接!
本文链接地址: https://pumpkinit.com/803.html
Pumpkin  [https://pumpkinit.com]  感谢

发表评论

电子邮件地址不会被公开。 必填项已用*标注