易语言怎么查看资源里面的图片比方5张我想用上一张下一张

lijianglai

资源里面有5张图片   #图片1-#图片5   我怎么用查看上一张 下一张 来实现  查看 我刚学   查看置顶的一张 2张 很好弄  图片框1.图片 ＝ #图片1  我想学习 查看上一张下一张 哪位好心朋友帮忙下

love116

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
图片位置	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_上一张_被单击

图片位置 ＝ 图片位置 － 1
判断 (图片位置 ＝ 1)
图片框1.图片 ＝ #图片1
判断 (图片位置 ＝ 2)
图片框1.图片 ＝ #图片2
判断 (图片位置 ＝ 3)
图片框1.图片 ＝ #图片3
判断 (图片位置 ＝ 4)
图片框1.图片 ＝ #图片4
判断 (图片位置 ＝ 5)
图片框1.图片 ＝ #图片5
图片位置 ＝ 1

子程序名	返回值类型	公开	备 注
_下一张_被单击

图片位置 ＝ 图片位置 ＋ 1
判断 (图片位置 ＝ 1)
图片框1.图片 ＝ #图片1
判断 (图片位置 ＝ 2)
图片框1.图片 ＝ #图片2
判断 (图片位置 ＝ 3)
图片框1.图片 ＝ #图片3
判断 (图片位置 ＝ 4)
图片框1.图片 ＝ #图片4
判断 (图片位置 ＝ 5)
图片框1.图片 ＝ #图片5
图片位置 ＝ 5

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 图片位置, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _上一张_被单击<br /> <br /> 图片位置 ＝ 图片位置 － 1<br /> .判断开始 (图片位置 ＝ 1)<br />     图片框1.图片 ＝ #图片1<br /> .判断 (图片位置 ＝ 2)<br />     图片框1.图片 ＝ #图片2<br /> .判断 (图片位置 ＝ 3)<br />     图片框1.图片 ＝ #图片3<br /> .判断 (图片位置 ＝ 4)<br />     图片框1.图片 ＝ #图片4<br /> .判断 (图片位置 ＝ 5)<br />     图片框1.图片 ＝ #图片5<br /> .默认<br />     图片位置 ＝ 1<br /> .判断结束<br /> <br /> <br /> .子程序 _下一张_被单击<br /> <br /> 图片位置 ＝ 图片位置 ＋ 1<br /> .判断开始 (图片位置 ＝ 1)<br />     图片框1.图片 ＝ #图片1<br /> .判断 (图片位置 ＝ 2)<br />     图片框1.图片 ＝ #图片2<br /> .判断 (图片位置 ＝ 3)<br />     图片框1.图片 ＝ #图片3<br /> .判断 (图片位置 ＝ 4)<br />     图片框1.图片 ＝ #图片4<br /> .判断 (图片位置 ＝ 5)<br />     图片框1.图片 ＝ #图片5<br /> .默认<br />     图片位置 ＝ 5<br /> .判断结束

乐鱼驴

#图片1
#图片2

乐鱼驴

保存一下变量
所有图片保存到 数组变量

lijianglai

乐鱼驴 发表于 2023-3-25 14:24
保存一下变量
所有图片保存到 数组变量

能帮我写下代码吗 我是新手真不会谢谢你了

天行大华

用数组是比较简单

lijianglai

麻烦师傅写下代码

liantan

例子.e (10.96 KB, 下载次数: 8)

2023-3-25 16:28 上传

点击文件名下载附件
例子

走一回

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
图片组	文本型	0
i	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

文件_枚举 (取运行目录 () ＋ “\pic\”, “*.jpg”, 图片组, 真, )
i ＝ 1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果 (i ＝ 1)

i ＝ i － 1
图片框1.图片 ＝ 读入文件 (图片组 [i])

子程序名	返回值类型	公开	备 注
_按钮2_被单击

如果 (i ＝ 取数组成员数 (图片组))

i ＝ i ＋ 1
图片框1.图片 ＝ 读入文件 (图片组 [i])

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 图片组, 文本型, , "0"<br /> .程序集变量 i, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 文件_枚举 (取运行目录 () ＋ “\pic\”, “*.jpg”, 图片组, 真, )<br /> i ＝ 1<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (i ＝ 1)<br /> <br /> .否则<br />     i ＝ i － 1<br /> .如果结束<br /> 图片框1.图片 ＝ 读入文件 (图片组 <i>)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果 (i ＝ 取数组成员数 (图片组))<br /> <br /> .否则<br />     i ＝ i ＋ 1<br /> .如果结束<br /> 图片框1.图片 ＝ 读入文件 (图片组 <i>)