Added close confirm dialog

Author: ShortDevelopment

VBAudioRouter/App.xaml.vb

@@ -1,10 +1,12 @@
 Imports VBAudioRouter.Utils
 Imports Windows.UI
+Imports Windows.UI.Core.Preview
 
 NotInheritable Class App
     Inherits Application
 
     Protected Overrides Sub OnLaunched(e As Windows.ApplicationModel.Activation.LaunchActivatedEventArgs)
+#Region "TitleBar"
         Dim titlebar = ApplicationView.GetForCurrentView().TitleBar
         Dim themeColor = ColorTranslator.FromHex("#E87D0D")
         Dim darkThemeColor = ColorTranslator.FromHex("#232323")
@@ -16,7 +18,22 @@ NotInheritable Class App
         titlebar.InactiveForegroundColor = Colors.LightGray
         titlebar.InactiveBackgroundColor = darkThemeColor
         titlebar.ButtonInactiveBackgroundColor = darkThemeColor
+#End Region
 
+#Region "Close confirm"
+        AddHandler SystemNavigationManagerPreview.GetForCurrentView().CloseRequested, Async Sub(sender As Object, ev As SystemNavigationCloseRequestedPreviewEventArgs)
+                                                                                          Dim deferral As Deferral = ev.GetDeferral()
+                                                                                          Try
+                                                                                              Dim dialog As New CloseConfirmDialog()
+                                                                                              dialog.RequestedTheme = ElementTheme.Dark
+                                                                                              ev.Handled = (Await dialog.ShowAsync()) = ContentDialogResult.Secondary
+                                                                                          Finally
+                                                                                              deferral.Complete()
+                                                                                          End Try
+                                                                                      End Sub
+#End Region
+
+#Region "Launching app"
         Dim rootFrame As Frame = TryCast(Window.Current.Content, Frame)
         If rootFrame Is Nothing Then
             rootFrame = New Frame()
@@ -36,6 +53,7 @@ NotInheritable Class App
 
             Window.Current.Activate()
         End If
+#End Region
     End Sub
 
     Private Sub OnNavigationFailed(sender As Object, e As NavigationFailedEventArgs)

VBAudioRouter/Dialogs/CloseConfirmDialog.xaml

@@ -0,0 +1,21 @@
+<ContentDialog
+    x:Class="VBAudioRouter.CloseConfirmDialog"
+    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="Closing"
+    PrimaryButtonText="Yes"
+    SecondaryButtonText="No"
+    PrimaryButtonClick="ContentDialog_PrimaryButtonClick"
+    SecondaryButtonClick="ContentDialog_SecondaryButtonClick">
+
+    <StackPanel>
+        <TextBlock>
+            Do you really want to close the application?!
+            <LineBreak />Closing the application might end in a lose of data!
+        </TextBlock>
+    </StackPanel>
+</ContentDialog>

VBAudioRouter/Dialogs/CloseConfirmDialog.xaml.vb

@@ -0,0 +1,13 @@
+' The Content Dialog item template is documented at https://go.microsoft.com/fwlink/?LinkId=234238
+
+Public NotInheritable Class CloseConfirmDialog
+    Inherits ContentDialog
+
+    Private Sub ContentDialog_PrimaryButtonClick(sender As ContentDialog, args As ContentDialogButtonClickEventArgs)
+
+    End Sub
+
+    Private Sub ContentDialog_SecondaryButtonClick(sender As ContentDialog, args As ContentDialogButtonClickEventArgs)
+
+    End Sub
+End Class

VBAudioRouter/Package.appxmanifest

@@ -53,6 +53,7 @@
 
 	<Capabilities>
 		<rescap:Capability Name="extendedExecutionBackgroundAudio"/>
+		<rescap:Capability Name="confirmAppClose"/>
 		<uap3:Capability Name="backgroundMediaPlayback"/>
 		<Capability Name="internetClient" />
 		<DeviceCapability Name="microphone"/>

VBAudioRouter/VBAudioRouter.vbproj

@@ -156,6 +156,9 @@
     <Compile Include="Controls\TextToSpeechInputNodeControl.xaml.vb">
       <DependentUpon>TextToSpeechInputNodeControl.xaml</DependentUpon>
     </Compile>
+    <Compile Include="Dialogs\CloseConfirmDialog.xaml.vb">
+      <DependentUpon>CloseConfirmDialog.xaml</DependentUpon>
+    </Compile>
     <Compile Include="Dialogs\ErrorDialog.xaml.vb">
       <DependentUpon>ErrorDialog.xaml</DependentUpon>
     </Compile>
@@ -302,6 +305,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="Dialogs\CloseConfirmDialog.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="Dialogs\ErrorDialog.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>