已经把图片命名为pic,也放在同一文件夹下,但是找不到图,程序错误
追答程序存盘了没有?
图片文件名为
PIC+数字+.JPG
是你的代码少了一个“\”,应该是"\pic"。那要怎么样实现随机的图配上相应的文字,我有20张图,有20种情况。
追答上面的代码已经是随机的图了。最好再前面再加上一句Randomize就可以了。
如果要加上相应的说明文字,可以事先把说明文字放到一个数组中。
Private Sub Command1_Click()
Dim a(20) As String
a(1) = "ABC111"
a(2) = "ABC222"
a(3) = "ABC333"
'........
Randomize
i = Int(Rnd * 20) + 1
Image1.Stretch = True
Image1.Picture = LoadPicture(App.Path & "\Pic" & i & ".jpg")
Text1.Text = a(i)
End Sub