Question

如何实现用易语言图片框连续播放图片

如何实现用图片框实现联系播放图片资源表中的图片

Answer 1

.版本 2.支持库 EThread
.程序集 窗口程序集1.程序集变量 图片组, 字节集, , "0".程序集变量 当前图片, 整数型.程序集变量 图片张数, 整数型.程序集变量 下一张, 整数型
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 ＝ 1000当前图片 ＝ 1加入成员 (图片组, #图片1)加入成员 (图片组, #图片2)图片张数 ＝ 取数组成员数 (图片组)

.子程序 子程序_图片轮换

下一张 ＝ 当前图片 ＋ 1.如果真 (下一张 ＝ 图片张数 ＋ 1) 下一张 ＝ 1 当前图片 ＝ 图片张数.如果真结束
.如果 (当前图片 ＝ 图片张数) 当前图片 ＝ 1.否则
当前图片 ＝ 当前图片 ＋ 1.如果结束
图片框1.图片 ＝ 图片组 [当前图片]

.子程序 _时钟1_周期事件
启动线程 (&子程序_图片轮换, , )

Answer 2

.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
图片框1.图片 ＝ #图片4
时钟1.时钟周期 ＝ 5000 ' 这里是自动更换时间，可以自己调整
.子程序 _时钟1_周期事件
.如果真 (图片框1.标记 ＝ “”)
图片框1.图片 ＝ #图片1
图片框1.标记 ＝ “2” ' 利用不同的标记来表明不同的图片
返回 () ' 这里是不再往下执行的意思，以下如同
.如果真结束
.如果真 (图片框1.标记 ＝ “2”)
图片框1.图片 ＝ #图片2
图片框1.标记 ＝ “3”
返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “3”)
图片框1.图片 ＝ #图片3
图片框1.标记 ＝ “4”
返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “4”)
图片框1.图片 ＝ #图片4
图片框1.标记 ＝ “” ' 这里是结束了所以清空标记
返回 ()
.如果真结束