窗口有多个相同的组件，怎么样才能优化代码

limuma

窗口有多个相同的组件，怎么样才能优化代码，用最少的代码来实现相同的功能，能否用计次循环来给数组赋值或者数组加入成员，窗口有十几个坐标，每个坐标都有相同的组件，如果用下面的代码来写就太多了，有什么简化的方法呢？

.版本 2

' 文字处理1.选择 [1] ＝ 窗口1.选择框_坐标1_文字处理1.选中

加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理1.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理2.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理3.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理4.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理5.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理6.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理7.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理8.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理9.选中)
加入成员 (文字处理1.选择, 窗口1.选择框_坐标1_文字处理10.选中)

baitso

这个才对

  

子程序名	返回值类型	公开	备 注
排版线程

变量名	类 型	静态	数组	备 注
内容1	文本型
组件寻找句柄	整数型
i	整数型
临时选择框	选择框
临时组合框	组合框
临时编辑框	编辑框
index	整数型

内容1 ＝ 窗口1.编辑框_坐标1.内容
清除数组 (文字处理1.选择)
清除数组 (文字处理1.选中项)
清除数组 (文字处理1.次数)
组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “选择框”, , , )
重定义数组 (文字处理1.选择, 假, 取找到组件数目 (组件寻找句柄))
计次循环首 (取找到组件数目 (组件寻找句柄), i)
临时选择框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
调试输出 (取组件名称 (临时选择框))
index ＝ 到整数 (子文本替换 (取组件名称 (临时选择框), “选择框_坐标1_文字处理”, , , , 真))
文字处理1.选择 [index] ＝ 临时选择框.选中
' 加入成员 (文字处理1.选择, 临时选择框.选中)
计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)
组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “组合框”, , , )
重定义数组 (文字处理1.选中项, 假, 取找到组件数目 (组件寻找句柄))
计次循环首 (取找到组件数目 (组件寻找句柄), i)
临时组合框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
调试输出 (取组件名称 (临时组合框))
index ＝ 到整数 (子文本替换 (取组件名称 (临时选择框), “组合框_坐标1_文字输入处理”, , , , 真))
文字处理1.选中项 [index] ＝ 临时组合框.现行选中项
' 加入成员 (文字处理1.选中项, 临时组合框.现行选中项)
计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)
组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “编辑框”, , , )
重定义数组 (文字处理1.次数, 假, 取找到组件数目 (组件寻找句柄))
计次循环首 (取找到组件数目 (组件寻找句柄), i)
临时编辑框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
调试输出 (取组件名称 (临时编辑框))
index ＝ 到整数 (子文本替换 (取组件名称 (临时编辑框), “编辑框_坐标1_文字输入处理”, , , , 真))
文字处理1.次数 [i] ＝ 到整数 (临时编辑框.内容)
' 加入成员 (文字处理1.次数, 到整数 (临时编辑框.内容))
计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)
编辑开始 (内容1, 文字处理1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 排版线程<br /> .局部变量 内容1, 文本型<br /> .局部变量 组件寻找句柄, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 临时选择框, 选择框<br /> .局部变量 临时组合框, 组合框<br /> .局部变量 临时编辑框, 编辑框<br /> .局部变量 index, 整数型<br /> <br /> <br /> 内容1 ＝ 窗口1.编辑框_坐标1.内容<br /> <br /> 清除数组 (文字处理1.选择)<br /> 清除数组 (文字处理1.选中项)<br /> 清除数组 (文字处理1.次数)<br /> 组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “选择框”, , , )<br /> 重定义数组 (文字处理1.选择, 假, 取找到组件数目 (组件寻找句柄))<br /> .计次循环首 (取找到组件数目 (组件寻找句柄), i)<br />     临时选择框 ＝ 取所找到组件 (组件寻找句柄, i － 1)<br />     调试输出 (取组件名称 (临时选择框))<br />     index ＝ 到整数 (子文本替换 (取组件名称 (临时选择框), “选择框_坐标1_文字处理”, , , , 真))<br />     文字处理1.选择 [index] ＝ 临时选择框.选中<br />     ' 加入成员 (文字处理1.选择, 临时选择框.选中)<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组件寻找句柄)<br /> <br /> 组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “组合框”, , , )<br /> 重定义数组 (文字处理1.选中项, 假, 取找到组件数目 (组件寻找句柄))<br /> .计次循环首 (取找到组件数目 (组件寻找句柄), i)<br />     临时组合框 ＝ 取所找到组件 (组件寻找句柄, i － 1)<br />     调试输出 (取组件名称 (临时组合框))<br />     index ＝ 到整数 (子文本替换 (取组件名称 (临时选择框), “组合框_坐标1_文字输入处理”, , , , 真))<br />     文字处理1.选中项 [index] ＝ 临时组合框.现行选中项<br />     ' 加入成员 (文字处理1.选中项, 临时组合框.现行选中项)<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组件寻找句柄)<br /> <br /> 组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “编辑框”, , , )<br /> 重定义数组 (文字处理1.次数, 假, 取找到组件数目 (组件寻找句柄))<br /> .计次循环首 (取找到组件数目 (组件寻找句柄), i)<br />     临时编辑框 ＝ 取所找到组件 (组件寻找句柄, i － 1)<br />     调试输出 (取组件名称 (临时编辑框))<br />     index ＝ 到整数 (子文本替换 (取组件名称 (临时编辑框), “编辑框_坐标1_文字输入处理”, , , , 真))<br />     文字处理1.次数 <i> ＝ 到整数 (临时编辑框.内容)<br />     ' 加入成员 (文字处理1.次数, 到整数 (临时编辑框.内容))<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组件寻找句柄)<br /> <br /> <br /> 编辑开始 (内容1, 文字处理1)

