.版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 集_动态组件库, 动态组件库, , "0" .程序集变量 集_新窗口, 窗口 .程序集变量 集_动态窗口, 动态组件库 .子程序 _按钮1_被单击 .局部变量 局部_窗口, 窗口 ' 这里演示复制一个窗口' 重定义数组 (集_动态组件库, 真, 取数组成员数 (集_动态组件库) ＋ 1) ' 行初始化' ' '集_动态组件库 [取数组成员数 (集_动态组件库)].组件库开启 () 局部_窗口 ＝ 集_动态组件库 [取数组成员数 (集_动态组件库)].创建窗口 (, _启动窗口, , , &窗口将被销毁, , , , , , , , , ) 局部_窗口.标题 ＝ “我是复制窗口_” ＋ 到文本 (取数组成员数 (集_动态组件库)) 局部_窗口.标记 ＝ 到文本 (取数组成员数 (集_动态组件库)) 集_动态组件库 [取数组成员数 (集_动态组件库)].增加标签 (标签1).可视 ＝ 真 集_动态组件库 [取数组成员数 (集_动态组件库)].增加标签 (标签2).可视 ＝ 真 集_动态组件库 [取数组成员数 (集_动态组件库)].增加标签 (标签3).可视 ＝ 真 集_动态组件库 [取数组成员数 (集_动态组件库)].增加标签 (标签4).可视 ＝ 真 集_动态组件库 [取数组成员数 (集_动态组件库)].增加编辑框 (编辑框_姓名).可视 ＝ 真 集_动态组件库 [取数组成员数 (集_动态组件库)].增加编辑框 (编辑框_年龄).可视 ＝ 真 集_动态组件库 [取数组成员数 (集_动态组件库)].增加编辑框 (编辑框_姓名).可视 ＝ 真 集_动态组件库 [取数组成员数 (集_动态组件库)].增加图片框 (图片框1).可视 ＝ 真 .子程序 窗口将被销毁 .参数 组件地址, 整数型, , 每个组件事件第一个参数为组件地址 .局部变量 局部_窗口, 窗口 取回组件 (组件地址, 局部_窗口) 信息框 (“您确定关闭,窗口<” ＋ 局部_窗口.标题 ＋ “>”, 0, “提示”) 调试输出 (“窗口标记”, 局部_窗口.标记) ' 窗口关闭时,关闭组件库' ' '集_动态组件库 [到整数 (局部_窗口.标记)].组件库关闭 () .子程序 _按钮2_被单击 .局部变量 局部_新编辑框, 编辑框 .局部变量 局部_新按钮, 按钮 集_新窗口 ＝ 集_动态窗口.创建窗口 (_启动窗口, , ) 集_新窗口.标题 ＝ “新窗口” 集_新窗口.移动 (, , 334, 276) 集_新窗口.边框 ＝ 0 局部_新编辑框 ＝ 集_动态窗口.增加编辑框 () 局部_新编辑框.移动 (1, 8, 320, 208) 局部_新编辑框.内容 ＝ “我是一个动态创建的编辑框” 局部_新编辑框.可视 ＝ 真 局部_新按钮 ＝ 集_动态窗口.增加按钮 (, &按钮被单击) 局部_新按钮.标题 ＝ “关闭” 局部_新按钮.移动 (8, 224, 88, 48) 局部_新按钮.可视 ＝ 真 .子程序 按钮被单击 .参数 组件地址, 整数型 集_新窗口.销毁 ()