窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 是否停止 | 逻辑型 | | 启动线程 (&播放, , )变量名 | 类 型 | 静态 | 数组 | 备 注 | L | 文本型 | | | 临时文本 | 文本型 | | |
是否停止 = 假 L = 寻找文件 (取运行目录 () + “\1\*.*”, )临时文本 = 子文本替换 (L, “.jpg”, “”, , , 真)临时文本 = 子文本替换 (临时文本, “.gif”, “”, , , 真)临时文本 = 子文本替换 (临时文本, “.png”, “”, , , 真)临时文本 = 子文本替换 (临时文本, “.bmp”, “”, , , 真)如果真 (到整数 (取文本右边 (临时文本, 1 )) % 2 = 0 )调试输出 (临时文本 )图片框1.图片 = 读入文件 (取运行目录 () + “\1\” + L )延时 (2000)判断循环首 (L ≠ “”)临时文本 = 子文本替换 (L, “.jpg”, “”, , , 真)临时文本 = 子文本替换 (临时文本, “.gif”, “”, , , 真)临时文本 = 子文本替换 (临时文本, “.png”, “”, , , 真)临时文本 = 子文本替换 (临时文本, “.bmp”, “”, , , 真)如果真 (到整数 (取文本右边 (临时文本, 1 )) % 2 = 0 )调试输出 (临时文本 )图片框1.图片 = 读入文件 (取运行目录 () + “\1\” + L )如果真 (是否停止 = 真)跳出循环 ()L = 寻找文件 (, )延时 (2000 )判断循环尾 ()是否停止 = 真
|