ColorAnimation

Windows Presentation Foundation Station

ColorAnimation

Color型の値を、指定された時間(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="ColorAnimation" Height="150" Width="400" Background="Black"> <Grid> <TextBlock VerticalAlignment="Center" HorizontalAlignment="Center" FontSize="20" FontWeight="Bold"> <TextBlock.Foreground> <SolidColorBrush x:Name="mySolidColorBrush" Color="White" /> </TextBlock.Foreground> eXtensible Application Markup Language </TextBlock> </Grid> <Window.Triggers> <EventTrigger RoutedEvent="Window.Loaded"> <BeginStoryboard> <Storyboard> <ColorAnimation Storyboard.TargetName="mySolidColorBrush" Storyboard.TargetProperty="Color" From="Black" To="White" Duration="0:0:1" AutoReverse = "True" RepeatBehavior = "Forever" /> </Storyboard> </BeginStoryboard> </EventTrigger> </Window.Triggers> </Window>

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

サンプルの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="ColorAnimation" Height="150" Width="400" > <Grid Background="Black"> <TextBlock VerticalAlignment="Center" HorizontalAlignment="Center" FontSize="20" FontWeight="Bold"> <TextBlock.Foreground> <SolidColorBrush x:Name="mySolidColorBrush" Color="White" /> </TextBlock.Foreground> eXtensible Application Markup Language </TextBlock> </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 myColorAnimation As New ColorAnimation() With myColorAnimation .From = Colors.Black .To = Colors.White .Duration = New Duration(TimeSpan.FromSeconds(1)) .AutoReverse = True .RepeatBehavior = RepeatBehavior.Forever End With mySolidColorBrush.BeginAnimation( _ SolidColorBrush.ColorProperty, _ myColorAnimation) End Sub End Class

コメント bookmark

お名前: