图片为jpg,命名规则为: a加数字顺排列(如: a1.jpg a2.jpg)
由于程序是作为某企业作产品循环展播,所以图片在以后要不断添加.试过多种方法都报错,后来就用报错开始循环.
如下:
Private Sub Timer1_Timer()
Select Case Combo1.Text
Case "慢"
Timer1.Interval = 6500
Case "中"
Timer1.Interval = 3000
Case "快"
Timer1.Interval = 1000
End Select
On Error GoTo 10
5
i = i + 1
Picture = LoadPicture(App.Path & "\a" & i & ".jpg")
GoTo 20
10
i = 0
GoTo 5
20
End Sub
请问:怎样播放图片最好?
由于程序是作为某企业作产品循环展播,所以图片在以后要不断添加.试过多种方法都报错,后来就用报错开始循环.
如下:
Private Sub Timer1_Timer()
Select Case Combo1.Text
Case "慢"
Timer1.Interval = 6500
Case "中"
Timer1.Interval = 3000
Case "快"
Timer1.Interval = 1000
End Select
On Error GoTo 10
5
i = i + 1
Picture = LoadPicture(App.Path & "\a" & i & ".jpg")
GoTo 20
10
i = 0
GoTo 5
20
End Sub
请问:怎样播放图片最好?