AudioRenderers Property (PlayCtrl)

Imports Leadtools
Imports Leadtools.MediaFoundation
Imports LeadtoolsMediaFoundationExamples.Fixtures

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 18\Media"
End Class