上一贴是文件图片循环，此贴是单一文件目录循环
.版本 2.支持库 spec
.子程序 图片显示
.参数 周期, 整数型
.局部变量 指针, 整数型
.局部变量 图片目录, 文本型
.局部变量 指针2, 整数型
.局部变量 文件目录, 文本型
.局部变量 图片数, 整数型
.局部变量 图片组, 文本型, , "0"
.局部变量 文件数, 整数型
.局部变量 文件组, 文本型, , "0"
.局部变量 图片目录2, 文本型
.局部变量 jj, 整数型
.局部变量 ll, 整数型
.局部变量 L, 整数型
.局部变量 k, 整数型
打开对话框.文件名 ＝ “”
打开对话框.初始目录 ＝ 取运行目录 () ＋ “\目录”
打开对话框.过滤器 ＝ “图片文件|*.png;*.jpg;*.jepg;*.bmp”
.如果真 (打开对话框.打开 () ＝ 真)
指针 ＝ 倒找文本 (打开对话框.文件名, “\”, , 假)
图片目录 ＝ 取文本左边 (打开对话框.文件名, 指针)
图片目录2 ＝ 取文本左边 (打开对话框.文件名, 指针 － 1)
指针2 ＝ 倒找文本 (图片目录2, “\”, , 假)
文件目录 ＝ 取文本左边 (图片目录, 指针2)
图片数 ＝ 文件_枚举 (图片目录, “*.*”, 图片组, 真, 假, 假)
文件数 ＝ 目录_枚举子目录 (文件目录, 文件组, 真, 假)
_启动窗口.位置 ＝ 3
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 ()
演示画板.宽度 ＝ 取屏幕宽度 ()
演示画板.高度 ＝ 取屏幕高度 ()
隐藏画板1.宽度 ＝ 取屏幕宽度 ()
隐藏画板2.宽度 ＝ 取屏幕宽度 ()
隐藏画板3.宽度 ＝ 取屏幕宽度 ()
隐藏画板1.高度 ＝ 取屏幕高度 ()
隐藏画板2.高度 ＝ 取屏幕高度 ()
隐藏画板3.高度 ＝ 取屏幕高度 ()
图片播放.可视 ＝ 假
目录播放.可视 ＝ 假
.计次循环首 (计次, jj)
图片数 ＝ 文件_枚举 (图片目录, “*.*”, 图片组, 真, 假, 假)
.计次循环首 (图片数, ll)
' 调试输出 (打开对话框.文件名)
.如果真 (jj ＝ 1)
.如果真 (图片组 ＝ 打开对话框.文件名)
L ＝ 取数组成员数 (图片组) － ll
.如果真 (L ＋ ll ＞ 取数组成员数 (图片组))
跳出循环 ()
.如果真结束
.计次循环首 (L ＋ 1, k)
.如果真 (k ＋ ll ＞ 取数组成员数 (图片组) ＋ 1)
跳出循环 ()
.如果真结束
模块_随机显示效果 (图片组 , 演示画板, 隐藏画板1, 隐藏画板2, 隐藏画板3)
' 演示画板.底图 ＝ 读入文件 (图片组 )
图片号 ＝ 载入图片 (读入文件 (图片组 ))
' 调试输出 (k ＋ ll － 1)
延迟 (周期 × 1000)
.计次循环尾 ()
.如果真结束
到循环尾 ()
.如果真结束
模块_随机显示效果 (图片组 , 演示画板, 隐藏画板1, 隐藏画板2, 隐藏画板3)
' 演示画板.底图 ＝ 读入文件 (图片组 )
图片号 ＝ 载入图片 (读入文件 (图片组 ))
延迟 (周期 × 1000)
.计次循环尾 ()
.计次循环尾 ()
学习了！！！！ 支持！！！！！！ 学习一下！十分感谢 好像还不错！ 感觉不错 支持，赞 不错不错 支持下 顶一个了 看帖子的要发表下看法