易语言复制多个按钮

Posted 2023-03-15

不用计次循环首
就比如，我用菜单点击创建，然后复制一个按钮出来，按钮在原来的按钮下面。之后再点击，在变量按钮的下面。

不知道各位能否明白我的意思
能的话，帮忙一下，谢谢了

.版本 2

.程序集 窗口程序集1

.程序集变量 l, 按钮

.程序集变量 顶, 整数型

.子程序 _按钮1_被单击

复制窗口组件 (_启动窗口.按钮1, l)

l.可视 ＝ 真

顶 ＝ 顶 ＋ 40

l.移动 (按钮1.左边, 顶, -1, -1)

.子程序 __启动窗口_创建完毕

顶 ＝ 按钮1.顶边

参考技术A 用到复制窗口组件这个命令，给你个代码看看就知道了。
.版本 2
.程序集 窗口程序集1
.程序集变量 距离, 整数型
.程序集变量 i, 整数型

.子程序 _按钮2_被单击.局部变量 按钮变量, 按钮, , "100"
i ＝ i ＋ 1
复制窗口组件 (_启动窗口.按钮1, 按钮变量 [i])
按钮变量 [i].左边 ＝ 按钮1.左边
按钮变量 [i].高度 ＝ 按钮1.高度
距离 ＝ 距离 ＋ 按钮变量 [i].高度 ＋ 10
按钮变量 [i].顶边 ＝ 按钮1.顶边 ＋ 距离
按钮变量 [i].宽度 ＝ 按钮1.宽度
按钮变量 [i].标题 ＝ “新建按钮” ＋ 到文本 (i)
按钮变量 [i].可视 ＝ 真 参考技术B 按住SHIFT 参考技术C 按住SHIFT