易语言怎么制作自动播放图片的软件

.版本 2

.支持库 shell

.程序集 窗口程序集1

.程序集变量 图片, 文本型, , "0"

.程序集变量 指针, 整数型

.程序集变量 目录, 文本型

.程序集变量 文件名, 文本型

.程序集变量 被单击, 文本型

.子程序 __启动窗口_创建完毕

目录 ＝ 浏览文件夹 (“请选择目录”, )

.如果真 (目录 ＝ “”)

    目录 ＝ 取运行目录 ()

.如果真结束

目录 ＝ 目录 ＋ “\”

文件名 ＝ 寻找文件 (目录 ＋ “*.jpg”, )

.循环判断首 ()

    文件名 ＝ 寻找文件 (, )

    .如果真 (文件名 ＝ “”)

        跳出循环 ()

    .如果真结束

    加入成员 (图片, 文件名)

.循环判断尾 (文件名 ≠ “”)

指针 ＝ 1

图片框1.显示方式 ＝ 1

按钮1.标题 ＝ “上一张”

按钮2.标题 ＝ “下一张”

时钟1.时钟周期 ＝ 3000

.子程序 _按钮1_被单击

被单击 ＝ “按钮1”

.子程序 _按钮2_被单击

被单击 ＝ “按钮2”

.子程序 _时钟1_周期事件

.判断开始 (被单击 ＝ “按钮1”)

    指针 ＝ 指针 － 1

    .如果真 (指针 ＜ 1)

        指针 ＝ 取数组成员数 (图片)

    .如果真结束

.默认

    指针 ＝ 指针 ＋ 1

    .如果真 (指针 ＞ 取数组成员数 (图片))

        指针 ＝ 1

    .如果真结束

.判断结束

图片框1.图片 ＝ 读入文件 (目录 ＋ 图片 [指针])