【易语言】批量控制控件的命令
<h2 id="获取当前的组件名-并批量操作同类组件">获取当前的组件名 并批量操作同类组件</h2><pre><code>.版本 2
.子程序 _选择框_左键连点_被单击
.局部变量 局_句柄, 整数型
.局部变量 局_索引, 整数型
.局部变量 局_选择框, 选择框
.局部变量 局_当前组件, 选择框
.局部变量 局_当前组件名称, 文本型
局_当前组件 ＝ 取事件组件 ()
局_当前组件名称 ＝ 取组件名称 (局_当前组件)
局_句柄 ＝ 寻找组件 (_启动窗口, “选择框_”, “选择框”, , )
.计次循环首 (取找到组件数目 (局_句柄), 局_索引)
局_选择框 ＝ 取所找到组件 (局_句柄, 局_索引 － 1)
.如果真 (局_当前组件名称 ≠ 取组件名称 (局_选择框))
局_选择框.选中 ＝ 假
.如果真结束
.计次循环尾 ()
</code></pre>
<h2 id="组件进行事件转移指令">组件进行事件转移指令</h2>
<pre><code>.版本 2
.子程序 选择框_事件转移
.参数 参_按钮, 选择框
.参数 参_前缀, 文本型
.局部变量 组件寻找句柄, 整数型
.局部变量 找到组件数目, 整数型
.局部变量 i, 整数型
.局部变量 局_按钮, 选择框
.局部变量 组件名称, 文本型
组件名称 ＝ 取组件名称 (参_按钮)' 获取原装按钮
组件寻找句柄 ＝ 寻找组件 (_启动窗口, 参_前缀, “选择框”, , )
.计次循环首 (取找到组件数目 (组件寻找句柄), i)
局_按钮 ＝ 取所找到组件 (组件寻找句柄, i － 1)
.如果真 (取组件名称 (局_按钮) ≠ 组件名称)
事件转移 (局_按钮, 参_按钮)
.如果真结束
.计次循环尾 ()
</code></pre><br><br>
来源：https://www.cnblogs.com/xsir161/p/17160372.html
頁:
[1]