Private Sub ListtvToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListtvToolStripMenuItem.Click
If ListtvToolStripMenuItem.Text = "A3" Then
AxVLCPlugin21.playlist.add("")
AxVLCPlugin21.playlist.play()
End If
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
Dim ToolStripMenuItem As String = "A3"
AxVLCPlugin21.playlist.playItem(True)
'Traitement
Dim ToolStripMenuItem1 As String = "AlgTV"
'Traitement
End Sub
Private Sub A3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A3ToolStripMenuItem.Click
Process.Start("http://51.255.81.138:8000/live/nicolasbelpaire/0r3znJHgrg/1167.ts")
If ListtvToolStripMenuItem.Text = "A3" Then
AxVLCPlugin21.playlist.add("")
AxVLCPlugin21.playlist.play()
End If
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
Dim ToolStripMenuItem As String = "A3"
AxVLCPlugin21.playlist.playItem(True)
'Traitement
Dim ToolStripMenuItem1 As String = "AlgTV"
'Traitement
End Sub
Private Sub A3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A3ToolStripMenuItem.Click
Process.Start("http://51.255.81.138:8000/live/nicolasbelpaire/0r3znJHgrg/1167.ts")