.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 图片框, 图片框 .程序集变量 标签, 标签 .子程序 __启动窗口_创建完毕 .局部变量 n3, 整数型 .计次循环首 (20, n3) 复制窗口组件 (图片框1, 图片框) 图片框.标记 ＝ 到文本 (n3) 复制窗口组件 (标签1, 标签) 标签.标记 ＝ 到文本 (20 ＋ n3) .计次循环尾 () 载入 (窗口1, _启动窗口, 假) .子程序 _图片框1_鼠标位置被移动, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 子程序1 () .子程序 _标签1_鼠标位置被移动, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 子程序3 () .子程序 子程序1 图片框 ＝ 取事件组件 () 图片框 ＝ 取标记组件 (到数值 (图片框.标记)) 窗口1.移动 (_启动窗口.左边 ＋ 图片框.左边 ＋ 10, _启动窗口.顶边 ＋ 图片框.顶边 ＋ 32 ＋ 图片框_底部2.顶边, _启动窗口.图片框1.宽度, _启动窗口.图片框1.高度) 窗口1.可视 ＝ 真 标签 ＝ 标签.取标记组件 (到数值 (图片框.标记) ＋ 20) 标签.背景颜色 ＝ #嫩绿 标签.文本颜色 ＝ #白色 .子程序 子程序3 标签 ＝ 取事件组件 () 标签 ＝ 取标记组件 (到数值 (标签.标记)) 图片框 ＝ 标签.取标记组件 (到数值 (标签.标记) － 20) 窗口1.移动 (_启动窗口.左边 ＋ 图片框.左边 ＋ 10, _启动窗口.顶边 ＋ 图片框.顶边 ＋ 32 ＋ 图片框_底部2.顶边, _启动窗口.图片框1.宽度, _启动窗口.图片框1.高度) 窗口1.可视 ＝ 真 标签.背景颜色 ＝ #嫩绿 标签.文本颜色 ＝ #白色 .子程序 __启动窗口_位置被改变 窗口1.可视 ＝ 假 .子程序 __启动窗口_尺寸被改变 图片框_底部.移动 (0, 0, _启动窗口.宽度, _启动窗口.高度) 图片框_底部2.宽度 ＝ 图片框_底部.宽度 调试输出 (“正在尺寸被改变”) 子程序2 () .子程序 _图片框_底部2_鼠标位置被移动, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .如果真 (窗口1.可视 ＝ 真) 标签.背景颜色 ＝ #白色 标签.文本颜色 ＝ #黑色 窗口1.可视 ＝ 假 .如果真结束 .子程序 _按钮1_被单击 子程序2 () .子程序 子程序2 .局部变量 y, 整数型 .局部变量 x, 整数型 .局部变量 电视剧数量, 整数型 .局部变量 几列, 整数型 .局部变量 几排, 整数型 .计次循环首 (20, y) .计次循环首 (到整数 (图片框_底部2.宽度) ÷ (图片框1.宽度 ＋ 10), x) 电视剧数量 ＝ 电视剧数量 ＋ 1 图片框 ＝ 取标记组件 (电视剧数量) 图片框.顶边 ＝ 图片框1.顶边 图片框.移动 (图片框1.左边 × (图片框1.宽度 ＋ 10) × (x － 1) ＋ 10, 图片框1.顶边 × y ＋ (图片框1.高度 ＋ 10 ＋ 标签1.高度) × (y － 1), 图片框1.宽度, 图片框1.高度) 图片框.可视 ＝ 真 标签 ＝ 取标记组件 (20 ＋ 电视剧数量) 标签.移动 (图片框.左边, 图片框.顶边 ＋ 图片框.高度, 标签1.宽度, 标签1.高度) 标签.标题 ＝ “ 花千骨” ＋ #换行符 ＋ “ 全集” 标签.文本颜色 ＝ 标签1.文本颜色 标签.字体.字体大小 ＝ 标签1.字体.字体大小 标签.背景颜色 ＝ 标签1.背景颜色 标签.字体.字体名称 ＝ 标签1.字体.字体名称 标签.可视 ＝ 真 .如果真 (电视剧数量 ＝ 20) 跳出循环 () .如果真结束 .计次循环尾 () .如果真 (电视剧数量 ＝ 20) 跳出循环 () .如果真结束 .计次循环尾 () 图片框_底部2.高度 ＝ y × (图片框1.高度 ＋ 标签1.高度 ＋ 10) ＋ y ＋ 1 调试输出 (电视剧数量) 调试输出 (y － 1) 调试输出 (图片框1.高度 ＋ 标签1.高度) 调试输出 (图片框_底部2.高度) .子程序 子程序4 图片框.图片 ＝ #图片1 .子程序 _图片框_底部2_滚轮被滚动, 逻辑型 .参数 滚动距离, 整数型 .参数 功能键状态, 整数型 图片框_底部2.顶边 ＝ 图片框_底部2.顶边 ＋ 滚动距离 × 20 .子程序 __启动窗口_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 调试输出 (“窗口调整完毕，请指示”) .子程序 _图片框1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 调试输出 (图片框.标记) 调试输出 (“阿阿阿”) .子程序 _图片框1_鼠标右键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型