如何使用VB实现照片的自动播放

用Timer控件切换Image控件里的图片就OK了

假设添加Timer1,暂停和开始按钮这么写

Timer1.Enabled = Not Timer1.Enabled

先说明，我用的不是VB2005，但我觉得

思路、代码上大致是一样的。

界面上

放一个

Timer控件(Timer1)、PictureBox控件(Picture1)

’---然后就下面代码放进去

Private

Sub

Form_Load()

Timer1.Interval

=

500

End

Sub

Private

Sub

Timer1_Timer()

Static

i

As

Integer

i

=

i

+

1

Select

Case

i

Case

1

Picture1.Picture

=

LoadPicture("D:\1.jpg")

Case

2

Picture1.Picture

=

LoadPicture("D:\2.jpg")

Case

3

Picture1.Picture

=

LoadPicture("D:\3.jpg")

i

=

0

End

Select

End

Sub

---