xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Rolling Balls" Height="350" Width="518">
//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 RollingBall
Inherits Window
Public Sub New()
InitializeComponent()
Dim nRotation As Double = 2
Dim da As New DoubleAnimation(0, 450, TimeSpan.FromSeconds(5))
da.RepeatBehavior = RepeatBehavior.Forever
da.AutoReverse = True
ellipse1.BeginAnimation(Canvas.LeftProperty, da)
da = New DoubleAnimation(0, nRotation, TimeSpan.FromSeconds(15))
da.RepeatBehavior = RepeatBehavior.Forever
da.AutoReverse = True
ellipse1Rotate.BeginAnimation(RotateTransform.AngleProperty, da)
da = New DoubleAnimation(0, 450, TimeSpan.FromSeconds(15))
da.AccelerationRatio = 0.4
da.RepeatBehavior = RepeatBehavior.Forever
da.AutoReverse = True
ellipse2.BeginAnimation(Canvas.LeftProperty, da)
da = New DoubleAnimation(0, nRotation, TimeSpan.FromSeconds(15))
da.AccelerationRatio = 0.4
da.RepeatBehavior = RepeatBehavior.Forever
da.AutoReverse = True
ellipse2Rotate.BeginAnimation(RotateTransform.AngleProperty, da)
da = New DoubleAnimation(0, 450, TimeSpan.FromSeconds(5))
da.DecelerationRatio = 0.6
da.RepeatBehavior = RepeatBehavior.Forever
da.AutoReverse = True
ellipse3.BeginAnimation(Canvas.LeftProperty, da)
da = New DoubleAnimation(0, nRotation, TimeSpan.FromSeconds(15))
da.DecelerationRatio = 0.6
da.RepeatBehavior = RepeatBehavior.Forever
da.AutoReverse = True
ellipse3Rotate.BeginAnimation(RotateTransform.AngleProperty, da)
End Sub
End Class
End Namespace