主题：[分享]随机背景图片

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

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

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了，很简单。

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