<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
|
