想实现遍历选择框

summer0411

想实现遍历选择框，同一行选择框只能选择一个，例如选择了上面的，变量1=Ctrl+Shift+Alt+Win ,如果只选择选择框1或者选择框2，变量1=Ctrl.请教大家这个应该怎么写？

zainex

先标记组件:

然后使用一个线程来判断:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&线程, , )

子程序名	返回值类型	公开	备 注
线程

变量名	类 型	静态	数组	备 注
退出	逻辑型
旧状态	整数型
新状态	整数型
数	整数型
选择框	选择框
文本	文本型		8
结果	文本型

文本 ＝ { “左Ctrl”, “右Ctrl”, “左Shift”, “右Shift”, “左Alt”, “右Alt”, “左Win”, “右Win” }
判断循环首 (退出 ＝ 假)
新状态 ＝ 0
计次循环首 (8, 数)
选择框 ＝ 取标记组件 (数)
如果真 (选择框.选中)
新状态 ＝ 位或 (新状态, 左移 (1, 数))

计次循环尾 ()
数 ＝ 1
计次循环首 (4, )
如果真 (位与 (旧状态, 左移 (1, 数)) ≠ 0 且 位与 (新状态, 左移 (1, 数 ＋ 1)) ≠ 0)
选择框 ＝ 取标记组件 (数)
选择框.选中 ＝ 假
新状态 ＝ 位与 (新状态, 位取反 (左移 (1, 数)))
如果真 (位与 (新状态, 左移 (1, 数)) ≠ 0 且 位与 (旧状态, 左移 (1, 数 ＋ 1)) ≠ 0)
选择框 ＝ 取标记组件 (数 ＋ 1)
选择框.选中 ＝ 假
新状态 ＝ 位与 (新状态, 位取反 (左移 (1, 数 ＋ 1)))
数 ＝ 数 ＋ 2
计次循环尾 ()
如果真 (新状态 ≠ 旧状态)
结果 ＝ “”
计次循环首 (8, 数)
如果真 (位与 (新状态, 左移 (1, 数)) ≠ 0)
结果 ＝ 结果 ＋ 文本 [数] ＋ “+”

计次循环尾 ()
编辑框1.内容 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)
旧状态 ＝ 新状态
延时 (100)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&线程, , )<br /> <br /> <br /> .子程序 线程<br /> .局部变量 退出, 逻辑型<br /> .局部变量 旧状态, 整数型<br /> .局部变量 新状态, 整数型<br /> .局部变量 数, 整数型<br /> .局部变量 选择框, 选择框<br /> .局部变量 文本, 文本型, , "8"<br /> .局部变量 结果, 文本型<br /> <br /> 文本 ＝ { “左Ctrl”, “右Ctrl”, “左Shift”, “右Shift”, “左Alt”, “右Alt”, “左Win”, “右Win” }<br /> .判断循环首 (退出 ＝ 假)<br />     新状态 ＝ 0<br />     .计次循环首 (8, 数)<br />         选择框 ＝ 取标记组件 (数)<br />         .如果真 (选择框.选中)<br />             新状态 ＝ 位或 (新状态, 左移 (1, 数))<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     数 ＝ 1<br />     .计次循环首 (4, )<br />         .如果真 (位与 (旧状态, 左移 (1, 数)) ≠ 0 且 位与 (新状态, 左移 (1, 数 ＋ 1)) ≠ 0)<br />             选择框 ＝ 取标记组件 (数)<br />             选择框.选中 ＝ 假<br />             新状态 ＝ 位与 (新状态, 位取反 (左移 (1, 数)))<br />         .如果真结束<br />         .如果真 (位与 (新状态, 左移 (1, 数)) ≠ 0 且 位与 (旧状态, 左移 (1, 数 ＋ 1)) ≠ 0)<br />             选择框 ＝ 取标记组件 (数 ＋ 1)<br />             选择框.选中 ＝ 假<br />             新状态 ＝ 位与 (新状态, 位取反 (左移 (1, 数 ＋ 1)))<br />         .如果真结束<br />         数 ＝ 数 ＋ 2<br />     .计次循环尾 ()<br />     .如果真 (新状态 ≠ 旧状态)<br />         结果 ＝ “”<br />         .计次循环首 (8, 数)<br />             .如果真 (位与 (新状态, 左移 (1, 数)) ≠ 0)<br />                 结果 ＝ 结果 ＋ 文本 [数] ＋ “+”<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         编辑框1.内容 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)<br />         旧状态 ＝ 新状态<br />     .如果真结束<br />     延时 (100)<br /> .判断循环尾 ()

