VB中如何使用timer自动播放image中的图片？

VB中已经有5个image控件：image1;image2;image3;image4;image5.并且每个image已经导入了一张图片（不是调用路径文件那种）。我想使用timer使5个image实现自动播放的效果。怎么搞呢？谢谢！

'Timer1的InterVal 设为500
'5张图的位置相同（相互覆盖）
'强烈建议用控件数组，新手不会也可以不用
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
Image1.Visible = False:Image2.Visible = False:Image3.Visible = False:Image4.Visible = False:Image5.Visible = False
If i = 1 Then
Image1.Visible = True
ElseIf i = 2 Then
Image2.Visible = True
ElseIf i = 3 Then
Image3.Visible = True
ElseIf i = 4 Then
Image4.Visible = True
ElseIf i = 5 Then
Image5.Visible = True
Else
Image1.Visible = True
End If
If i >= 5 Then i = 0
End Sub

让代码更简洁的方法就是5个Image组成的控件数组

Private Sub Timer1_Timer()
Static K As Integer
Dim i As Ineteger
For i = 0 To 4
If i <> K Then Image1(i).Visible = False Else Image1(i).Visible = True
Next i
K = K + 1
If K >= 4 Then i = 0
End Sub

private sub form_load() timer1.interval = 2000 timer1.enabled = true end sub private sub timer1_timer() static i as integer i = i + 1 image1.picture = loadpicture("c:\" & i & ".jpg") if i > 3 then i = 0 end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息