求大神指点 再次进入本窗口后之前复制出来的窗口组件都消失了 求大神指点
.版本 2.支持库 spec
.程序集 窗口程序集_窗口1
.程序集变量 n, 整数型
.程序集变量 p, 整数型
.程序集变量 配置项全局变量, 文本型
.程序集变量 o, 整数型
.程序集变量 逻辑, 逻辑型
.程序集变量 变量, 按钮
.程序集变量 ii, 整数型
.程序集变量 i, 整数型
.程序集变量 行数, 整数型
.程序集变量 按钮, 按钮, , "0"
.子程序 _窗口1_创建完毕
写配置项 (配置项全局变量, 到文本 (o), “按钮”, 到文本 (o))
n ＝ 取屏幕高度 ()
p ＝ 取屏幕宽度 ()
分组框2.宽度 ＝ p － 分组框1.宽度 － 100
分组框2.高度 ＝ n － 100
分组框1.高度 ＝ n － 100
窗口1.宽度 ＝ p － 100
窗口1.高度 ＝ n － 100
读配置项 (配置项全局变量, 到文本 (o), “按钮”, )
.子程序 _按钮1_被单击
逻辑 ＝ 复制窗口组件 (按钮1, 变量)
调试输出 (逻辑)
ii ＝ 1
配置项全局变量 ＝ 取运行目录 () ＋ “＼配置.ini”
.计次循环首 (ii, )
i ＝ i ＋ 1
变量.可视 ＝ 真
变量.标题 ＝ “复制体” ＋ 到文本 (o)
变量.标记 ＝ 到文本 (o)
.如果真 ((i － 1) × (按钮1.左边 ＋ 按钮1.宽度) ＋ 16 ＋ 变量.宽度 ＞ 分组框2.宽度)
i ＝ 1
行数 ＝ 行数 ＋ 1
.如果真结束
变量.左边 ＝ (按钮1.左边 ＋ 按钮1.宽度) × (i － 1) ＋ 16
变量.顶边 ＝ (按钮1.高度 ＋ 16) × 行数 ＋ 按钮1.顶边
.计次循环尾 ()
加入成员 (按钮, 变量)
写配置项 (配置项全局变量, 到文本 (o), “按钮”, 到文本 (o))
.子程序 _按钮2_被单击
窗口1.销毁 ()
调试输出 ()
变量.标题 ＝ “复制体” ＋ 到文本 (o) 变量.顶边 ＝ (按钮1.高度 ＋ 16) × 行数 ＋ 按钮1.顶边
页:
[1]