Animated Radius : Shape Animation « Windows Presentation Foundation « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows Presentation Foundation
3. Shape Animation

<Window x:Class="WpfApplication1.ShapesWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="ShapesWindow" Height="160" Width="400">

      <Window.Resources>
        <Style TargetType="{x:Type TextBlock}">
          <Setter Property="Background" Value="White" />
          <Setter Property="Padding" Value="10" />
          <Setter Property="BitmapEffect">
            <Setter.Value>
              <OuterGlowBitmapEffect GlowColor="White" />
            </Setter.Value>
          </Setter>
        </Style>
        <Style TargetType="{x:Type Rectangle}">
          <Setter Property="BitmapEffect">
            <Setter.Value>
              <DropShadowBitmapEffect />
            </Setter.Value>
          </Setter>
        </Style>
      </Window.Resources>
    <StackPanel>

        <Ellipse Width="200" Height="100" Stroke="Black" StrokeThickness="1" Margin="10">
          <Ellipse.Fill>
            <RadialGradientBrush x:Name="animatedRadiusExample"
              GradientOrigin="0.75,0.25">
              <GradientStop Color="#CBC8F1" Offset="0.0" />
              <GradientStop Color="MediumBlue" Offset="0.5" />
              <GradientStop Color="DarkBlue" Offset="1.0" />
            </RadialGradientBrush>
          </Ellipse.Fill>
          <Ellipse.Triggers>
            <EventTrigger RoutedEvent="Ellipse.MouseLeftButtonDown">
              <BeginStoryboard>
                <Storyboard>
                  <DoubleAnimation 
                    Storyboard.TargetName="animatedRadiusExample"
                    Storyboard.TargetProperty="RadiusX"
                    From="0" To="1" Duration="0:0:3" FillBehavior="Stop" />
                  <DoubleAnimation 
                    Storyboard.TargetName="animatedRadiusExample"
                    Storyboard.TargetProperty="RadiusY"
                    From="0" To="1" Duration="0:0:3" FillBehavior="Stop" />
                </Storyboard>
              </BeginStoryboard>
            </EventTrigger>
          </Ellipse.Triggers>
        </Ellipse>


    </StackPanel>
</Window>

16.112.Shape Animation
	16.112.1.	Width and Height animation
	16.112.2.	Scaling parameters ScaleX and ScaleY are animated
	16.112.3.	Path animation by code, duration, RepeatBehavior
	16.112.4.	Point path animation
	16.112.5.	Animated StartPoint
	16.112.6.	Animated EndPoint
	16.112.7.	Animated StartPoint and EndPoint
	16.112.8.	Animated Center
	16.112.9.	Animated Radius
	16.112.10.	Using PointAnimation
	16.112.11.	PointAnimation and BezierSegment
	16.112.12.	PointAnimation To
	16.112.13.	Animate BezierCurve