易语言怎么单击按钮查看下一张图片 10
我目前做出来的是[通用对话框]打开图片,显示在图片框中,我想要单击一个按钮就接着显示下一张图片,就像图片查看器一样,求高手啊~~~...
我目前做出来的是[通用对话框]打开图片,显示在图片框中,我想要单击一个按钮就接着显示下一张图片,就像图片查看器一样,求高手啊~~~
展开
3个回答
展开全部
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
清除数组 (图片组)
通用对话框1.打开 ()
文件名 = 通用对话框1.文件名
图片框1.图片 = 读入文件 (文件名)
文件路径 = 取文本左边 (文件名, 倒找文本 (文件名, “\”, , 假))
文件名 = 寻找文件 (文件路径 + “*.jpg”, )
.如果真 (文件名 ≠ “”)
加入成员 (图片组, 文件名)
图片序号 = 1
.如果真结束
.判断循环首 (文件名 ≠ “”)
文件名 = 寻找文件 (, )
.如果真 (文件名 ≠ “”)
加入成员 (图片组, 文件名)
.如果真 (文件名 = 通用对话框1.文件名)
图片序号 = 取数组成员数 (图片组)
.如果真结束
.如果真结束
处理事件 ()
.判断循环尾 ()
.版本 2
.子程序 _按钮2_被单击
.如果真 (取数组成员数 (图片组) < 1)
返回 ()
.如果真结束
.如果真 (通用对话框1.文件名 ≠ “”)
.如果 (图片序号 < 取数组成员数 (图片组))
图片序号 = 图片序号 + 1
.否则
图片序号 = 1
.如果结束
图片框1.图片 = 读入文件 (图片组 [图片序号])
.如果真结束
.局部变量 文件名, 文本型
清除数组 (图片组)
通用对话框1.打开 ()
文件名 = 通用对话框1.文件名
图片框1.图片 = 读入文件 (文件名)
文件路径 = 取文本左边 (文件名, 倒找文本 (文件名, “\”, , 假))
文件名 = 寻找文件 (文件路径 + “*.jpg”, )
.如果真 (文件名 ≠ “”)
加入成员 (图片组, 文件名)
图片序号 = 1
.如果真结束
.判断循环首 (文件名 ≠ “”)
文件名 = 寻找文件 (, )
.如果真 (文件名 ≠ “”)
加入成员 (图片组, 文件名)
.如果真 (文件名 = 通用对话框1.文件名)
图片序号 = 取数组成员数 (图片组)
.如果真结束
.如果真结束
处理事件 ()
.判断循环尾 ()
.版本 2
.子程序 _按钮2_被单击
.如果真 (取数组成员数 (图片组) < 1)
返回 ()
.如果真结束
.如果真 (通用对话框1.文件名 ≠ “”)
.如果 (图片序号 < 取数组成员数 (图片组))
图片序号 = 图片序号 + 1
.否则
图片序号 = 1
.如果结束
图片框1.图片 = 读入文件 (图片组 [图片序号])
.如果真结束
展开全部
.版本 2
.程序集 窗口程序集1
.程序集变量 文件路径, 文本型
.程序集变量 图片组, 文本型, , "0"
.程序集变量 图片序号, 整数型
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
清除数组 (图片组)
通用对话框1.打开 ()
文件名 = 通用对话框1.文件名
图片框1.图片 = 读入文件 (文件名)
文件路径 = 取文本左边 (文件名, 倒找文本 (文件名, “\”, , 假))
文件名 = 寻找文件 (文件路径 + “*.jpg”, )
.如果真 (文件名 ≠ “”)
加入成员 (图片组, 文件名)
图片序号 = 1
.如果真结束
.判断循环首 (文件名 ≠ “”)
文件名 = 寻找文件 (, )
.如果真 (文件名 ≠ “”)
加入成员 (图片组, 文件名)
.如果真 (文件名 = 通用对话框1.文件名)
图片序号 = 取数组成员数 (图片组)
.如果真结束
.如果真结束
处理事件 ()
.判断循环尾 ()
.版本 2
.子程序 _按钮2_被单击
.如果真 (取数组成员数 (图片组) < 1)
返回 ()
.如果真结束
.如果真 (通用对话框1.文件名 ≠ “”)
.如果 (图片序号 < 取数组成员数 (图片组))
图片序号 = 图片序号 + 1
.否则
图片序号 = 1
.如果结束
图片框1.图片 = 读入文件 (图片组 [图片序号])
.如果真结束
.程序集 窗口程序集1
.程序集变量 文件路径, 文本型
.程序集变量 图片组, 文本型, , "0"
.程序集变量 图片序号, 整数型
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
清除数组 (图片组)
通用对话框1.打开 ()
文件名 = 通用对话框1.文件名
图片框1.图片 = 读入文件 (文件名)
文件路径 = 取文本左边 (文件名, 倒找文本 (文件名, “\”, , 假))
文件名 = 寻找文件 (文件路径 + “*.jpg”, )
.如果真 (文件名 ≠ “”)
加入成员 (图片组, 文件名)
图片序号 = 1
.如果真结束
.判断循环首 (文件名 ≠ “”)
文件名 = 寻找文件 (, )
.如果真 (文件名 ≠ “”)
加入成员 (图片组, 文件名)
.如果真 (文件名 = 通用对话框1.文件名)
图片序号 = 取数组成员数 (图片组)
.如果真结束
.如果真结束
处理事件 ()
.判断循环尾 ()
.版本 2
.子程序 _按钮2_被单击
.如果真 (取数组成员数 (图片组) < 1)
返回 ()
.如果真结束
.如果真 (通用对话框1.文件名 ≠ “”)
.如果 (图片序号 < 取数组成员数 (图片组))
图片序号 = 图片序号 + 1
.否则
图片序号 = 1
.如果结束
图片框1.图片 = 读入文件 (图片组 [图片序号])
.如果真结束
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
当前目录=浏览文件夹()
然后用寻找文件在“当前目录”里面读取图片
然后用寻找文件在“当前目录”里面读取图片
追问
调用格式能举些例子么?谢谢
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询