如何实现在图片框里循环显示图片？

cjtdz

想在图片框里循环显示图片，我的做法是添加一个按钮和一个图片框，并添加几个资源图片，想当按下按钮后图片框里循环显示图片。使用的方法是：
图片框1.图片=#图片1
延时（1000）
图片框1.图片=#图片2
...........
运行后，怎么显示的是最后一张图片，怎样实现？

superuserlrj

你用错命令了，你把 延时（） 改为 延迟（） 就正常了！

doudou4631

代码给你传上了 是你的延时太低，

cjtdz

你用的是“画板”，我用的是“图片框”，用图片框显示7个图片却不能实现，二者有什么区别？

panzi

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. 
   
7. .判断开始 (图片框1.图片 ＝ #a1)
   
8.     图片框1.图片 ＝ #a2
   
9.     延时 (1000)
   
10. 
    
11. .默认
    
12.     图片框1.图片 ＝ #a1
    
13. 
    
14. .判断结束
    
15. .判断开始 (图片框1.图片 ＝ #a2)
    
16.     图片框1.图片 ＝ #a3
    
17. 
    
18. .默认
    
19.     图片框1.图片 ＝ #a2
    
20. 
    
21. .判断结束
    
22. .判断开始 (图片框1.图片 ＝ #a3)
    
23. 
    
24. .默认
    
25.     图片框1.图片 ＝ #a3
    
26. 
    
27. .判断结束
    
28. 
    
29. 
    
30. .子程序 __启动窗口_创建完毕
    
31. 
    
32. 图片框1.图片 ＝ #a1
    
33. 
    

复制代码

gsy20888

已经做好源码

esann

我的更简洁些，希望能帮到你



[e]
.版本 2.支持库 spec.子程序 _按钮1_被单击.局部变量 jc, 整数型.局部变量 图片, 字节集, , "5"图片 ＝ { #图片1, #图片2, #图片3, #图片4, #图片5 }.计次循环首 (5, jc)    _启动窗口.标题 ＝ “图片” ＋ 到文本 (jc)    图片框1.图片 ＝ 图片 [jc]    延迟 (1000).计次循环尾 ()清除数组 (图片)
[/e]

新建 易程序.rar (53.57 KB, 下载次数: 14)

2013-12-18 20:49 上传

点击文件名下载附件

cjtdz

怪了，以上我下来之后变成了打不开的后缀名是php的东西！

superuserlrj

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1

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

图片框1.图片 ＝ #图片1
延迟 (1000)
图片框1.图片 ＝ #图片2
延迟 (1000)
图片框1.图片 ＝ #图片3
[/e]

如果你想无限循环显示图片的话就用下面这个代码
[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 无限循环, 逻辑型

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

.如果 (无限循环 ＝ 假)
    无限循环 ＝ 真
.否则
    无限循环 ＝ 假
.如果结束
调用子程序 (&子程序1, , , )

.子程序 子程序1

.判断循环首 (无限循环 ＝ 真)
    图片框1.图片 ＝ #图片1
    延迟 (1000)
    图片框1.图片 ＝ #图片2
    延迟 (1000)
    图片框1.图片 ＝ #图片3
    延迟 (1000)
    处理事件 ()
.判断循环尾 ()
[/e]

小十

换换延迟试试呢