Public Class Form1 Dim Paused As Boolean = False Dim Started As Boolean = False Dim PlayedSecond As Boolean = True Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click PlayedSecond = False AxVLCPlugin21.playlist.items.clear() AxVLCPlugin21.playlist.add("https://vula.uct.ac.za/access/content/group/fe879ca4-927a-4fca-9cc9-33b12c348b37/vids/Lessig-ItIsAboutTimeGettingOurValuesAroundCopyright522.flv") AxVLCPlugin21.playlist.play() Started = True End Sub Sub playsecond() AxVLCPlugin21.playlist.items.clear() AxVLCPlugin21.playlist.add("http://lsta2011.wikispaces.com/file/view/Rogue%20Waves.mp4") AxVLCPlugin21.playlist.play() PlayedSecond = True Started = False End Sub Private Sub AxVLCPlugin21_pause(sender As Object, e As EventArgs) Handles AxVLCPlugin21.pause Paused = True End Sub Private Sub IsFinished_Tick(sender As Object, e As EventArgs) Handles IsFinished.Tick If Not AxVLCPlugin21.playlist.isPlaying And Paused = False And Started = True And PlayedSecond = False Then playsecond() Started = True End If End Sub Private Sub AxVLCPlugin21_play(sender As Object, e As EventArgs) Handles AxVLCPlugin21.play Paused = False End Sub End Class
AxVLCPlugin21.shuttle(seconds)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)