Question

vb图像控件数组的问题。请指教。

我设计了一个图像picturebox控件数组的阵列，内部全部填充了一个图像1。我希望当我点击了第5个控件的时候 1-5个控件内部的填充图像更换同一图片2。以此类推，点击第30个的时候，1-30个控件的图像全部被更换同一张图片2。谢谢。

Answer 1

Private Sub Image1_Click(Index As Integer)
For i = 0 To Index
Image1(i).Picture = LoadPicture(App.Path & "\2.jpg")
Next i
If Index < 30 Then
For i = Index + 1 To 30
Image1(i).Picture = LoadPicture(App.Path & "\1.jpg")
Next i
End If
End Sub