Question

我想创建一个可以用鼠标滚轮操作的缩放控件。向上滚动 - ＆gt;放大;向下滚动 - ＆gt;缩小。
此外，我希望缩放中心位于鼠标指针所在的位置。因此，人们总是可以放大鼠标光标所在的位置。

看起来很简单，但我无法上班我正在使用Grid并对其应用ScaleTransform。

当我第一次放大时，它会工作并放大该特定位置。但是，如果我将光标移动到其他位置并尝试放大一点，Grid将被偏移并且我的初始中心已关闭。

造成这种情况的原因是什么？怎么解决这个问题？

我的代码：

Class MainWindow 
Dim trans As New ScaleTransform
Dim Scale As Double = 1
Private Sub DefGrid_MouseWheel(sender As Object, e As MouseWheelEventArgs) Handles DefGrid.MouseWheel
    If e.Delta > 0 Then
        Scale = Scale + 0.1
    End If

    If e.Delta < 0 Then
        Scale = Scale - 0.1
    End If

    trans.CenterX = e.GetPosition(DefGrid).X
    trans.CenterY = e.GetPosition(DefGrid).Y

    trans.ScaleX = Scale
    trans.ScaleY = Scale

    DefGrid.RenderTransform = trans

End Sub
End Class

和xaml：

<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="350" Width="525" PreviewMouseWheel="Window_PreviewMouseWheel">
<Grid x:Name="DefGrid" HorizontalAlignment="Left" Height="291" Margin="19,10,0,0" VerticalAlignment="Top" Width="475">
    <Canvas HorizontalAlignment="Left" Height="254" Margin="137,10,0,0" VerticalAlignment="Top" Width="195">
        <Canvas.Background>
            <ImageBrush ImageSource="TestImage.jpg"/>
        </Canvas.Background>
    </Canvas>
</Grid>
</Window>

网格上有一个Canvas图像，仅供参考。

Answer 1

不幸的是，这有点复杂。如果您认为不需要滚动条，请在此处查看答案（我找不到特定于VB的示例，因此这些是C＃）： Pan & Zoom Image 如果您还需要滚动条，则需要滚动到鼠标指针。在这种情况下，你需要这样的东西： http://www.codeproject.com/Articles/97871/WPF-simple-zoom-and-drag-support-in-a-ScrollViewer

ScaleTransform应用翻译效果

1 个答案: