【易语言】批量控制控件的命令

看那一树粉红的木兰

获取当前的组件名 并批量操作同类组件

.版本 2

.子程序 _选择框_左键连点_被单击
.局部变量 局_句柄, 整数型
.局部变量 局_索引, 整数型
.局部变量 局_选择框, 选择框
.局部变量 局_当前组件, 选择框
.局部变量 局_当前组件名称, 文本型

局_当前组件 ＝ 取事件组件 ()
局_当前组件名称 ＝ 取组件名称 (局_当前组件)
局_句柄 ＝ 寻找组件 (_启动窗口, “选择框_”, “选择框”, , )
.计次循环首 (取找到组件数目 (局_句柄), 局_索引)
    局_选择框 ＝ 取所找到组件 (局_句柄, 局_索引 － 1)
    .如果真 (局_当前组件名称 ≠ 取组件名称 (局_选择框))
        局_选择框.选中 ＝ 假
    .如果真结束

.计次循环尾 ()

组件进行事件转移指令

.版本 2

.子程序 选择框_事件转移
.参数 参_按钮, 选择框
.参数 参_前缀, 文本型
.局部变量 组件寻找句柄, 整数型
.局部变量 找到组件数目, 整数型
.局部变量 i, 整数型
.局部变量 局_按钮, 选择框
.局部变量 组件名称, 文本型

组件名称 ＝ 取组件名称 (参_按钮)  ' 获取原装按钮
组件寻找句柄 ＝ 寻找组件 (_启动窗口, 参_前缀, “选择框”, , )
.计次循环首 (取找到组件数目 (组件寻找句柄), i)
    局_按钮 ＝ 取所找到组件 (组件寻找句柄, i － 1)
    .如果真 (取组件名称 (局_按钮) ≠ 组件名称)
        事件转移 (局_按钮, 参_按钮)
    .如果真结束

.计次循环尾 ()

来源：https://www.cnblogs.com/xsir161/p/17160372.html