Question

VB image控件问题

我的窗口上有 image1到image200 没有用数组 当我点击command1 怎么让这些控件的图片都是 loadpicture 呢？如果用数组怎么写呢？

Answer 1

1、不用数组
Private Sub Command1_Click()
Image1.Picture = LoadPicture(wenjianming)
Image2.Picture = LoadPicture(wenjianming)
…………'这里你可不能写省略号阿
Image200.Picture = LoadPicture(wenjianming)
End Sub
2、用数组
Private Sub Command1_Click()
For i = 0 To 199
Image1(i).Picture = LoadPicture(wenjianming)
Next i
End Sub
当然第二种方法，你的那控件数组建立好