觅风论坛
标题:
将任一文件中的动态图片进行循环播放，想看源码的私聊
[打印本页]
作者:
zhuminghao
时间:
2020-7-29 16:28
标题:
将任一文件中的动态图片进行循环播放，想看源码的私聊
.版本 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)
.计次循环尾 ()
.计次循环尾 ()
.计次循环尾 ()
作者:
尘封
时间:
2020-7-29 16:44
支持，赞
作者:
慌什么！
时间:
2020-7-29 17:01
支持你们一下下哈
作者:
Dim星痕
时间:
2020-7-29 17:17
顶一个了
作者:
无聊玩玩
时间:
2020-7-29 17:33
碉堡了!
作者:
小一
时间:
2020-7-29 17:50
藕是来打酱油滴...
作者:
啊啊啊啊啊
时间:
2020-7-29 17:58
谢谢楼主的辛苦分享
作者:
天空欣欣天下
时间:
2020-7-29 18:06
支持你们一下下哈
作者:
Dim星痕
时间:
2020-7-29 18:15
不错哦 喜欢 嘿嘿
作者:
pei002
时间:
2020-7-29 18:23
支持！！！！前排！！！！
作者:
a895830975
时间:
2020-7-29 18:31
前来围观，LZ好样的！
作者:
中国好叔叔
时间:
2020-7-29 18:32
学习了！！！！
作者:
火狐
时间:
2020-7-29 18:32
谢谢楼主的辛苦分享
作者:
a123354
时间:
2020-7-29 18:32
支持你们一下下哈
作者:
中国好叔叔
时间:
2020-7-29 18:33
很不错的哦，支持，加油
作者:
qazqaz
时间:
2020-7-29 18:33
非常不错，感谢分享！
作者:
林哥
时间:
2020-7-29 18:34
学习一下！十分感谢
作者:
特拉斯●狗蛋儿
时间:
2020-7-29 18:35
这个好好支持一下
作者:
qq1354596367
时间:
2020-7-29 18:36
不错哦 喜欢 嘿嘿
作者:
sdf
时间:
2020-7-29 18:37
期待中......
作者:
你大爷
时间:
2020-7-29 18:37
支持！！！！前排！！！！
作者:
小天
时间:
2020-7-29 19:09
嘻嘻不错支持一个
作者:
天汇
时间:
2020-7-29 19:41
前来支持~~~~~~~~~~~~~~~~~~~
作者:
zdf517593902
时间:
2020-7-29 20:13
这个好好支持一下
作者:
柠檬
时间:
2020-7-29 20:46
顶起 很好的帖
作者:
霸王喝粥
时间:
2020-7-29 21:18
感觉不错
作者:
刘小凯
时间:
2020-7-29 21:31
前来支持~~~~~~~~~~~~~~~~~~~
作者:
星梦无痕
时间:
2020-7-29 21:44
不错不错 支持下
作者:
我是你爸爸
时间:
2020-7-29 21:57
学习一下！十分感谢
作者:
few
时间:
2020-7-29 22:10
感谢您的无私精神...
作者:
我是你爸爸
时间:
2020-7-29 22:23
抢楼了，前排第一次啊
作者:
物语
时间:
2020-7-29 22:32
嘻嘻不错支持一个
作者:
360403967
时间:
2020-7-29 22:40
谢谢楼主，，，收藏ing
作者:
我是你爸爸
时间:
2020-7-29 22:49
很给力。。。。很喜欢
作者:
你大爷
时间:
2020-7-29 22:58
学习一下！十分感谢
作者:
360403967
时间:
2020-7-29 23:06
支持！！！！前排！！！！
作者:
萨拉空军司令的
时间:
2020-7-29 23:20
很给力。。。。很喜欢
作者:
我爱你苏根
时间:
2020-7-29 23:33
不错哦 喜欢 嘿嘿
作者:
光光
时间:
2020-7-29 23:46
这个不错，谢谢共享
作者:
我爱你苏根
时间:
2020-7-29 23:59
抢楼了，前排第一次啊
作者:
6360120
时间:
2020-7-30 00:13
赞一个!
作者:
咬牙坚持
时间:
2020-7-30 02:11
支持你们一下下哈
作者:
asd26297
时间:
2020-7-30 04:10
支持一下，期待更多东西
作者:
luoyunjie
时间:
2020-7-30 06:09
提示:
作者被禁止或删除 内容自动屏蔽
作者:
啥啥啥
时间:
2020-7-30 08:07
提示:
作者被禁止或删除 内容自动屏蔽
作者:
Dim星痕
时间:
2020-7-30 10:06
藕是来打酱油滴...
作者:
任逍遥
时间:
2020-7-30 10:16
谢谢楼主，，，收藏ing
作者:
好吧你又赢了
时间:
2020-7-30 10:26
好像还不错！
作者:
好吧你又赢了
时间:
2020-7-30 10:36
感谢您的无私精神...
作者:
qq1124824221
时间:
2020-7-30 10:46
顶起 很好的帖
作者:
舞步
时间:
2020-7-30 10:56
碉堡了!
作者:
小一
时间:
2020-7-30 11:07
谢谢楼主的辛苦分享
作者:
asd3186789
时间:
2020-7-30 11:18
还是看不懂，复杂
作者:
骑着蚂蚁兜风
时间:
2020-7-30 11:29
好像还不错！
作者:
骑着蚂蚁兜风
时间:
2020-7-30 11:40
学习了，这就去试试
作者:
lhq19880526
时间:
2020-7-30 11:51
前来围观，LZ好样的！
作者:
555
时间:
2020-7-30 16:06
谢谢楼主的辛苦分享
欢迎光临 觅风论坛 (https://www.eyyba.com/)
Powered by Discuz! X3.4