以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  循环读取图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143078)
--  作者：13968559581
--  发布时间：2019/11/13 9:46:00
--  循环读取图片
你好：
     我现在想在一个文件夹里放N张图片，想做个窗口，放一个图片控件，循环读取显示里面的图片(每张图片显示10秒钟)，这用什么方法比较好
--  作者：有点蓝
--  发布时间：2019/11/13 9:52:00
--  
窗口计时器：http://www.foxtable.com/webhelp/topics/1301.htm
--  作者：13968559581
--  发布时间：2019/11/13 9:53:00
--  怎么读取图片
你好，计时器功能我知道呀，我现在主要是，里面的图片文件名称不规则，怎么去读取
--  作者：有点蓝
--  发布时间：2019/11/13 9:54:00
--  
参考：http://www.foxtable.com/webhelp/topics/0341.htm
--  作者：13968559581
--  发布时间：2019/11/13 10:21:00
--  文件格式
你好
    我想判断一下这个目录里的所有文件的格式（比如我想判断这个文件是否为jpg格式），这用什么方法比较好
 还有，这个10秒显示一次（每张图片轮循显示10秒钟），我想不出来，请帮我代码完善一下
  Dim pcx1 As WinForm.PictureBox = e.Form.Controls("PictureBox1")
For Each File As String In FileSys.GetFiles("C:\\111\\")
     pcx1.ImageFile=file
Next
[此贴子已经被作者于2019/11/13 10:31:29编辑过]
--  作者：有点蓝
--  发布时间：2019/11/13 10:33:00
--  
For Each File As String In FileSys.GetFiles("C:\\111\\")
    If file.EndsWith(".jpg")
        pcx1.ImageFile=file
    End If
Next
--  作者：13968559581
--  发布时间：2019/11/13 10:43:00
--  定时
你好:
    这个每张图片显示10秒钟，还是实现不了呀
--  作者：有点蓝
--  发布时间：2019/11/13 10:50:00
--  
窗口afterload
vars("a") = FileSys.GetFiles("C:\\111\\")
if vars("a").count > 0 then
vars("i") = 0
else
vars("i") = -1
end if

计时事件
if vars("i") > -1 andalso vars("i") < vars("a").count
e.Form.Controls("PictureBox1").ImageFile=vars("a")(vars("i"))
vars("i") += 1
endif