球球大作战api接口分享:悬赏100积分的问题!!!

来源:百度文库 编辑:高校问答 时间:2024/04/28 04:38:17
flash文件的连续播放 用vb编的程序 用列表框存放多个swf文件 点击连续播放实现多个文件的连续播放
帮帮忙
我的代码如下
帮我改也行
Private Sub mplayall_Click() '连续播放'
Dim i As Integer
For i = 0 To List1.ListCount
If List1.List(i) <> vbNullString Then
ShockwaveFlash1.Movie = List1.List(i)
ShockwaveFlash1.play
If ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames - 1 Then
ShockwaveFlash1.Movie = List1.List(i + 1)
ShockwaveFlash1.play
End If
End If
Next i
End Sub

no

你不应该在这问 错了