菜鸟请教"Timer"控件演示图片问题

Question

使用一个定时器控件(Timer控件),每隔2秒钟顺序演示4张不同的图片。
要求：使用 VB 控件Timer 
谢谢回复。

Answer 1

将TIMER的触发时间设为2000，单位是毫秒，然后在TIMER的事件中使用LOADPICTURE来加载不同的图片。

Answer 2

如果 timer1.interval=2000的话
它只是在第2000毫秒的时候只触发一次
也就是说只加载一张图片，
我试过了，加载的是最后一张。
给出点详细的代码好吗？

Answer 3

timer1.interval=2000不是只加载一次，是每隔两秒触发一次

Answer 4

timer1.interval=2000是每隔两秒触发一次的话
我在Timer里的代码
Private Sub Timer1_Timer()
Image2.Picture = LoadPicture("pic.1")
Image2.Picture = LoadPicture("pic.2")
Image2.Picture = LoadPicture("pic.3")
Image2.Picture = LoadPicture("pic.4")
end sub
触发timer事件以后只加载了最后一张图片
我哪个地方出错了？

Answer 5

Option Explicit
Dim I As Integer
Private Sub Command1_Click()          '开始
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()          '结束
Timer1.Enabled = False
End SubPrivate Sub Form_Load()
Timer1.Enabled = False              
Timer1.Interval = 2000             '间隔2秒
I = 1                              '赋初值
End SubPrivate Sub Timer1_Timer()
Image1.Picture = LoadPicture("C:\ABC\" & I & ".jpg")
I = I + 1
If I = 4 Then              '循环
  I = 1      '
End If
End Sub

Answer 6

myhgyp 谢谢你帮我解决这个问题。