Timer triggered Animation : Animation « Windows Presentation Foundation « VB.Net Tutorial

<Window x:Class="WpfApplication1.PerFrameAnimation"
  Title="Per Frame Animation" Height="400" Width="400">
        <Path Fill="Blue">
                <EllipseGeometry x:Name="ball1" Center="30,180" RadiusX="5" RadiusY="5" />

        <Path Stroke="LightBlue">
                <EllipseGeometry Center="180,180" RadiusX="150" RadiusY="75" />


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

Namespace WpfApplication1
  Public Partial Class PerFrameAnimation
    Inherits Window
    Private lastRender As TimeSpan
    Private time As Double = 0
    Private dt As Double = 0
    Public Sub New()
      lastRender = TimeSpan.FromTicks(DateTime.Now.Ticks)
      AddHandler CompositionTarget.Rendering, AddressOf StartAnimation
    End Sub
    Private Sub StartAnimation(sender As Object, e As EventArgs)
      Dim renderArgs As RenderingEventArgs = DirectCast(e, RenderingEventArgs)
      dt = (renderArgs.RenderingTime - lastRender).TotalSeconds
      lastRender = renderArgs.RenderingTime
      Dim x As Double = 180 + 150 * Math.Cos(2 * time)
      Dim y As Double = 180 + 75 * Math.Sin(2 * time)
      ball1.Center = New Point(x, y)

      time += dt
    End Sub
  End Class
End Namespace
WPF Timer Triggered Animation

16.107.1.Animation of the combined transformAnimation of the combined transform
16.107.2.Animate the Opacity of TextBlock at different starting timeAnimate the Opacity of TextBlock at different starting time
16.107.3.Animate Canvas positionAnimate Canvas position
16.107.5.Xaml ClockXaml Clock
16.107.6.Enlarge Buttons In XamlEnlarge Buttons In Xaml
16.107.7.Setting enumeration values with discrete animations with DiscreteObjectKeyFrameSetting enumeration values with discrete animations with DiscreteObjectKeyFrame
16.107.8.Expand ElementExpand Element
16.107.9.Animating nested propertiesAnimating nested properties
16.107.10.Text AnimationText Animation
16.107.11.Animate TransformationAnimate Transformation
16.107.12.Associating the clicking of each button with a stack of XAML that starts or stops the animationAssociating the clicking of each button with a stack of XAML that starts or stops the animation
16.107.13.Animation In XamlAnimation In Xaml
16.107.14.Using SpeedRatio in a hierarchyUsing SpeedRatio in a hierarchy
16.107.15.Hold on end for an AnimationHold on end for an Animation
16.107.16.Animate Several PropertiesAnimate Several Properties
16.107.17.Animation ProgressBar.Animation ProgressBar.
16.107.18.Control the Progress of an AnimationControl the Progress of an Animation
16.107.19.Remove Animations with AnimationClockRemove Animations with AnimationClock
16.107.20.Remove AnimationsRemove Animations
16.107.21.Timer triggered AnimationTimer triggered Animation
16.107.22.Rolling Ball AnimationRolling Ball Animation
16.107.23.Create animations using the Storyboard in codeCreate animations using the Storyboard in code
16.107.24.Receive Notification When an Animation CompletesReceive Notification When an Animation Completes
16.107.25.A simple, finite animationA simple, finite animation
16.107.26.Code Animation Accelerate DecelerateCode Animation Accelerate Decelerate
16.107.27.Animation with codeAnimation with code
16.107.28.Rotate Button AnimationRotate Button Animation
16.107.29.Rotate Button Animation With LayoutRotate Button Animation With Layout
16.107.30.A Simple Animation in CodeA Simple Animation in Code