Question

VB 中如何用timer顺序显示图片

有十个图片分别是 image1(0)到 image1(9)，image1的Visible的值开始为 false 为什么我一运行就只显示第一个image1(0)

Private Sub Form_Load()
Dim a As Long
a = 0
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
Image1(a).Visible = True
a = a + 1
End Sub

Answer 1

变量a你是在Form_Load()里定义的，因此它只能在Form的Load事件中起作用，要想在其他过程也用到该变量，请在窗体的“通用”里定义，或者在Timer1_Timer()里定义，根据你的要求可定义成静态变量，静态变量在每次调用某个过程时，它的值是保留的。

你可在VB的选项中在“要求变量声明”前打上勾，这是个好习惯，碰到未定义的变量VB会报错。

Answer 2

Private Sub Timer1_Timer()
Image1(a).Visible = True
Image1(a-1).Visible = false
a = a + 1
if a>9 then a=0
End Sub
代码再稍微修改一下，思路就是这样。
不显示的要隐藏并判断是否是最后，一直循环下去

Answer 3

Dim a As Long '这是一个窗体级别的变量，主要就是这里出了问题。

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Image1(a).Visible = False '这里要使得前面的image 为不可见。
a = a + 1
Image1(a).Visible = True
If a >= 9 Then a = 0
End Sub