以文本方式查看主题 - 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
|