Protected Overrides Function ArrangeOverride(finalSize As Size) As Size
AddHandler AnnotationElement.MouseEnter, AddressOf MouseEnter
Return MyBase.ArrangeOverride(finalSize)
End Function
Private Sub MouseEnter(sender As Object, e As MouseEventArgs)
Console.WriteLine("OnMouseEnter")
'SET POSITION
Dim pt As Point = e.GetPosition(CType(MainWindow.gMain, UIElement))
MainWindow.AnnotationPopup.Placement = Primitives.PlacementMode.RelativePoint
..
MainWindow.AnnotationPopup.IsOpen = True
End Sub
Private Sub CustomEllipseAnnotation_MouseLeave(sender As Object, e As MouseEventArgs) Handles Me.MouseLeave
Console.WriteLine("CustomEllipseAnnotation_MouseLeave")
MainWindow.AnnotationPopup.sp.Children.Clear()
MainWindow.AnnotationPopup.IsOpen = False
End Sub |