Working z-index change

Author: ShortDevelopment

VBAudioRouter/Controls/NodeControl.xaml

@@ -13,7 +13,7 @@
 
     <StackPanel Background="#3F3F3F" CornerRadius="5" BorderThickness="1" BorderBrush="#efefef">
         <Grid Background="{x:Bind TitleBrush}" Padding="10,4,10,4"
-                ManipulationMode="TranslateX, TranslateY" ManipulationDelta="UserControl_ManipulationDelta"
+                ManipulationMode="TranslateX, TranslateY" ManipulationDelta="UserControl_ManipulationDelta" ManipulationStarted="Grid_ManipulationStarted"
                 Tapped="Grid_Tapped">
             <TextBlock Text="{x:Bind Title}" FontSize="10" Foreground="White" />
         </Grid>

VBAudioRouter/Controls/NodeControl.xaml.vb

@@ -64,11 +64,16 @@ Namespace Controls
         End Sub
 
         Private Sub Grid_Tapped(sender As Object, e As TappedRoutedEventArgs)
+            Me.BringToFront()
             If Window.Current.CoreWindow.GetKeyState(Windows.System.VirtualKey.Control).HasFlag(CoreVirtualKeyStates.Down) Then
                 If NodeContent.GetType() = GetType(OutputNodeControl) Then Exit Sub
                 ConnectionHelper.DisposeNode(Me)
             End If
         End Sub
+
+        Private Sub Grid_ManipulationStarted(sender As Object, e As ManipulationStartedRoutedEventArgs)
+            Me.BringToFront()
+        End Sub
     End Class
 
 End Namespace

VBAudioRouter/Utils/Extensions.vb

@@ -29,6 +29,35 @@ Namespace Utils
         Public Function FindNameRecursive(ByRef ele As FrameworkElement, name As String) As FrameworkElement
             Return FindNameRecursive(Of FrameworkElement)(ele, name)
         End Function
+
+        ''' <summary>
+        ''' https://stackoverflow.com/a/24120993/15213858
+        ''' </summary>
+        ''' <param name="this"></param>
+        <Extension>
+        Public Sub BringToFront(ByRef this As FrameworkElement)
+            Try
+                Dim parent As Panel = this.Parent
+                Dim currentIndex As Integer = Canvas.GetZIndex(this)
+                Dim zIndex As Integer = 0
+                Dim maxZ As Integer = 0
+                Dim child As FrameworkElement
+
+                For i As Integer = 0 To parent.Children.Count - 1
+                    If TypeOf parent.Children(i) Is UserControl AndAlso parent.Children(i) IsNot this Then
+                        child = TryCast(parent.Children(i), UserControl)
+                        zIndex = Canvas.GetZIndex(child)
+                        maxZ = Math.Max(maxZ, zIndex)
+
+                        If zIndex >= currentIndex Then
+                            Canvas.SetZIndex(child, zIndex - 1)
+                        End If
+                    End If
+                Next
+
+                Canvas.SetZIndex(this, maxZ)
+            Catch : End Try
+        End Sub
     End Module
 
     Public Class ColorTranslator