复制组件问题

孤梦大大大

高级选择夹中的复制组件问题 1.e (2.62 KB, 下载次数: 5)

2021-5-3 17:59 上传

点击文件名下载附件

汉族

送上代码： 复制高级选择夹.e (134.91 KB, 下载次数: 9)

2021-5-3 21:20 上传

点击文件名下载附件   这个纯源码体积有些大 不知道为啥？

孤梦大大大

这个问题已经解决了....还想问个就是如果大量的复制组件，但被复制的目标又不是一个组件，只有一个一个的去复制吗。。。有没有什么批量的办法....

汉族

我记得我19年帮人解答过这个问题

孤梦大大大

汉族 发表于 2021-5-3 20:05
我记得我19年帮人解答过这个问题

没翻到...但是我自定义了一个类型，最开始是觉得如果组件都需要一个全局变量，那肯定需要很多，后来我就把那些组件都弄到自定义类型里面去了

汉族

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

变量名	类 型	静态	数组	备 注
i	整数型

重定义数组 (按钮, 假, 5)
计次循环首 (3, i)
高级选择夹1.加入子夹 (到文本 (i ＋ 1), , , , )
高级选择夹1.现行子夹 ＝ i  ' 首先是切换到 当前激活子夹
计次循环尾 ()
' 如何把按钮复制到子夹234里

子程序名	返回值类型	公开	备 注
_高级选择夹1_子夹被改变

变量名	类 型	静态	数组	备 注
k	整数型

计次循环首 (5, k)
复制窗口组件 (按钮1, 按钮 [k])  ' 运算公式
按钮 [k].置父窗口 (高级选择夹1)
按钮 [k].左边 ＝ 按钮1.左边 ＋ 按钮1.宽度 �� (k － 1)
按钮 [k].顶边 ＝ 50
按钮 [k].标题 ＝ “当前夹” ＋ 到文本 (高级选择夹1.现行子夹) ＋ “SY” ＋ 到文本 (k)
按钮 [k].可视 ＝ 真
处理事件 ()
计次循环尾 ()

i支持库列表	支持库注释
iext3	扩展界面支持库三

.版本 2<br /> .支持库 iext3<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 按钮, 按钮, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 i, 整数型<br /> <br /> 重定义数组 (按钮, 假, 5)<br /> .计次循环首 (3, i)<br />     高级选择夹1.加入子夹 (到文本 (i ＋ 1), , , , )<br />     高级选择夹1.现行子夹 ＝ i  ' 首先是切换到 当前激活子夹<br /> .计次循环尾 ()<br /> ' 如何把按钮复制到子夹234里<br /> <br /> <br /> .子程序 _高级选择夹1_子夹被改变<br /> .局部变量 k, 整数型<br /> <br /> .计次循环首 (5, k)<br />     复制窗口组件 (按钮1, 按钮 [k])  ' 运算公式<br />     按钮 [k].置父窗口 (高级选择夹1)<br />     按钮 [k].左边 ＝ 按钮1.左边 ＋ 按钮1.宽度 × (k － 1)<br />     按钮 [k].顶边 ＝ 50<br />     按钮 [k].标题 ＝ “当前夹” ＋ 到文本 (高级选择夹1.现行子夹) ＋ “SY” ＋ 到文本 (k)<br />     按钮 [k].可视 ＝ 真<br />     处理事件 ()<br /> .计次循环尾 ()