批量组件事件转移复制多种寻找组件/事件转移

集_图片框组 [i] ＝ 多项选择 (i, 图片框1, 图片框2, 图片框3, 图片框4, 图片框5, 图片框6, 图片框7, 图片框8, 图片框9, 图片框10, 图片框11, 图片框12, 图片框13, 图片框14, 图片框15)
集_图片框组 [i].标记 ＝ 到文本 (i)
集_图片路径组 [i] ＝ 取运行目录 () ＋ “\images\” ＋ 到文本 (i) ＋ “.png”
.如果真 (i ≠ 1) ' 以第一个为目标，把其他组件事件转移给第一个
事件转移 (集_图片框组 [i], 集_图片框组 [1])

集_图片框组 [i] ＝ 取所找到组件 (hWnd, count － i) ' 反转顺序
集_图片框组 [i].标记 ＝ 到文本 (i)
集_图片路径组 [i] ＝ 取运行目录 () ＋ “\images\” ＋ 到文本 (i) ＋ “.png”
' 集_图片框组 [i].图片 ＝ 读入文件 (集_图片路径组 [i])
.如果真 (i ≠ 1) ' 以第一个为目标，把其他组件事件转移给第一个
事件转移 (集_图片框组 [i], 集_图片框组 [1])