例如:窗体上一个picture1和command1的控件。
一:有四张图片,他们的后缀名不相同,你可以这样写:
Dim a$(3)
Private Sub Form_Load()
Randomize
a(0) = "D:\xuexi.gif"
a(1) = "D:\002.jpg"
a(2) = "D:\房子.png"
a(3) = "D:\4.jpg"
End Sub
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(a(Int(Rnd * 3)))
End Sub
二:如果后缀名相同,且图片名称按顺序编号并在程序目录下,你可以这样写:
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(App.Path & "\" & Int(Rnd * 3) & ".jpg")
End Sub