RectAnimation

Windows Presentation Foundation Station

RectAnimation

Rect型の値を、指定された時間(Duration)に沿って、開始値(From)から終了値(To)(By)までの値に変化させます。
ここでのサンプルは以下のような、図形のサイズをアニメーションさせるというものです。

サンプルのXAMLコード bookmark

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Title="RectAnimation" Width="170" Height="200" Background="Black"> <Grid> <Path Fill="Blue" Stroke="Red" StrokeThickness="1"> <Path.Data> <RectangleGeometry x:Name="myRectangleGeometry" /> </Path.Data> </Path> </Grid> <Window.Triggers> <EventTrigger RoutedEvent="Window.Loaded"> <BeginStoryboard> <Storyboard> <RectAnimation Storyboard.TargetName="myRectangleGeometry" Storyboard.TargetProperty="Rect" From="80,80,0,0" To="30,30,100,100" Duration="0:0:1" AutoReverse = "True" RepeatBehavior = "Forever" /> </Storyboard> </BeginStoryboard> </EventTrigger> </Window.Triggers> </Window>

ここで重要なのが、RectAnimationのTargetName?とTargetProperty?がそれぞれ、ターゲットの名前、ターゲットのプロパティ
を指定しています。すなわち、RectAnimationのFromからToのアニメーション値が、RectangleGeometry?.Rectにセットされると言う事です。

サンプルのXAML & VBコード bookmark

上記のようにXAMLだけでも実行させる事は可能ですが、アニメーション部分だけをVBで実装する方法は以下のようになります。

• XAMLコード <Window x:Class="Window1" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Title="RectAnimation" Width="170" Height="200" Background="Black"> <Grid> <Path Fill="Blue" Stroke="Red" StrokeThickness="1"> <Path.Data> <RectangleGeometry x:Name="myRectangleGeometry" /> </Path.Data> </Path> </Grid> </Window>

• VBコード Imports System.Windows.Media.Animation Partial Public Class Window1 Inherits Window Public Sub New() InitializeComponent() End Sub Private Sub Window1_Loaded(ByVal sender As Object, _ ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded Dim myRectAnimation As New RectAnimation With myRectAnimation .From = New Rect(80, 80, 0, 0) .To = New Rect(30, 30, 100, 100) .Duration = New Duration(TimeSpan.FromSeconds(1)) .AutoReverse = True .RepeatBehavior = RepeatBehavior.Forever End With Me.myRectangleGeometry.BeginAnimation( _ RectangleGeometry.RectProperty, myRectAnimation) End Sub End Class

コメント bookmark

お名前: