Timer事件过程中的一个问题

 

下面是我编写的一段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