.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 原宽度, 整数型
.程序集变量 原高度, 整数型
.程序集变量 新宽度, 整数型
.程序集变量 新高度, 整数型
.子程序 _滑块条1_位置被改变
新宽度 = 原宽度 + 滑块条1.位置 × 100
新高度 = 原高度 × 新宽度 ÷ 原宽度
图片框1.宽度 = 新宽度
图片框1.高度 = 新高度
调试输出 (新宽度, 新高度)
编辑框1.内容 = 到文本 (新宽度)
编辑框2.内容 = 到文本 (新高度)
.子程序 __启动窗口_创建完毕
原宽度 = 320
原高度 = 200