时间控件问题

Question

要求在界面上使用一个定时器和一个按钮控件"演示"，用户点演示按钮，每隔2秒钟，
演示不同产品的图片信息，请问该怎么做？

Answer 1

Option ExplicitConst lngPictureCount As Long = 5
Dim lngPictureIndex As Long
Private Sub Command1_Click()
  Timer1.Interval = 2000
  Timer1.Enabled = True
End SubPrivate Sub Form_Load()
  lngPictureIndex = 1
End SubPrivate Sub Timer1_Timer()
  If lngpicture <= lngPictureCount Then
    lngPictureIndex = lngPictureIndex + 1
    Picture1.Picture = LoadPicture(App.Path & "\pic" & CStr(lngPictureIndex) & ".bmp")
  End If
End Sub

Answer 2

Option ExplicitConst lngPictureCount As Long = 5
Dim lngPictureIndex As Long
Private Sub Command1_Click()
  Timer1.Interval = 2000
  Timer1.Enabled = True
End SubPrivate Sub Form_Load()
  lngPictureIndex = 1
End SubPrivate Sub Timer1_Timer()
  If lngpicture <= lngPictureCount Then
    Picture1.Picture = LoadPicture(App.Path & "\pic" & CStr(lngPictureIndex) & ".bmp")
    lngPictureIndex = lngPictureIndex + 1
  End If
End Sub