马上注册，结交更多易友，享用更多功能，让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
.版本 2
.支持库 spec
打开对话框.文件名 ＝ “”
打开对话框.初始目录 ＝ 取运行目录 () ＋ “\目录”
打开对话框.过滤器 ＝ “图片文件|*.png;*.jpg;*.jepg;*.bmp”
.如果真 (打开对话框.打开 () ＝ 真)
指针 ＝ 倒找文本 (打开对话框.文件名, “\”, , 假)
图片目录 ＝ 取文本左边 (打开对话框.文件名, 指针)
图片目录2 ＝ 取文本左边 (打开对话框.文件名, 指针 － 1)
指针2 ＝ 倒找文本 (图片目录2, “\”, , 假)
文件目录 ＝ 取文本左边 (图片目录, 指针2)
图片数 ＝ 文件_枚举 (图片目录, “*.*”, 图片组, 真, 假, 假)
文件数 ＝ 目录_枚举子目录 (文件目录, 文件组, 真, 假)
_启动窗口.位置 ＝ 3
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 ()
演示画板.宽度 ＝ 取屏幕宽度 ()
演示画板.高度 ＝ 取屏幕高度 ()
隐藏画板1.宽度 ＝ 取屏幕宽度 ()
隐藏画板2.宽度 ＝ 取屏幕宽度 ()
隐藏画板3.宽度 ＝ 取屏幕宽度 ()
隐藏画板1.高度 ＝ 取屏幕高度 ()
隐藏画板2.高度 ＝ 取屏幕高度 ()
隐藏画板3.高度 ＝ 取屏幕高度 ()
图片播放.可视 ＝ 假
目录播放.可视 ＝ 假
.计次循环首 (计次, jj)
.计次循环首 (文件数, kk)
.如果真 (jj ＝ 1)
.如果真 (文件组 [kk] ＝ 图片目录2)
K ＝ 取数组成员数 (文件组) － kk
.如果真 (K ＋ kk ＞ 取数组成员数 (文件组))
跳出循环 ()
.如果真结束
.计次循环首 (K ＋ 1, l)
.如果真 (l ＋ kk ＞ 取数组成员数 (文件组) ＋ 1)
跳出循环 ()
.如果真结束
图片数 ＝ 文件_枚举 (文件组 [kk ＋ l － 1], “*.*”, 图片组, 真, 假, 假)
.计次循环首 (图片数, ll)
模块_随机显示效果 (图片组 [ll], 演示画板, 隐藏画板1, 隐藏画板2, 隐藏画板3)
' 演示画板.底图 ＝ 读入文件 (图片组 [k ＋ ll － 1])
图片号 ＝ 载入图片 (读入文件 (图片组 [ll]))
延迟 (周期 × 1000)
.计次循环尾 ()
.计次循环尾 ()
.如果真结束
到循环尾 ()
.如果真结束
图片数 ＝ 文件_枚举 (文件组 [kk], “*.*”, 图片组, 真, 假, 假)
.计次循环首 (图片数, ll)
模块_随机显示效果 (图片组 [ll], 演示画板, 隐藏画板1, 隐藏画板2, 隐藏画板3)
' 演示画板.底图 ＝ 读入文件 (图片组 [k ＋ ll － 1])
图片号 ＝ 载入图片 (读入文件 (图片组 [ll]))
延迟 (周期 × 1000)
.计次循环尾 ()
.计次循环尾 ()
.计次循环尾 ()
|