上面使用了位运算, 这是为了方便最后直接进行 新状态 ≠ 旧状态 的判断.
效果:
完整例子.zip (1.98 KB, 下载次数: 0)

2025-8-13 18:02 上传

点击文件名下载附件

憨憨问号

笨方法
例如Ctrl，选中时
变量1=变量1+“Ctrl+”
取消选中时
子文本替换（变量1，“Ctrl+”，“”）

zhengcp

同一行只能选一个，那不应该用单选框的？可以用图片框做底层

补充内容 (2025-8-13 11:20):
一行两个单选框一个父组件

zhengcp

你原来模式大概改成下图这样，自己完善一下，每个选择框被单击都调用一下

我很低调

复制组件

zky821

.版本 2

.子程序 读取图片参数, 文本型
.参数 组件的父窗口, 窗口, , 直接填写顶级窗口就行了,如:_启动窗口
.参数 组件前缀, 文本型, , 如:图片1_编辑框，图片2_编辑框，直接填写图片2即可取出内容，可搭配计次循环取出图片1和图片2的内容
.参数 筛查图片, 逻辑型, , 可以筛查是否为图片格式，真为检测是否为图片链接
.局部变量 局_寻找句柄, 整数型
.局部变量 局_组件, 编辑框
.局部变量 局_组件数量, 整数型
.局部变量 图片扩展名, 文本型, , "0"
.局部变量 循环变量, 整数型
.局部变量 内容, 文本型

局_寻找句柄 ＝ 寻找组件 (组件的父窗口, 组件前缀, “编辑框”, , )
局_组件数量 ＝ 取找到组件数目 (局_寻找句柄)
局_组件 ＝ 取所找到组件 (局_寻找句柄, 0)
.如果真 (筛查图片 ＝ 真)
    图片扩展名 ＝ { “.jpg”, “.jpeg”, “.png”, “.bmp” }
    .计次循环首 (取数组成员数 (图片扩展名), 循环变量)
        .如果真 (文本_寻找文本 (局_组件.内容, 图片扩展名 [循环变量], , 真) ≠ -1)
            内容 ＝ 局_组件.内容
            返回 (内容)
        .如果真结束

    .计次循环尾 ()
    返回 (“”)
.如果真结束
内容 ＝ 局_组件.内容
返回 (内容)

’’’我之前有类似的要求，这个是我当时实现的子程序，不一定适合你，就是遍历一下组件，然后提取内容判断，程序可以输入窗口名和组件名指定判断，也可以在窗口组件取名的时候统一前缀如图片1_编辑框，图片2_编辑框，然后批量判断，使用起来很方便，也可以去组件数量然后循环判断，只要是统一前缀名称，即可随意添加或者删除组件也不需要修改程序

huayuanderen

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
选择框总数	整数型
已勾选数量	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

.局部变量 i, 整数型
.局部变量 组件, 整数型
.局部变量 组件名称, 文本型
.局部变量 组件状态, 文本型

' 初始化计数
选择框总数 ＝ 0
已勾选数量 ＝ 0
编辑框1.内容 ＝ “”  ' 清空显示

' 遍历窗口所有组件
计次循环首 (取组件数 (), i)
组件 ＝ 取组件 (i － 1)  ' 组件索引从0开始

