誰かがjwplayerを使用して複数のflvファイルを連続して再生したことがありますか？さらに明確にするために、私が知りたいのは、jwplayerがビデオの再生を完了したときです。これにより、次のビデオの再生を開始できます。
これまでのところ、1本の映画を再生することはできますが、次々に再生することはできません。
これまでのコード：
Imports System.IO
Imports System.Net.Sockets
Public Class Form1
Friend WithEvents AxShockwaveFlash1 As New AxShockwaveFlashObjects.AxShockwaveFlash
Dim PlayingFlash As Boolean = False
Dim PlaylistHidden As Boolean = False
Dim SettingUseJwPlayer3_16 As Boolean = True
Sub OpenFLV(ByVal strFile As String, ByVal AxShockWaveFlash As AxShockwaveFlashObjects.AxShockwaveFlash)
Dim strPath As String
Dim PlayerPath As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\player.swf"
If File.Exists(PlayerPath) Then File.Delete(PlayerPath)
File.WriteAllBytes(PlayerPath, My.Resources.player)
strPath = "file:///" & PlayerPath & "?file="
strPath = strPath & strFile
strPath = Replace(strPath, "\", "/")
With AxShockWaveFlash
.Stop()
.Visible = True
.Menu = False
.FlashVars = "&showstop=true&showdownload=false&height=" & AxShockWaveFlash.Height.ToString & "&width=" & AxShockWaveFlash.Width.ToString & "&showplay=true&autoscroll=false&autostart=true&overstretch=true&showicons=1&searchbar=false&controlbar=0"
.LoadMovie(0, strPath)
.Play()
End With
PlayingFlash = True
End Sub
Sub PlayJwPlayer3_16(ByVal Vid As String)
If Not AxShockwaveFlash1.IsDisposed Then AxShockwaveFlash1.Dispose()
AxShockwaveFlash1 = New AxShockwaveFlashObjects.AxShockwaveFlash
AxShockwaveFlash1.BeginInit()
AxShockwaveFlash1.Name = "AxShockwaveFlash1"
AxShockwaveFlash1.EndInit()
Me.Controls.Add(AxShockwaveFlash1)
AxShockwaveFlash1.Visible = True
AxShockwaveFlash1.Location = Panel1.Location
AxShockwaveFlash1.BringToFront()
PlayingFlash = True
Panel1.Visible = False
OpenFLV(Vid, AxShockwaveFlash1)
End Sub
Private Sub Play_Click(sender As Object, e As EventArgs) Handles Play.Click
PlayJwPlayer3_16("https://dp-geography.wikispaces.com/file/view/World+Cup+in+South+Africa+-+%28IB+Geography+Study+Sports%2C+Leisure+%26amp%3B+Tourism+%29.flv")
End Sub
End Class