WPF中的代码旋转图像的问题

Question

我有一种情况，我想在鼠标左键按下事件时旋转WPF窗体上的控件。我试图修改我在其他地方找到的代码，但是我不太满意。

这是我有：

XAML：

  <Image 
       Name="UpArrow" 
       Height="50" 
       Width="50" 
       RenderOptions.BitmapScalingMode="HighQuality" 
       VerticalAlignment="Top" 
       HorizontalAlignment="Left" 
       Margin="10,70,0,0"> 
       <Image.Source> 
        <TransformedBitmap Source="C:\Some Source File.jpg" > 
         <TransformedBitmap.Transform> 
          <RotateTransform Angle="180"/> 
         </TransformedBitmap.Transform> 
        </TransformedBitmap> 
       </Image.Source> 
      </Image> 

而且在后面的我的代码：

Private Sub UpArrow_MouseLeftButtonDown(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles UpArrow.MouseLeftButtonDown 
    Dim TransBitmap As TransformedBitmap = Me.UpArrow.Source 
    Dim Trans As RotateTransform = TransBitmap.Transform 
    Dim anim As New Animation.DoubleAnimation(0, New Duration(TimeSpan.FromSeconds(1))) 
    Trans.BeginAnimation(RotateTransform.AngleProperty, anim) 
End Sub 

我不断尝试一些不同的东西，但似乎没有任何工作。我可以很好地阅读C＃代码，因此，如果您可以很轻松地回复它，那就去做吧，我们只是在这里使用VB。我也完全可以在XAML中完成这一切，但我似乎也无法使其工作。

谢谢！

Answer 1

我认为这个问题是刚才说的对象你要动画(transformed bitmap)不能动画：

TransformedBitmap实现ISupportInitialize接口界面对多个属性优化初始化。属性更改只能在对象初始化期间发生。调用BeginInit指示初始化已经开始，EndInit指示初始化已完成。初始化后，属性更改将被忽略。

相同的代码工作，如果你的目标图像本身上的RenderTransform：

<Image 
    Name="UpArrow" 
    Height="50" 
    Width="50" 
    MouseLeftButtonDown="UpArrow_MouseLeftButtonDown" 
    RenderOptions.BitmapScalingMode="HighQuality" 
    VerticalAlignment="Top" 
    HorizontalAlignment="Left" 
    Margin="10,70,0,0"> 
    <Image.RenderTransform> 
     <RotateTransform Angle="180"/> 
    </Image.RenderTransform> 
    <Image.Source> 
     <TransformedBitmap Source="Images/1.png" /> 
    </Image.Source> 
</Image> 

和：

Private Sub UpArrow_MouseLeftButtonDown(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles UpArrow.MouseLeftButtonDown 
    Dim Trans As RotateTransform = Me.UpArrow.RenderTransform 
    Dim anim As New Animation.DoubleAnimation(0, New Duration(TimeSpan.FromSeconds(1))) 
    Trans.BeginAnimation(RotateTransform.AngleProperty, anim) 
End Sub