以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何动态显示图片文件夹内的图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110766)

--  作者:有点蓝
--  发布时间:2017/12/8 22:23:00
--  
图片框一次只能显示一张图片。不知道你的动态是想怎么做
--  作者:有点蓝
--  发布时间:2017/12/9 14:25:00
--  
窗口afterload事件
vars("list") = FileSys.GetFiles("D:\\PNG")
vars("index") = 0

开启窗口计时器,设置TimerTick事件代码

Dim ptb As WinForm.PictureBox = e.Form.Controls("PictureBox1")
if vars("index") >= vars("list").Count
vars("index") = 0
end if
ptb.ImageFile = vars("list")(vars("index"))
vars("index")=vars("index")+1