复制窗口组件

sueer80 · 发表于 2023-6-19 15:02:30

.版本 2

.程序集窗口程序集_启动窗口
.程序集变量计次数, 整数型, , , 添加次数
.程序集变量分组次数, 整数型, , , 分组次数
.程序集变量按钮变量, 按钮, , "20", 按键上限

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

.如果 (计次数＞ 18)
信息框 (“超出限制！”, 0, “超限”, )
.否则
计次数＝计次数＋ 1
复制窗口组件 (按钮1, 按钮变量 [计次数])
按钮变量 [计次数].可视＝真
按钮变量 [计次数].标题＝ “按钮” ＋到文本 (计次数＋ 1)
.如果 (计次数％ 5 ≠ 0)
      .如果真 (_启动窗口.宽度＜ 640)
         _启动窗口.宽度＝ _启动窗口.宽度＋ 128
      .如果真结束
      ' *************设置窗口宽度限制************
.否则
      分组次数＝分组次数＋ 1
      .如果真 (_启动窗口.高度＜ 400)
         _启动窗口.高度＝ _启动窗口.高度＋ 64
         清除按钮.移动 (清除按钮.左边, 清除按钮.顶边＋ 64, -1, -1)
      .如果真结束

.如果结束
按钮变量 [计次数].移动 (按钮1.左边＋ 128 × (计次数％ 5), 按钮1.顶边＋ 64 × 分组次数, -1, -1)

.如果结束

.子程序 _清除按钮_被单击
.局部变量 i, 整数型

.计次循环首 (计次数, i)
按钮变量 [i].销毁 ()
.计次循环尾 ()
清除按钮.移动 (清除按钮.左边, 112, -1, -1)
_启动窗口.高度＝ 250
_启动窗口.宽度＝ 380
计次数＝ 0

yjkeeqliu1 · 发表于 2023-9-29 18:38:48

开源精神必须支持~

zhaode2888 · 发表于 2023-8-4 10:46:25

感谢分享

Anend · 发表于 2023-6-27 22:10:33

开源精神必须支持~

crossdiy · 发表于 2023-6-25 09:24:14

开源精神必须支持

光影魔术 · 发表于 2023-6-24 10:45:06

感谢分享源码

亿万 · 发表于 2023-6-22 21:50:19

开源精神必须支持~

一指温柔 · 发表于 2023-6-21 08:33:01

感谢开源

一指温柔 · 发表于 2023-6-20 08:35:39

支持开源~！感谢分享

bianyuan456 · 发表于 2023-6-19 23:03:55

已经顶贴，感谢您对论坛的支持！

		自动登录	找回密码
密码			注册

[易源码分享] 复制窗口组件

评分

本帖被以下淘专辑推荐: