多个单选框同步对应组合框问题

BanBy

有二十个单选框， 五个为一组，一组中5个单选框对应一个组合框，如，单选框1选中，组合框也选中第一个，单选框5选中，组合框也同时选中第5个
我一共用了二十个子程序，有没有一个子程序能搞定的，行数太大。有点影响其他代码的管理

走一回

完全实现你的要求，

1111111.rar (225.76 KB, 下载次数: 17)

2022-4-3 12:47 上传

点击文件名下载附件


补充内容 (2022-4-3 13:32):
程序集变量的成员数改成0，在启动窗口启动时重定义成你想要的组数，可实现任意多的组件效果。

Suky

1111111改.e (148.59 KB, 下载次数: 5)

2022-4-3 04:20 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
组件句柄	整数型
单选框	单选框
名称	文本型
n	整数型

组件句柄 ＝ 寻找组件 (分组框4, “单选框”, “单选框”, , )
计次循环首 (取找到组件数目 (组件句柄), n)
单选框 ＝ 取所找到组件 (组件句柄, n － 1)
名称 ＝ 取组件名称 (单选框)
如果真 (名称 ≠ “单选框5”)
事件转移 (单选框, 单选框5)

计次循环尾 ()
清除组件寻找句柄 (组件句柄)

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

变量名	类 型	静态	数组	备 注
单选框	单选框

单选框 ＝ 取事件组件 ()
判断 (单选框 ＝ 单选框5)
组合框_A.现行选中项 ＝ 0
判断 (单选框 ＝ 单选框4)
组合框_A.现行选中项 ＝ 1
判断 (单选框 ＝ 单选框11)
组合框_A.现行选中项 ＝ 2
判断 (单选框 ＝ 单选框12)
组合框_A.现行选中项 ＝ 3
判断 (单选框 ＝ 单选框13)
组合框_A.现行选中项 ＝ 4

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 组件句柄, 整数型<br /> .局部变量 单选框, 单选框<br /> .局部变量 名称, 文本型<br /> .局部变量 n, 整数型<br /> <br /> 组件句柄 ＝ 寻找组件 (分组框4, “单选框”, “单选框”, , )<br /> .计次循环首 (取找到组件数目 (组件句柄), n)<br />     单选框 ＝ 取所找到组件 (组件句柄, n － 1)<br />     名称 ＝ 取组件名称 (单选框)<br />     .如果真 (名称 ≠ “单选框5”)<br />         事件转移 (单选框, 单选框5)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组件句柄)<br /> <br /> .子程序 _单选框5_被单击<br /> .局部变量 单选框, 单选框<br /> <br /> 单选框 ＝ 取事件组件 ()<br /> .判断开始 (单选框 ＝ 单选框5)<br />     组合框_A.现行选中项 ＝ 0<br /> .判断 (单选框 ＝ 单选框4)<br />     组合框_A.现行选中项 ＝ 1<br /> .判断 (单选框 ＝ 单选框11)<br />     组合框_A.现行选中项 ＝ 2<br /> .判断 (单选框 ＝ 单选框12)<br />     组合框_A.现行选中项 ＝ 3<br /> .判断 (单选框 ＝ 单选框13)<br />     组合框_A.现行选中项 ＝ 4

改了个例子    其他的自己看着整理

Suky

也可以先寻找分组框
再依照分组框个数  循环找单选框和组合框   并处理   
事件转移全转移到第一个组件去