请问怎么事件转移大量组件

兴趣使然小编程

比如启动窗口下有  大量的超级列表框.    并且超级列表框名称 都不是数字而且没有规律.     想要将这些超级列表框事件都转移给  超级列表框_主,该怎么遍历好?
事件转移 (超级列表框_sd, 超级列表框_主)
......
.......
事件转移 (超级列表框_dfd, 超级列表框_主)

帅气与大侠

  

子程序名	返回值类型	公开	备 注
超级列表框_事件转移
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
组件寻找句柄	整数型
找到组件数目	整数型
i	整数型
局_超级列表框	超级列表框
组件名称	文本型

组件寻找句柄 ＝ 寻找组件 (_启动窗口, “超级列表框”, “超级列表框”, , )
找到组件数目 ＝ 取找到组件数目 (组件寻找句柄)
如果真 (找到组件数目 ＜ 1)
返回 ()
组件名称 ＝ 取组件名称 (超级列表框)
计次循环首 (找到组件数目, i)
局_超级列表框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
如果真 (取组件名称 (局_超级列表框) ＝ 组件名称)
到循环尾 ()

事件转移 (局_超级列表框, 超级列表框)
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_事件转移<br /> .参数 超级列表框, 超级列表框<br /> .局部变量 组件寻找句柄, 整数型<br /> .局部变量 找到组件数目, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 局_超级列表框, 超级列表框<br /> .局部变量 组件名称, 文本型<br /> <br /> 组件寻找句柄 ＝ 寻找组件 (_启动窗口, “超级列表框”, “超级列表框”, , )<br /> 找到组件数目 ＝ 取找到组件数目 (组件寻找句柄)<br /> .如果真 (找到组件数目 ＜ 1)<br />     返回 ()<br /> .如果真结束<br /> 组件名称 ＝ 取组件名称 (超级列表框)<br /> <br /> .计次循环首 (找到组件数目, i)<br />     局_超级列表框 ＝ 取所找到组件 (组件寻找句柄, i － 1)<br /> <br />     .如果真 (取组件名称 (局_超级列表框) ＝ 组件名称)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     事件转移 (局_超级列表框, 超级列表框)<br /> <br /> <br /> .计次循环尾 ()

鹏书

把你们全部都加倒一个数组里面 或者给一个标记 然后一个循环就搞定了

1355568730

给每个列表框打上标记  就用上次的方法就行了