怎么实现选择框被选中后，其标题依次显示在标签标题中？

AQ0351

  

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

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

找出选择框 ()
输出调试文本 (“------初始化完成------”)

子程序名	返回值类型	公开	备 注
找出选择框

变量名	类 型	静态	数组	备 注
i	整数型
组件句柄	整数型
组件数量	整数型

组件句柄 ＝ 寻找组件 (_启动窗口, “选择框”, “选择框”, , )
输出调试文本 (“组件句柄” ＋ 到文本 (组件句柄))
组件数量 ＝ 取找到组件数目 (组件句柄)
输出调试文本 (“组件数量” ＋ 到文本 (组件数量))
重定义数组 (选择框数组, 假, 组件数量)
计次循环首 (组件数量, i)
输出调试文本 (到文本 (i))
选择框数组 [i] ＝ 取所找到组件 (组件句柄, i － 1)
输出调试文本 (“已添加选择框数据”)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
透明标签句柄	整数型
透明标签数量	整数型
透明标签数组	透明标签
n	整数型
标题数组	文本型		0
l	整数型
c	整数型

清除数组 (标题数组)
透明标签句柄 ＝ 寻找组件 (_启动窗口, “透明标签”, “透明标签”, , )
透明标签数量 ＝ 取找到组件数目 (透明标签句柄)
输出调试文本 (“标签数量” ＋ 到文本 (透明标签数量))
计次循环首 (透明标签数量, n)
透明标签数组 ＝ 取所找到组件 (透明标签句柄, n － 1)
透明标签数组.标题 ＝ “参会人”
计次循环尾 ()
计次循环首 (取数组成员数 (选择框数组), l)
如果真 (选择框数组 [l].选中)
加入成员 (标题数组, 选择框数组 [l].标题)
输出调试文本 (“标题数组内容：”)
调试输出 (标题数组)

计次循环尾 ()
如果真 (透明标签句柄 ≠ 0)
计次循环首 (透明标签数量, n)
透明标签数组 ＝ 取所找到组件 (透明标签句柄, n － 1)
调试输出 (透明标签数组)
如果真 (选择框数组 [n].选中)
如果 (c ＜ 取数组成员数 (标题数组))
输出调试文本 (“c的初始值：” ＋ 到文本 (c))
c ＝ c ＋ 1
输出调试文本 (“c的值：” ＋ 到文本 (c))
透明标签数组.标题 ＝ 标题数组 [c]
调试输出 (“被选中标签标题:” ＋ 透明标签数组.标题)

c ＝ 0


计次循环尾 ()
清除组件寻找句柄 (透明标签句柄)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 选择框数组, 选择框, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 找出选择框 ()<br /> 输出调试文本 (“------初始化完成------”)<br /> <br /> .子程序 找出选择框<br /> .局部变量 i, 整数型<br /> .局部变量 组件句柄, 整数型<br /> .局部变量 组件数量, 整数型<br /> <br /> <br /> 组件句柄 ＝ 寻找组件 (_启动窗口, “选择框”, “选择框”, , )<br /> 输出调试文本 (“组件句柄” ＋ 到文本 (组件句柄))<br /> <br /> 组件数量 ＝ 取找到组件数目 (组件句柄)<br /> 输出调试文本 (“组件数量” ＋ 到文本 (组件数量))<br /> <br /> 重定义数组 (选择框数组, 假, 组件数量)<br /> <br /> .计次循环首 (组件数量, i)<br />     输出调试文本 (到文本 (i))<br />     选择框数组 <i> ＝ 取所找到组件 (组件句柄, i － 1)<br />     输出调试文本 (“已添加选择框数据”)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 透明标签句柄, 整数型<br /> .局部变量 透明标签数量, 整数型<br /> .局部变量 透明标签数组, 透明标签<br /> .局部变量 n, 整数型<br /> .局部变量 标题数组, 文本型, , "0"<br /> .局部变量 l, 整数型<br /> .局部变量 c, 整数型<br /> <br /> 清除数组 (标题数组)<br /> <br /> <br /> 透明标签句柄 ＝ 寻找组件 (_启动窗口, “透明标签”, “透明标签”, , )<br /> 透明标签数量 ＝ 取找到组件数目 (透明标签句柄)<br /> 输出调试文本 (“标签数量” ＋ 到文本 (透明标签数量))<br /> <br /> .计次循环首 (透明标签数量, n)<br />     透明标签数组 ＝ 取所找到组件 (透明标签句柄, n － 1)<br />     透明标签数组.标题 ＝ “参会人”<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (选择框数组), l)<br /> <br />     .如果真 (选择框数组 [l].选中)<br />         加入成员 (标题数组, 选择框数组 [l].标题)<br />         输出调试文本 (“标题数组内容：”)<br />         调试输出 (标题数组)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .如果真 (透明标签句柄 ≠ 0)<br /> <br />     .计次循环首 (透明标签数量, n)<br /> <br />         透明标签数组 ＝ 取所找到组件 (透明标签句柄, n － 1)<br />         调试输出 (透明标签数组)<br />         .如果真 (选择框数组 [n].选中)<br />             .如果 (c ＜ 取数组成员数 (标题数组))<br />                 输出调试文本 (“c的初始值：” ＋ 到文本 (c))<br />                 c ＝ c ＋ 1<br />                 输出调试文本 (“c的值：” ＋ 到文本 (c))<br />                 透明标签数组.标题 ＝ 标题数组 [c]<br />                 调试输出 (“被选中标签标题:” ＋ 透明标签数组.标题)<br /> <br />             .否则<br />                 c ＝ 0<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     清除组件寻找句柄 (透明标签句柄)<br /> .如果真结束

