Width and Height animation : Shape Animation « Windows Presentation Foundation « VB.Net Tutorial

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

<Window x:Class="_360Timer.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Concentric Rings" Width="910" Height="512">
  <Canvas Name="MainCanvas" Background="#FFE0E0E0"/>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Windows.Media.Animation

Namespace _360Timer

  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()

      Me.Show()

      For i As Integer = 0 To 23
        Dim e As New Ellipse()
        e.Stroke = New SolidColorBrush(Color.FromArgb(5, 2, 200, 100))
        e.StrokeThickness = 20
        e.Width = 10.0
        e.Height = 20.0

        Me.MainCanvas.Children.Add(e)

        e.SetValue(Canvas.LeftProperty, 300)
        e.SetValue(Canvas.TopProperty, 400)

        Dim duration As Double = 6.0
        Dim delay As Double = 1.0

        Dim sizeAnimation As New DoubleAnimation(0.0, 512.0, New Duration(TimeSpan.FromSeconds(duration)))
        sizeAnimation.RepeatBehavior = RepeatBehavior.Forever
        sizeAnimation.BeginTime = TimeSpan.FromSeconds(delay)
        e.BeginAnimation(Ellipse.WidthProperty, sizeAnimation)


        e.BeginAnimation(Ellipse.HeightProperty, sizeAnimation)
      Next
    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