' 判断是否为选择框组件
如果真 (取组件类型 (组件) ＝ #选择框 )
选择框总数 ＝ 选择框总数 ＋ 1
组件名称 ＝ 取组件标题 (组件)

' 获取选择框状态
如果 (选择框_取选中状态 (组件))
组件状态 ＝ “已勾选”
已勾选数量 ＝ 已勾选数量 ＋ 1
组件状态 ＝ “未勾选”

' 显示结果
编辑框1.内容 ＝ 编辑框1.内容 ＋ “选择框：” ＋ 组件名称 ＋ “ → ” ＋ 组件状态 ＋ #换行符

计次循环尾 ()

' 显示统计信息
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “总计：” ＋ 到文本 (选择框总数) ＋ “个选择框，其中” ＋ 到文本 (已勾选数量) ＋ “个已勾选”

子程序名	返回值类型	公开	备 注
选择框_取选中状态	逻辑型		获取选择框的选中状态

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
选择框组件	整数型			选择框组件句柄

.局部变量 状态, 逻辑型

状态 ＝ 发送消息 (选择框组件, 240, 0, 0)  ' 通过消息获取状态
返回 (状态)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 选择框总数, 整数型<br /> .程序集变量 已勾选数量, 整数型<br /> <br /> .子程序 _按钮1_被单击<br />     .局部变量 i, 整数型<br />     .局部变量 组件, 整数型<br />     .局部变量 组件名称, 文本型<br />     .局部变量 组件状态, 文本型<br />     <br />     ' 初始化计数<br />     选择框总数 ＝ 0<br />     已勾选数量 ＝ 0<br />     编辑框1.内容 ＝ “”  ' 清空显示<br />     <br />     ' 遍历窗口所有组件<br />     .计次循环首 (取组件数 (), i)<br />         组件 ＝ 取组件 (i － 1)  ' 组件索引从0开始<br />         <br />         ' 判断是否为选择框组件<br />         .如果真 (取组件类型 (组件) ＝ #选择框)<br />             选择框总数 ＝ 选择框总数 ＋ 1<br />             组件名称 ＝ 取组件标题 (组件)<br />             <br />             ' 获取选择框状态<br />             .如果 (选择框_取选中状态 (组件))<br />                 组件状态 ＝ “已勾选”<br />                 已勾选数量 ＝ 已勾选数量 ＋ 1<br />             .否则<br />                 组件状态 ＝ “未勾选”<br />             .如果结束<br />             <br />             ' 显示结果<br />             编辑框1.内容 ＝ 编辑框1.内容 ＋ “选择框：” ＋ 组件名称 ＋ “ → ” ＋ 组件状态 ＋ #换行符<br />         .如果真结束<br />     .计次循环尾 ()<br />     <br />     ' 显示统计信息<br />     编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “总计：” ＋ 到文本 (选择框总数) ＋ “个选择框，其中” ＋ 到文本 (已勾选数量) ＋ “个已勾选”<br /> <br /> .子程序 选择框_取选中状态, 逻辑型, , 获取选择框的选中状态<br />     .参数 选择框组件, 整数型, , 选择框组件句柄<br />     .局部变量 状态, 逻辑型<br />     <br />     状态 ＝ 发送消息 (选择框组件, 240, 0, 0)  ' 通过消息获取状态<br />     返回 (状态)

knowledge

https://www.eyuyan.la/post/15015.html

zhengcp

  

子程序名	返回值类型	公开	备 注
选择框选中
参数名	类 型	参考	可空	数组	备 注
当前选择框	选择框				当前
另个选择框	选择框

如果真 (当前选择框.选中 ＝ 真)
另个选择框.选中 ＝ 假

判断 (选择框1.选中 ＝ 真 或 选择框2.选中 ＝ 真)
编辑框1.内容 ＝ “A”
编辑框1.内容 ＝ “”

如果真 (选择框3.选中 ＝ 真 或 选择框4.选中 ＝ 真)
判断 (编辑框1.内容 ≠ “”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “ + ” ＋ “B”
编辑框1.内容 ＝ “B”


如果真 (选择框5.选中 ＝ 真 或 选择框6.选中 ＝ 真)
判断 (编辑框1.内容 ≠ “”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “ + ” ＋ “C”
编辑框1.内容 ＝ “B”


如果真 (选择框7.选中 ＝ 真 或 选择框8.选中 ＝ 真)
判断 (编辑框1.内容 ≠ “”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “ + ” ＋ “D”
编辑框1.内容 ＝ “D”

子程序名	返回值类型	公开	备 注
_选择框1_被单击

选择框选中 (选择框1, 选择框2)

子程序名	返回值类型	公开	备 注
_选择框2_被单击

选择框选中 (选择框2, 选择框1)

子程序名	返回值类型	公开	备 注
_选择框3_被单击

选择框选中 (选择框3, 选择框4)

子程序名	返回值类型	公开	备 注
_选择框4_被单击

选择框选中 (选择框4, 选择框3)

子程序名	返回值类型	公开	备 注
_选择框5_被单击

选择框选中 (选择框5, 选择框6)

子程序名	返回值类型	公开	备 注
_选择框6_被单击

选择框选中 (选择框6, 选择框5)

子程序名	返回值类型	公开	备 注
_选择框7_被单击

选择框选中 (选择框7, 选择框8)

子程序名	返回值类型	公开	备 注
_选择框8_被单击

选择框选中 (选择框8, 选择框7)

.版本 2<br /> <br /> .子程序 选择框选中<br /> .参数 当前选择框, 选择框, , 当前<br /> .参数 另个选择框, 选择框<br /> <br /> .如果真 (当前选择框.选中 ＝ 真)<br />     另个选择框.选中 ＝ 假<br /> .如果真结束<br /> <br /> .判断开始 (选择框1.选中 ＝ 真 或 选择框2.选中 ＝ 真)<br />     编辑框1.内容 ＝ “A”<br /> .默认<br />     编辑框1.内容 ＝ “”<br /> .判断结束<br /> <br /> .如果真 (选择框3.选中 ＝ 真 或 选择框4.选中 ＝ 真)<br />     .判断开始 (编辑框1.内容 ≠ “”)<br />         编辑框1.内容 ＝ 编辑框1.内容 ＋ “ + ” ＋ “B”<br />     .默认<br />         编辑框1.内容 ＝ “B”<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (选择框5.选中 ＝ 真 或 选择框6.选中 ＝ 真)<br />     .判断开始 (编辑框1.内容 ≠ “”)<br />         编辑框1.内容 ＝ 编辑框1.内容 ＋ “ + ” ＋ “C”<br />     .默认<br />         编辑框1.内容 ＝ “B”<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (选择框7.选中 ＝ 真 或 选择框8.选中 ＝ 真)<br />     .判断开始 (编辑框1.内容 ≠ “”)<br />         编辑框1.内容 ＝ 编辑框1.内容 ＋ “ + ” ＋ “D”<br />     .默认<br />         编辑框1.内容 ＝ “D”<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _选择框1_被单击<br /> <br /> 选择框选中 (选择框1, 选择框2)<br /> <br /> .子程序 _选择框2_被单击<br /> <br /> 选择框选中 (选择框2, 选择框1)<br /> <br /> .子程序 _选择框3_被单击<br /> <br /> 选择框选中 (选择框3, 选择框4)<br /> <br /> .子程序 _选择框4_被单击<br /> <br /> 选择框选中 (选择框4, 选择框3)<br /> <br /> .子程序 _选择框5_被单击<br /> <br /> 选择框选中 (选择框5, 选择框6)<br /> <br /> .子程序 _选择框6_被单击<br /> <br /> 选择框选中 (选择框6, 选择框5)<br /> <br /> .子程序 _选择框7_被单击<br /> <br /> 选择框选中 (选择框7, 选择框8)<br /> <br /> .子程序 _选择框8_被单击<br /> <br /> 选择框选中 (选择框8, 选择框7)