组件问题

afu45

新建 易程序 1.e (950.31 KB, 下载次数: 4)

2023-4-3 18:06 上传

点击文件名下载附件

星星之夜

如源码所示

hx3355789

但愿能给你点思路~

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_编辑框	编辑框	0

子程序名	返回值类型	公开	备 注
_按钮_复制_被单击

变量名	类 型	静态	数组	备 注
局_编辑框	编辑框
局_次数	整数型

加入成员 (集_编辑框, 编辑框1)
计次循环首 (9, 局_次数)
复制窗口组件 (编辑框1, 局_编辑框)
如果 (局_次数 ％ 2 ＝ 0)
局_编辑框.顶边 ＝ 编辑框1.顶边 ��� (编辑框1.高度 ＋ 10) × 取整 (局_次数 ÷ 2)
局_编辑框.左边 ＝ 编辑框1.左边
局_编辑框.左边 ＝ 编辑框1.左边 ＋ 编辑框1.宽度 ＋ 10
局_编辑框.顶边 ＝ 编辑框1.顶边 ��� (编辑框1.高度 ＋ 10) × 取整 (局_次数 ÷ 2)
加入成员 (集_编辑框, 局_编辑框)
局_编辑框.可视 ＝ 真
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_赋值_被单击

变量名	类 型	静态	数组	备 注
局_赋值内容	整数型		0
局_次数	整数型

局_赋值内容 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }
计次循环首 (取数组成员数 (集_编辑框), 局_次数)
集_编辑框 [局_次数].内容 ＝ 到文本 (局_赋值内容 [局_次数])
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_编辑框, 编辑框, , "0"<br /> <br /> .子程序 _按钮_复制_被单击<br /> .局部变量 局_编辑框, 编辑框<br /> .局部变量 局_次数, 整数型<br /> <br /> 加入成员 (集_编辑框, 编辑框1)<br /> .计次循环首 (9, 局_次数)<br />     复制窗口组件 (编辑框1, 局_编辑框)<br />     .如果 (局_次数 ％ 2 ＝ 0)<br />         局_编辑框.顶边 ＝ 编辑框1.顶边 ＋ (编辑框1.高度 ＋ 10) × 取整 (局_次数 ÷ 2)<br />         局_编辑框.左边 ＝ 编辑框1.左边<br />     .否则<br />         局_编辑框.左边 ＝ 编辑框1.左边 ＋ 编辑框1.宽度 ＋ 10<br />         局_编辑框.顶边 ＝ 编辑框1.顶边 ＋ (编辑框1.高度 ＋ 10) × 取整 (局_次数 ÷ 2)<br />     .如果结束<br />     加入成员 (集_编辑框, 局_编辑框)<br />     局_编辑框.可视 ＝ 真<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_赋值_被单击<br /> .局部变量 局_赋值内容, 整数型, , "0"<br /> .局部变量 局_次数, 整数型<br /> <br /> 局_赋值内容 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }<br /> .计次循环首 (取数组成员数 (集_编辑框), 局_次数)<br />     集_编辑框 [局_次数].内容 ＝ 到文本 (局_赋值内容 [局_次数])<br /> .计次循环尾 ()

laji2015

一般这种需求的话。都是用  复制窗口组件()
这个命令，是把一个已经存在的窗口组件复制到变量
比如有10个，就在窗口上创建一个编辑框，然后创建一个变量数组，变量类型就是编辑框。
然后用计次循环复制窗口组件。
就可以用计次循环来赋值了。比如这样:

  

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
选择框_路线点	选择框	20

.版本 2<br /> <br /> .程序集变量 选择框_路线点, 选择框, , "20"

  

子程序名	返回值类型	公开	备 注
初始化选择框

变量名	类 型	静态	数组	备 注
计次

计次循环首 (取数组成员数 (选择框_路线点), 计次)
复制窗口组件 (选择框1, 选择框_路线点 [计次])
选择框_路线点 [计次].左边 ＝ 26 ��� (选择 (计次 ％ 4 ＝ 0, 4, 计次 ％ 4) － 1) × 115
选择框_路线点 [计次].顶边 ＝ 470 － 到整数 (计次 ÷ 4.1) × 115
选择框_路线点 [计次].标题 ＝ 到文本 (计次)
选择框_路线点 [计次].标记 ＝ 取文本右边 (“0” ＋ 到文本 (计次), 2)
如果真 (计次 ＝ 1 或 计次 ＝ 4 或 计次 ＝ 9 或 计次 ＝ 15)
选择框_路线点 [计次].禁止 ＝ 真
选择框_路线点 [计次].可视 ＝ 真
计次循环尾 ()

.版本 2<br /> <br /> .子程序 初始化选择框<br /> .局部变量 计次<br /> <br /> .计次循环首 (取数组成员数 (选择框_路线点), 计次)<br />     复制窗口组件 (选择框1, 选择框_路线点 [计次])<br />     选择框_路线点 [计次].左边 ＝ 26 ＋ (选择 (计次 ％ 4 ＝ 0, 4, 计次 ％ 4) － 1) × 115<br />     选择框_路线点 [计次].顶边 ＝ 470 － 到整数 (计次 ÷ 4.1) × 115<br />     选择框_路线点 [计次].标题 ＝ 到文本 (计次)<br />     选择框_路线点 [计次].标记 ＝ 取文本右边 (“0” ＋ 到文本 (计次), 2)<br />     .如果真 (计次 ＝ 1 或 计次 ＝ 4 或 计次 ＝ 9 或 计次 ＝ 15)<br />         选择框_路线点 [计次].禁止 ＝ 真<br />     .如果真结束<br />     选择框_路线点 [计次].可视 ＝ 真<br /> .计次循环尾 ()

这里面的选择框1，就是在窗口是新建的一个选择框。
要注意的是，复制后的组件变量。它的属性，位置这些是和手动创建的一样的，所以会叠在一起，要用代码调整位置。
然后它们都是不显示的，所以要把可视调成真

九州软件

弄成编辑框数组,把句柄保存下来,然后发送消息设置

梦之情

这种情况复制组件很方便。

sunfly

相同内容连续赋值
不同内容    标记 原生的快
想花一点句柄数组操作

陽陽陽

寻找组件
或者是加入句柄，一个数组
不用用加入成员 (选择框, 选择框3)，有时候会报错！有时候会报错！有时候会报错！