Question

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

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

Answer 1

'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

Answer 2

没分