拡大画像をマウスカーソルの下に表示したい

Question

前提・実現したいこと

ネットで拾ってきたleap motionのプログラムを書き換えてマウスカーソルの下に拡大画像が来るようにしたいと考えています
https://thinkit.co.jp/story/2013/11/11/4674?nopaging=1
どなたか知恵を貸してください

発生している問題・エラーメッセージ

ソースイメージのマウスカーソル座標に，対応したズームイメージの座標の画像（円形）を表示させたいのですが，どうしてもうまくいきません

該当のソースコード

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="1080" Width="1920" WindowState="Maximized">
    <Canvas Margin="0,0,0,0" HorizontalAlignment="Stretch" VerticalAlignment="Stretch" Width="1920"  Height="1080">
        <Image x:Name="sourceImage" HorizontalAlignment="Stretch" Height="1080" VerticalAlignment="Stretch"  Width="1920" Canvas.Top="0" Source="Image/S__82993161.jpg" Canvas.Left="0"/>
        <Image x:Name="zoomImage" Stretch="Uniform" HorizontalAlignment="Stretch" VerticalAlignment="Stretch" Width="1900" Height="1085" Source="Image/S__82993161.jpg" Canvas.Left="10" Canvas.Top="-15">
            <Image.RenderTransform>
                <ScaleTransform   ScaleX="3" ScaleY="3"/>
            </Image.RenderTransform>
            <Image.Clip>
                <EllipseGeometry x:Name="Lens" RadiusX="30" RadiusY="30"  Center="0.0,0.0">
                    <EllipseGeometry.Transform>
                        <TransformGroup>
                            <ScaleTransform ScaleX="1" ScaleY="1"/>
                            <SkewTransform />
                            <RotateTransform/>
                            <TranslateTransform/>
                        </TransformGroup>
                    </EllipseGeometry.Transform>
                </EllipseGeometry>
            </Image.Clip>
        </Image>
        <InkPresenter Name="paintCanvas"/>
    </Canvas>
</Window>

Imports Leap
Imports System.Windows.Ink
Imports System
Imports System.Windows
Imports System.Windows.Input
Imports System.Windows.Media.Imaging
Imports System.Windows.Interop






Class MainWindow
    Private Declare Function SetCursorPos Lib "user32" (x As Integer, y As Integer) As Boolean
    Private Declare Function apimouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) As Boolean
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Const MOUSEEVENTF_MOVE = &H1
    Private leap As New Controller
    Private touchIndicator As New DrawingAttributes
    Private touchPoint As StylusPoint
    Private tx As Double
    Private ty As Double
    Private x As Integer
    Private y As Integer
    Private ImageX As Double
    Private ImageY As Double
    'Private Index As Integer
    Private windowWidth As Double = 1920
    Private windowHeight As Double = 1080

    'Private no As Integer
    Private FingersCount As Integer




    Private Sub sourceImage_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs) Handles sourceImage.MouseLeftButtonDown
        zoomImage.Visibility = Windows.Visibility.Visible
        ImageX = e.GetPosition(sourceImage).X
        ImageY = e.GetPosition(sourceImage).Y
        LensPosition(ImageX, ImageY)
    End Sub

    Private Sub sourceImage_MouseMove(sender As Object, e As MouseEventArgs) Handles sourceImage.MouseMove
        ImageX = e.GetPosition(sourceImage).X
        ImageY = e.GetPosition(sourceImage).Y
        Console.WriteLine(ImageX, ImageY)
        LensPosition(ImageX, ImageY)
    End Sub

    Private Sub sourceImage_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs) Handles sourceImage.MouseLeftButtonUp
        zoomImage.Visibility = Windows.Visibility.Collapsed
    End Sub



    Private Sub LensPosition(x As Double, y As Double)
        Lens.Center = New Point(ImageX, ImageY)

    End Sub


End Class

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

まずマウスイベントの邪魔になるので、zoomImageにIsHitTestVisible="False"を付けます。

Private Sub LensPosition(x As Double, y As Double)
    Lens.Center = New Point(ImageX, ImageY)
    zoomImage.SetValue(Canvas.LeftProperty, ImageX - (ImageX * 3))
    zoomImage.SetValue(Canvas.TopProperty, ImageY - (ImageY * 3))
End Sub

でマウス下に丸が来ました。

zoomImageにTranslateTransformを付けて、zoomImageTranslateTransform.X = ImageX - (ImageX * 3)でもいいと思います（特に差は感じませんでした）

Comments

[rarar]

上手くいきました！
ありがとうございます！