易语言游戏脚本开发-第10课(窗口一键排列关闭)
.版本 2 .支持库 iext .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .局部变量 局_窗口列表, 整数型, , "0" .局部变量 局_次数, 整数型 窗口_模糊遍历窗口 (, “Notepad”, “ - 记事本”, 局_窗口列表) 超级列表框1.全部删除 () .计次循环首 (取数组成员数 (局_窗口列表), 局_次数) 超级列表框1.插入表项 (, 到文本 (局_窗口列表 [局_次数]), , , , ) .计次循环尾 () .子程序 _按钮2_被单击 .局部变量 局_窗口宽度, 整数型 .局部变量 局_窗口高度, 整数型 .局部变量 局_次数, 整数型 .局部变量 局_句柄, 整数型 .局部变量 局_x, 整数型 .局部变量 局_y, 整数型 .局部变量 局_矩形, 精易_矩形 局_窗口宽度 ＝ 230 局_窗口高度 ＝ 310 局_x ＝ 0 局_y ＝ 0 局_矩形 ＝ 窗口_取位置和大小 (窗口_取桌面句柄 ()) .计次循环首 (超级列表框1.取表项数 (), 局_次数) 局_句柄 ＝ 到整数 (超级列表框1.取标题 (局_次数 － 1, 0)) ' 当前的右边 是 欲摆放位置 .如果真 (局_x ＋ 局_窗口宽度 ＞ 局_矩形.右边) 局_y ＝ 局_y ＋ 局_窗口高度 局_x ＝ 0 .如果真结束 .如果真 (局_y ＋ 局_窗口高度 ＞ 局_矩形.底边) 窗口_关闭 (局_句柄) 到循环尾 () .如果真结束 窗口_置位置和大小 (局_句柄, 局_y, 局_x, 局_窗口高度, 局_窗口宽度) 局_x ＝ 局_x ＋ 局_窗口宽度 .计次循环尾 ()