Imports MediaPortal.Player
Public Class cEvent
Private playlistPlayer As MediaPortal.Playlists.PlayListPlayer
Public Sub OnPlayBackStarted(ByVal type As MediaPortal.Player.g_Player.MediaType, ByVal filename As String)
MsgBox("Event")
End Sub
Public Sub New()
playlistPlayer = MediaPortal.Playlists.PlayListPlayer.SingletonPlayer
AddHandler (g_Player.PlayBackStarted), AddressOf OnPlayBackStarted
End Sub
End Class