以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  背景图片  (http://foxtable.com/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.TimerInterval = 3000

  e.Form.TimerEnabled = True
 
  Forms("主窗口").baseform.backgroundimage = getimage("G:\\foxtable\\管理项目1\\Images\\图片\\1.jpg")
 

--  作者:武汉老杨
--  发布时间:2016/8/12 12:01:00
--  
谢谢! 解决!