Let the user select an output device

Author: ShortDevelopment

VBAudioRouter/Dialogs/OutputDeviceSelectDialog.xaml

@@ -0,0 +1,17 @@
+<ContentDialog
+    x:Class="VBAudioRouter.Dialogs.OutputDeviceSelectDialog"
+    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+    xmlns:local="using:VBAudioRouter"
+    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
+    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
+    mc:Ignorable="d"
+    Title="Output Device"
+    PrimaryButtonText="OK"
+    PrimaryButtonClick="ContentDialog_PrimaryButtonClick"
+    RequestedTheme="Dark">
+
+    <Grid>
+        <ComboBox HorizontalAlignment="Stretch" x:Name="OutputDevicesComboBox" PlaceholderText="Output Device" />
+    </Grid>
+</ContentDialog>

VBAudioRouter/Dialogs/OutputDeviceSelectDialog.xaml.vb

@@ -0,0 +1,34 @@
+Imports Windows.Devices.Enumeration
+Imports Windows.Media.Devices
+
+Namespace Dialogs
+
+    Public NotInheritable Class OutputDeviceSelectDialog
+        Inherits ContentDialog
+
+        Private Property AudioRenderDevices As DeviceInformationCollection
+        Private Async Sub OutputDeviceSelectDialog_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+            If DesignMode.DesignModeEnabled Or DesignMode.DesignMode2Enabled Then Exit Sub
+            AudioRenderDevices = Await DeviceInformation.FindAllAsync(MediaDevice.GetAudioRenderSelector())
+            OutputDevicesComboBox.ItemsSource = AudioRenderDevices.Select(Function(device) device.Name).ToList()
+
+            For i As Integer = 0 To AudioRenderDevices.Count - 1
+                If AudioRenderDevices.Item(i).IsDefault Then
+                    OutputDevicesComboBox.SelectedIndex = i
+                    Exit For
+                End If
+            Next
+        End Sub
+
+        Public Property SelectedRenderDevice As DeviceInformation
+
+        Private Sub ContentDialog_PrimaryButtonClick(sender As ContentDialog, args As ContentDialogButtonClickEventArgs)
+            If OutputDevicesComboBox.SelectedIndex < 0 Then Exit Sub
+            SelectedRenderDevice = AudioRenderDevices(OutputDevicesComboBox.SelectedIndex)
+        End Sub
+
+
+    End Class
+
+
+End Namespace

VBAudioRouter/MainPage.xaml.vb

@@ -2,6 +2,7 @@
 Imports VBAudioRouter.AudioGraphControl
 Imports VBAudioRouter.Controls
 Imports Windows.ApplicationModel.ExtendedExecution.Foreground
+Imports Windows.Devices.Enumeration
 Imports Windows.Media.Audio
 Imports Windows.System
 Imports Windows.UI
@@ -10,7 +11,10 @@ Public NotInheritable Class MainPage
     Inherits Page
 
     Private Async Sub MainPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
-        Await InitAudioGraphAsync(CreateGraphSettings())
+        Dim dialog As New Dialogs.OutputDeviceSelectDialog()
+        Await dialog.ShowAsync()
+
+        Await InitAudioGraphAsync(CreateGraphSettings(dialog.SelectedRenderDevice))
         Await EnableBackgroundAudioAsync()
 
         Await DefaultOutputNode.Initialize(CurrentAudioGraph)
@@ -20,14 +24,14 @@ Public NotInheritable Class MainPage
     Public ReadOnly Property CurrentAudioGraph As AudioGraph = Nothing
 
     Private Function CreateGraphSettings() As AudioGraphSettings
+        Return CreateGraphSettings(Nothing)
+    End Function
+    Private Function CreateGraphSettings(renderDevice As DeviceInformation) As AudioGraphSettings
         Dim settings As New AudioGraphSettings(Windows.Media.Render.AudioRenderCategory.Media)
+
+        If renderDevice IsNot Nothing Then settings.PrimaryRenderDevice = renderDevice
+
         settings.QuantumSizeSelectionMode = QuantumSizeSelectionMode.LowestLatency
-        'settings.EncodingProperties = New AudioEncodingProperties()
-        'settings.EncodingProperties.Subtype = "Float"
-        'settings.EncodingProperties.SampleRate = 48000
-        'settings.EncodingProperties.ChannelCount = 2
-        'settings.EncodingProperties.BitsPerSample = 32
-        'settings.EncodingProperties.Bitrate = 3072000
         Return settings
     End Function
 

VBAudioRouter/VBAudioRouter.vbproj

@@ -162,6 +162,9 @@
     <Compile Include="Dialogs\ErrorDialog.xaml.vb">
       <DependentUpon>ErrorDialog.xaml</DependentUpon>
     </Compile>
+    <Compile Include="Dialogs\OutputDeviceSelectDialog.xaml.vb">
+      <DependentUpon>OutputDeviceSelectDialog.xaml</DependentUpon>
+    </Compile>
     <Compile Include="Utils\ElementWrapper.vb" />
     <Compile Include="Utils\MediaTransportControlsWrapper.vb" />
     <Compile Include="Controls\ReverbNodeControl.xaml.vb">
@@ -313,6 +316,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="Dialogs\OutputDeviceSelectDialog.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="MainPage.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>