Přidal jsem nové tlačítko na vytvoření nového objektu a přídání do Canvas, a tím původním jsem stále schopen jeho ZIndex ovládat
Private Sub btNewItem_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles btNewItem.Click
SetMinZIndex()
SetMaxZIndex()
Dim ms As MyShape = New MyShape()
Me.mainCanvas.Children.Add(ms)
Canvas.SetZIndex(ms, maxZIndex + 1)
End Sub
Public Class MyShape
Inherits Shape
Protected Overrides ReadOnly Property DefiningGeometry As System.Windows.Media.Geometry
Get
Dim rct As Rect = New Rect(80, 70, 20, 50)
Dim ell As EllipseGeometry = New EllipseGeometry(rct)
Me.Stroke = Brushes.Black
Me.Fill = Brushes.Azure
Return ell
End Get
End Property
End Class