Question

VB 变换图片

没秒钟变换一张图片应该怎么设置
在图片控件或者按钮都可以

Answer 1

一个TIMER,一个PICTUREBOX.

Private Sub Form_Load()
Timer1.Interval = 1000
Dir "C:\....\*.jpg" '放有JPG图片的文件夹地址
End Sub

Private Sub Timer1_Timer()
On Error GoTo err
err: If err.Number <> 0 Then Dir "C:\....\*.jpg"
Picture1.Picture = LoadPicture("C:\....\" & Dir())
End Sub