仙游盛辉物流电话号码:flash停止时什么事件发生我在vb中想实现flash连续播放不同的文件,一个文件播放完后播放另一个文件

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/24 20:18:56
有人会帮我看看对不对我的代码:
Private Sub playall_Click() '连续播放
MyShockwaveFlash.Loop = False
Dim i As Integer
For i = 0 To List1.ListCount
If List1.List(i) <> vbNullString Then
MyShockwaveFlash.Movie = List1.List(i)
Print List1.List(i)
If MyShockwaveFlash.FrameNum = MyShockwaveFlash.TotalFrames - 1 Then
MyShockwaveFlash.Movie = List1.List(i + 1)
End If
End If
Next i
End Sub

不对,应该把For i = 0 To List1.ListCount
If List1.List(i) <> vbNullString Then
MyShockwaveFlash.Movie = List1.List(i)
改成

For i = 0 To List1.ListCount

MyShockwaveFlash.Movie = List1.List(i) 这样就可以了