Question

vb控件数组简单问题

Private Sub Image1_Click(Index As Integer)
Dim i As Integer
i = 0
Image1(5 - i).Visible = False
i = i + 1
End Sub
image1(i)是一组图片控件数组，我的意思是点一次消失一个图片，但是这段代码执行以后只能消失第一张图片，为什么?要实现点一次消失一个图片应该怎么做？

Answer 1

Private Sub Image1_Click(Index As Integer)
Image1(Index).Visible = False
End Sub

Answer 2

Dim i As Integer
i = 0

Private Sub Image1_Click(Index As Integer)

Image1(5 - i).Visible = False
i = i + 1
End Sub

Answer 3

Private Sub Image1_Click(Index As Integer)
Static i As Integer '定义一个静态变量
Image1(5 - i).Visible = False
i = i + 1
End Sub