Path animation by code, duration, RepeatBehavior : Shape Animation « Windows Presentation Foundation « VB.Net Tutorial

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

<Window x:Class="WpfApplication1.PathAnimationExample"
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="Path Animation" Height="500" Width="518">
    <Canvas Margin="5">
        <Path Stroke="LightBlue">
            <Path.Data>
                <PathGeometry x:Name="path1"
          Figures="M10,10 C75,20 300,20 200,120 220,220 300,220 350, 400 325,20 220,20 200,120 175,220 75,200 50,120" />
            </Path.Data>
        </Path>
        <Path Stroke="DarkGoldenrod">
            <Path.Fill>
                <RadialGradientBrush>
                    <GradientStop Color="Gold" Offset="0" />
                    <GradientStop Color="DarkGoldenrod" Offset="1" />
                </RadialGradientBrush>
            </Path.Fill>
            <Path.Data>
                <EllipseGeometry x:Name="circle1" Center="50,120" RadiusX="10" RadiusY="10" />
            </Path.Data>
        </Path>

    </Canvas>
</Window>
//File:Window.xaml.vb

Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Shapes

Namespace WpfApplication1
  Public Partial Class PathAnimationExample
    Inherits Window
    Public Sub New()
      InitializeComponent()
      path1.Freeze()
      ' For performance benefits. 
      Dim pa As New PointAnimationUsingPath()
      pa.PathGeometry = path1
      pa.Duration = TimeSpan.FromSeconds(5)
      pa.RepeatBehavior = RepeatBehavior.Forever


      circle1.BeginAnimation(EllipseGeometry.CenterProperty, pa)
    End Sub
  End Class
End Namespace

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