求程序每次运行背景图都随即改变的VB代码

来源：百度知道 编辑：UC知道 时间：2024/07/02 18:37:57
本人希望在遍出的程序能在每次运行,背景图片都可以随机更换,但只是更换一次,下次运行又会随机换一个背景图,求高手们告诉这功能的VB代码.谢谢!

用一个变量X 连接几张不同的图片
运行程序的时候 form1.picture=loadpicture(app.path & x )
（ x是一个随机数 ）
你试试行不行嘛

我写的是：
Private Sub Form_Load()
Form1.AutoRedraw = True
Randomize
Dim x As Integer
x = Int(Rnd * 5) + 1
Form1.Picture = LoadPicture(App.Path & "\图片\" & x & ".jpg")
End Sub

新建一个图片的文件夹，放的你做背景的图片 重命名 1 2 3 4 5 ......
我的格式都是jpg的 你看你自己的格式改吧

用上边的