目前代码只能实现选择框3被选中，则透明标签3的标题显示选择框3的标题内容，怎么才能实现从透明标签1的标题开始显示被选中的选择框标题？

走一回

AQ0351 发表于 2025-2-26 16:03
并不是提出了新要求，我的原问题“目前代码只能实现选择框3被选中，则透明标签3的标题显示选择框3的标题 ...

选择框3被选中，显示到 透明标签1上。

  

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

变量名	类 型	静态	数组	备 注
a	选择框
nn_标记	文本型

a ＝ 取事件组件 ()
nn_标记 ＝ a.标记
集_透明标签 [到整数 (nn_标记)-2].标题 ＝ a.标题

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _选择框1_被单击<br /> .局部变量 a, 选择框<br /> .局部变量 nn_标记, 文本型<br /> <br /> a ＝ 取事件组件 ()<br /> nn_标记 ＝ a.标记<br /> 集_透明标签 [到整数 (nn_标记)-2].标题 ＝ a.标题

问题是这样选择框选中第一个和第二个时，会出错，你要加上判断用于路过这个错误

lxboys

是不是判断一下四个选择框中有哪几个被选中（把所有选中的标题同步到标签上，没选中不用同步）是这个意思吗？

samll88

  

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

如果真 (选择框1.选中 ＝ 真)
透明标签1.标题 ＝ “你好”
如果真 (选择框2.选中 ＝ 真)
透明标签2.标题 ＝ “世界”
如果真 (选择框3.选中 ＝ 真)
透明标签3.标题 ＝ “历史”

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果真 (选择框1.选中 ＝ 真)<br />     透明标签1.标题 ＝ “你好”<br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真)<br />     透明标签2.标题 ＝ “世界”<br /> .如果真结束<br /> .如果真 (选择框3.选中 ＝ 真)<br />     透明标签3.标题 ＝ “历史”

是不是这样

b0y

1.e (4.41 KB, 下载次数: 2)

2025-2-26 11:04 上传

点击文件名下载附件

黑咖啡

选择框选中后其标题依次显示在标签标题中

AQ0351

b0y 发表于 2025-2-26 11:04

这个功能跟我的效果是一样的。

AQ0351

黑咖啡 发表于 2025-2-26 11:35
选择框选中后其标题依次显示在标签标题中

是要点个按钮以后标签才会显示，而且我选择框数量要有几十个，这样单独调用子程序不高效。

AQ0351

lxboys 发表于 2025-2-26 10:37
是不是判断一下四个选择框中有哪几个被选中（把所有选中的标题同步到标签上，没选中不用同步）是这个意思吗 ...

是的，选中的依次显示在标签上。

走一回

透明标签标题与选择框联动.e (919.76 KB, 下载次数: 2)

2025-2-26 14:43 上传

点击文件名下载附件

完全实现功能，请最佳


补充内容 (2025-2-26 14:45):
只要界面放得下，几十个也没问题，只需要修改源代码中的文本数组