- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 一个主窗体设置背景图片自动切换怎么写代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45750)
-- 发布时间：2014/2/10 15:25:00
-- 一个主窗体设置背景图片自动切换怎么写代码
主窗体设置背景图片自动切换怎么写代码？
说明：Images文件里有设计好的背景图片（1.2.3.4.5）张.打开系统和主窗体，背景图片在30秒内自动循环切换1-5张图片或更多
-- 发布时间：2014/2/10 15:27:00
--
背景图片可以在局域网下同步更新自动循环切换？
-- 发布时间：2014/2/10 15:31:00
--
计时器里使用代码设置即可
e.Form.baseform.controls(e.Form.name).backgroundimage=getimage("C:\\Users\\foxtable1\\Desktop\\上传图片请参考这里.gif")
-- 发布时间：2014/2/10 15:38:00
--
注意用静态变量：
Static i as integer
if i = 0 then
i = 1
end if
e.Form.baseform.controls(e.Form.name).backgroundimage=getimage("C:\\Users\\foxtable1\\Desktop\\" & i & ".gif")
i = i + 1
if i = 6 then
i = 1
end if
-- 发布时间：2014/2/10 15:39:00
--
谢谢！狐爸
-- 发布时间：2014/2/10 15:52:00
--
狐爸 还是不可以啊？
-- 发布时间：2014/2/10 15:53:00
--
此主题相关图片如下：qq截图20140210155340.png
-- 发布时间：2014/2/10 15:54:00
--
上例子,我看你是怎么做的.
-- 发布时间：2014/2/10 15:59:00
--
此主题相关图片如下：qq截图20140210155914.png
-- 发布时间：2014/2/10 22:31:00
--
这样写，Forms("xxx").baseform.backgroundimage = getimage("d:\\test.jpg")