以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]随机背景图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18963)
--  作者：zhangqinyun
--  发布时间：2012/4/23 15:47:00
--  [分享]随机背景图片

有没有觉得主界面老是一张图片看烦了，呵呵。

分享一下设置随机背景的方法。

 

1。先找几个背景放Image文件夹里

 

2。再在AfterOpenProject 加

 

\'打开背景
If Forms("背景").Opened = True Then
    Dim tp As String = "背景" & Rand.Next(9) & ".jpg"
    Forms("背景").Image = GetImage(tp)
    MainTable = Tables("表A")
End If

 

这样就OK了，很简单。
--  作者：程兴刚
--  发布时间：2012/4/23 15:57:00
--  

分享，是一种不用言喻的快乐！