MidiRenderers Property

'Declaration
 
Public ReadOnly Property MidiRenderers As MidiRenderers

Public _result As Boolean = False
      Public _form As PlayCtrlForm = New PlayCtrlForm()
      Public _playctrl As PlayCtrl
      Public _pcsbform As TestCtrlSubForm
      Public Sub RenderersExample()
         ' reference the play control
         _playctrl = _form.PlayCtrl

         ' input file
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_SourceVideoOnly.avi")

         Try
            ' create the sub form for renderers listbox
            _pcsbform = New TestCtrlSubForm()

            AddHandler _pcsbform.Load, AddressOf Form_Load
            AddHandler _pcsbform.buttonRefresh.Click, AddressOf Refresh_Click
            AddHandler _pcsbform.List.Click, AddressOf List_Click

            ' set autostart to false
            _playctrl.AutoStart = False

            ' set our source media file
            _playctrl.SourceFile = inFile

            ' show the renderers form
            _pcsbform.ShowDialog()

            ' get the selected renderer index
            Dim selectedRenderer As Integer = _playctrl.AudioRenderers.Selection

            ' set the result to what we expect 
            _result = (Not _pcsbform.List.SelectedItem Is Nothing AndAlso _playctrl.AudioRenderers.Selection <> -1)
         Catch e1 As Exception
            _result = False
         End Try
      End Sub

      Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs)
         '  build the audio renderer list
         EnumerateRenderers(_playctrl.AudioRenderers, _pcsbform.List)
      End Sub

      Private Sub List_Click(ByVal sender As Object, ByVal e As EventArgs)
         '  select the audio renderer
         SelectRenderer(_playctrl.AudioRenderers, _pcsbform.List)
      End Sub

      Private Sub Refresh_Click(ByVal sender As Object, ByVal e As EventArgs)
         '  refresh audio renderers
         RefreshRenderers(_playctrl.AudioRenderers, _pcsbform.List)
      End Sub

      Private Sub EnumerateRenderers(ByVal Renderers As AudioRenderers, ByVal List As ListBox)
         '  Build the renderers list box
         Dim Selected As Integer = -1

         ' empty the list box
         List.Items.Clear()

         ' add the available audio renderers to the list box
         Dim i As Integer = 0
         Do While (i <= (Renderers.Count - 1))
            List.Items.Add(Renderers(i))
            If Renderers(i).Selected Then
               Selected = i
            End If
            i += 1
         Loop
         '  highlight the current selection
         List.SelectedIndex = Selected
      End Sub

      Private Sub RefreshRenderers(ByVal Renderers As AudioRenderers, ByVal List As ListBox)
         Dim SelectedName As String = String.Empty

         '  save the currently selected renderer's name
         If Renderers.Selection >= 0 Then
            SelectedName = Renderers(Renderers.Selection).FriendlyName
         End If

         '  refresh the renderer collection
         Renderers.Reset()

         '  if there was a previously selected renderer, reselect it
         If SelectedName <> String.Empty Then
            Renderers.Selection = Renderers.IndexOf(SelectedName)
         End If

         '  rebuild the listbox
         EnumerateRenderers(Renderers, List)
      End Sub

      Private Sub SelectRenderer(ByVal Renderers As AudioRenderers, ByVal List As ListBox)
         '  select the highlighted renderer
         Renderers.Selection = Renderers.IndexOf(TryCast(List.Items(List.SelectedIndex), Renderer))
      End Sub

Public NotInheritable Class LEAD_VARS
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 175\Media";
End Class