dim image(32) as image ^^^^^^^^^都写成这样了,不用控件数组还用什么?
Private Sub Form_Load() Dim i For i = 1 To 3 Load Image1(i) Image1(i).Visible = True Image1(i).Top = i * 1000 Image1(i).Left = 100 Image1(i).Picture = LoadPicture("G:\www\images\01.gif") Next i End Sub
程序报的什么错啊,不会是图片文件不存在吧
^^^^^^^^^都写成这样了,不用控件数组还用什么?
Dim i
For i = 1 To 3
Load Image1(i)
Image1(i).Visible = True
Image1(i).Top = i * 1000
Image1(i).Left = 100
Image1(i).Picture = LoadPicture("G:\www\images\01.gif")
Next i
End Sub