qinping520

用循环判断首，计次的方式

baitso

  

子程序名	返回值类型	公开	备 注
排版线程

变量名	类 型	静态	数组	备 注
内容1	文本型
组件寻找句柄	整数型
i	整数型
临时选择框	选择框
临时组合框	组合框
临时编辑框	编辑框

内容1 ＝ 窗口1.编辑框_坐标1.内容
清除数组 (文字处理1.选择)
清除数组 (文字处理1.选中项)
清除数组 (文字处理1.次数)
组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “选择框”, , , )
计次循环首 (取找到组件数目 (组件寻找句柄), i)
临时选择框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
调试输出 (取组件名称 (临时选择框))
加入成员 (文字处理1.选择, 临时选择框.选中)
计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)
组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “组合框”, , , )
计次循环首 (取找到组件数目 (组件寻找句柄), i)
临时组合框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
调试输出 (取组件名称 (临时组合框))
加入成员 (文字处理1.选中项, 临时组合框.现行选中项)
计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)
组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “编辑框”, , , )
计次循环首 (取找到组件数目 (组件寻找句柄), i)
临时编辑框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
调试输出 (取组件名称 (临时编辑框))
加入成员 (文字处理1.次数, 到整数 (临时编辑框.内容))
计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)
编辑开始 (内容1, 文字处理1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 排版线程<br /> .局部变量 内容1, 文本型<br /> .局部变量 组件寻找句柄, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 临时选择框, 选择框<br /> .局部变量 临时组合框, 组合框<br /> .局部变量 临时编辑框, 编辑框<br /> <br /> <br /> 内容1 ＝ 窗口1.编辑框_坐标1.内容<br /> <br /> 清除数组 (文字处理1.选择)<br /> 清除数组 (文字处理1.选中项)<br /> 清除数组 (文字处理1.次数)<br /> 组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “选择框”, , , )<br /> .计次循环首 (取找到组件数目 (组件寻找句柄), i)<br />     临时选择框 ＝ 取所找到组件 (组件寻找句柄, i － 1)<br />     调试输出 (取组件名称 (临时选择框))<br />     加入成员 (文字处理1.选择, 临时选择框.选中)<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组件寻找句柄)<br /> 组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “组合框”, , , )<br /> .计次循环首 (取找到组件数目 (组件寻找句柄), i)<br />     临时组合框 ＝ 取所找到组件 (组件寻找句柄, i － 1)<br />     调试输出 (取组件名称 (临时组合框))<br />     加入成员 (文字处理1.选中项, 临时组合框.现行选中项)<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组件寻找句柄)<br /> <br /> 组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “编辑框”, , , )<br /> .计次循环首 (取找到组件数目 (组件寻找句柄), i)<br />     临时编辑框 ＝ 取所找到组件 (组件寻找句柄, i － 1)<br />     调试输出 (取组件名称 (临时编辑框))<br />     加入成员 (文字处理1.次数, 到整数 (临时编辑框.内容))<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组件寻找句柄)<br /> <br /> <br /> 编辑开始 (内容1, 文字处理1)

RainCharm

.版本 2
.支持库 spec

内容1 ＝ 窗口1.编辑框_坐标1.内容

清除数组 (文字处理1.选择)
清除数组 (文字处理1.选中项)
清除数组 (文字处理1.次数)

' 文字处理1.选择 [1] ＝ 窗口1.选择框_坐标1_文字处理1.选中

组件寻找句柄 ＝ 寻找组件 (窗口1.分组框7, “选择框”, , , )

.计次循环首 (取找到组件数目 (组件寻找句柄), i)
    选择框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
    .如果真 (选择框.选中)  ' 当你选中一个后，再继续
        调试输出 (取组件名称 (选择框))
        ' 这里写你所需要执行的代码
    .如果真结束

.计次循环尾 ()

清除组件寻找句柄 (组件寻找句柄)
编辑开始 (内容1, 文字处理1)


大概就是这么个写法，你用加入成员也是为了判断选中哪一个

Ruang

可以尝试用复制窗口组件来创建多个组件