Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Animation with code

<Window x: Class="SimpleCodeAnimation.Window1"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="SimpleCodeAnimation" Height="300" Width="300">     <Grid>       <Ellipse Name="myEllipse" Fill="Red" Height="100" Width="10" />     </Grid> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Imports System.Windows.Media.Animation Namespace SimpleCodeAnimation   Public Partial Class Window1     Inherits System.Windows.Window     Public Sub New()       InitializeComponent()     End Sub     Protected Overrides Sub OnMouseDown(e As MouseButtonEventArgs)       If e.LeftButton = MouseButtonState.Pressed Then         Dim animate As New DoubleAnimation()         animate.[To] = 300         animate.Duration = New Duration(TimeSpan.FromSeconds(5))         animate.RepeatBehavior = RepeatBehavior.Forever         myEllipse.BeginAnimation(Ellipse.WidthProperty, animate)       Else         Dim animate As New DoubleAnimation()         animate.By = 200         animate.Duration = New Duration(TimeSpan.FromSeconds(5))         myEllipse.BeginAnimation(Ellipse.WidthProperty, animate)       End If     End Sub   End Class End Namespace