让图片在图片框循环显示

xf702

  

子程序名	返回值类型	公开	备 注
图片读取1			1#

变量名	类 型	静态	数组	备 注
图片数组	文本型		0
i	整数型
文件地址	文本型

文件地址 ＝ 取运行目录 () ＋ “\车1”
文件_枚举 (文件地址, “*.jpg”, 图片数组, 真, , )
调试输出 (图片数组)
计次循环首 (取数组成员数 (图片数组), i)
图片框1.图片 ＝ 读入文件 (图片数组 [i])
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 图片读取1, , , 1#<br /> .局部变量 图片数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件地址, 文本型<br /> <br /> 文件地址 ＝ 取运行目录 () ＋ “\车1”<br /> 文件_枚举 (文件地址, “*.jpg”, 图片数组, 真, , )<br /> 调试输出 (图片数组)<br /> .计次循环首 (取数组成员数 (图片数组), i)<br />     图片框1.图片 ＝ 读入文件 (图片数组 <i>)<br /> .计次循环尾 ()

已经读取到了，请问一下，该如何让图片在图片框循环播放呢？文件夹下有3张图。

qq793359277

你循环没有加延迟啊  瞬间就轮播完了

高先生

加时钟里呗..

Jylt2952

.版本 2

.子程序 图片读取1, , , 1#
.局部变量 死循环, 逻辑型


死循环 ＝ 真
.判断循环首 (死循环 ＝ 真)
    图片框1.图片 ＝ 取运行目录 () ＋ “\车1”
    程序_延时 (1000, )
    图片框1.图片 ＝ 取运行目录 () ＋ “\车2”
    程序_延时 (1000, )
    图片框1.图片 ＝ 取运行目录 () ＋ “\车3”
    程序_延时 (1000, )
.判断循环尾 ()

Jylt2952

  

子程序名	返回值类型	公开	备 注
图片读取1			1#

变量名	类 型	静态	数组	备 注
死循环	逻辑型

死循环 ＝ 真
判断循环首 (死循环 ＝ 真)
图片框1.图片 ＝ 取运行目录 () ＋ “\车1”
程序_延时 (1000, )
图片框1.图片 ＝ 取运行目录 () ＋ “\车2”
程序_延时 (1000, )
图片框1.图片 ＝ 取运行目录 () ＋ “\车3”
程序_延时 (1000, )
判断循环尾 ()

.版本 2<br /> <br /> .子程序 图片读取1, , , 1#<br /> .局部变量 死循环, 逻辑型<br /> <br /> <br /> 死循环 ＝ 真<br /> .判断循环首 (死循环 ＝ 真)<br />     图片框1.图片 ＝ 取运行目录 () ＋ “\车1”<br />     程序_延时 (1000, )<br />     图片框1.图片 ＝ 取运行目录 () ＋ “\车2”<br />     程序_延时 (1000, )<br />     图片框1.图片 ＝ 取运行目录 () ＋ “\车3”<br />     程序_延时 (1000, )<br /> .判断循环尾 ()

Jylt2952

太复杂的不会 直接用最简单的方法

观音

放到线程里运行 加上 程序_延时（50） 和 系统_处理事件1（）

xf702

qq793359277 发表于 2024-1-19 21:34
你循环没有加延迟啊  瞬间就轮播完了

哦了。。。

布点脚本师

  

子程序名	返回值类型	公开	备 注
图片读取1			1#

变量名	类 型	静态	数组	备 注
图片数组	文本型		0
i	整数型
文件地址	文本型

文件地址 ＝ “C:\Users\Administrator\Pictures\”
文件_枚举 (文件地址, “*.jpg”, 图片数组, 真, , )
调试输出 (图片数组)
计次循环首 (取数组成员数 (图片数组), i)
图片框1.图片 ＝ 读入文件 (图片数组 [i])
程序_延时 (3, 1)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 图片读取1, , , 1#<br /> .局部变量 图片数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件地址, 文本型<br /> <br /> 文件地址 ＝ “C:\Users\Administrator\Pictures\”<br /> 文件_枚举 (文件地址, “*.jpg”, 图片数组, 真, , )<br /> 调试输出 (图片数组)<br /> .计次循环首 (取数组成员数 (图片数组), i)<br />     图片框1.图片 ＝ 读入文件 (图片数组 <i>)<br />     程序_延时 (3, 1)<br /> .计次循环尾 ()

[发飚的蜗牛]

在易语言中，实现图片的循环播放，可以使用“图像控件”和“循环”结构。以下是一个简单的示例代码，演示如何循环播放本地图片：


```
易语言`.主程序
    .局部变量 imgList, 文本型数组
    .局部变量 index, 文本型
    .局部变量 图片控件, 图像控件型
    .局部变量 定时器, 定时器型
    .局部变量 定时器间隔, 文本型

    // 初始化定时器间隔为1000毫秒（1秒）
    定时器间隔 = 1000

    // 加载图片列表
    imgList = 文本型数组()
    imgList.添加("C:\路径\图片1.jpg")
    imgList.添加("C:\路径\图片2.jpg")
    imgList.添加("C:\路径\图片3.jpg")
    // 可以添加更多的图片路径

    // 创建图像控件并设置大小和位置
    图片控件.创建(100, 100, 200, 200) ' 设置控件的位置和大小
    图片控件.设置位置(100, 100) ' 设置控件的位置
    图片控件.设置大小(200, 200) ' 设置控件的大小

    // 创建定时器并设置间隔时间
    定时器.创建() ' 创建定时器对象
    定时器.设置间隔(定时器间隔) ' 设置定时器间隔时间

    // 循环播放图片
    循环直到 index >= imgList.数量()
        图片控件.设置图像(imgList[index]) ' 设置当前显示的图片
        等待直到 定时器.触发() ' 等待定时器触发
        index = index + 1 ' 更新索引值
    循环结束
子程序结束`
```
在上面的代码中，我们首先定义了一个文本型数组`imgList`，用于存储本地图片的路径。然后，我们创建了一个图像控件`图片控件`，并设置了其位置和大小。接下来，我们创建了一个定时器对象`定时器`，并设置了其间隔时间为1000毫秒（1秒）。在循环中，我们使用`图片控件.设置图像()`方法来设置当前显示的图片，并使用`等待直到 定时器.触发()`来等待定时器的触发。每次定时器触发后，我们更新索引值`index`，使其递增。当索引值超过图片列表的长度时，循环结束。

请注意，你需要将代码中的`C:\路径\图片1.jpg`、`C:\路径\图片2.jpg`等替换为你实际图片的本地路径。另外，你可以根据需要调整图像控件的位置、大小以及定时器的间隔时间。