下面是我编写的一段Timer的事件过程
在这个过程中必须用Static定义静态变量 i ,如果将其用Dim定义为动态变量,虽然程序整体没有错误,但是达不到预期的效果了.
Private Sub Timer1_Timer()
Static i As Integer
If i = 8 Then
i = 1
End If
i = i + 1
'执行imgbrid图片框水平向右移动
ImgBrid.Left = ImgBrid.Left + 60
If ImgBrid.Left > Me.ScaleWidth Then
ImgBrid.Left = Me.ScaleLeft - ImgBrid.Width
End If
Select Case i
Case 1
ImgBrid.Picture = ImgBrids(0).Picture
Case 2
ImgBrid.Picture = ImgBrids(1).Picture
Case 3
ImgBrid.Picture = ImgBrids(2).Picture
Case 4
ImgBrid.Picture = ImgBrids(3).Picture
Case 5
ImgBrid.Picture = ImgBrids(4).Picture
Case 6
ImgBrid.Picture = ImgBrids(5).Picture
Case 7
ImgBrid.Picture = ImgBrids(6).Picture
Case 8
ImgBrid.Picture = ImgBrids(7).Picture
End Select
End Sub