UC知道VB随机数问题
来源：百度知道 编辑：UC知道 时间：2024/06/15 10:31:34
有15张图片
让VB程序每次运行
随即的加载一张图片
代码怎么实现
还有，图片的地址能不能像网页一样，处理成相对地址。
Picture1.Picture = LoadPicture(App.apth & picname(PNUmber))
运行错误‘438’
对象不支持该属性或方法
让VB程序每次运行
随即的加载一张图片
代码怎么实现
还有，图片的地址能不能像网页一样，处理成相对地址。
Picture1.Picture = LoadPicture(App.apth & picname(PNUmber))
运行错误‘438’
对象不支持该属性或方法
Option Explicit
Private Sub Form_Load()
Randomize
Dim PNUmber As Long
Dim picname(15)
PNUmber = Int(Rnd * 16) + 1
picname(1) = "eee1.bmp"
picname(2) = "eee2.bmp"
'....
picname(15) = "eee15.bmp"
Picture1.Picture = LoadPicture(App.apth & picname(PNUmber))
End Sub
'图片的名字你自己写一下吧！！
'放本身目录下
Private Sub Form_Load()
Randomize
Dim PNUmber As Long
Dim picname(15)
PNUmber = Int(Rnd * 16) + 1
picname(1) = "01.jpg"
picname(2) = "02.jpg"
picname(3) = "03.jpg"
picname(4) = "04.jpg"
picname(5) = "05.jpg"
picname(6) = "06.jpg"
picname(7) = "07.jpg"
picname(8) = "08.jpg"
picname(9) = "09.jpg"
picname(10) = "10.jpg"
picname(11) = "11.jpg"
picname(12) = "12.jpg"
picn