以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 背景图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88955) |
-- 作者:武汉老杨 -- 发布时间:2016/8/12 11:07:00 -- 背景图片 在:G:\\foxtable\\管理项目1\\Images\\图片\\ 下面有 4张 jpg图片 :1.jpg 2.jpg 3.jpg 4.jpg 想实现”主窗口” 背景图片自动切换,如30秒。 在窗口的timertick中 Static i As Integer If i = 0 Then i = 1 End If e.Form.baseform.controls(“主窗口”).backgroundimage=getimage("G:\\foxtable\\管理项目1\\Images\\图片\\" & i & ".jpg") i = i + 1 If i = 5 Then i = 1 End If 在窗口的afterload中 Forms("主窗口").baseform.backgroundimage = getimage("G:\\foxtable\\管理项目1\\Images\\图片\\.jpg") 怎么不能实现啊? 帮我看一下! |
-- 作者:大红袍 -- 发布时间:2016/8/12 11:19:00 -- afterload中
e.Form.TimerEnabled = True
Forms("主窗口").baseform.backgroundimage = getimage("G:\\foxtable\\管理项目1\\Images\\图片\\1.jpg")
|
-- 作者:武汉老杨 -- 发布时间:2016/8/12 12:01:00 -- 谢谢! 解决! |