WPF VB.Net

  1. Home
  2. VB.Net
  3. WPF
  4. Path animation by code, duration, RepeatBehavior
  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">
    
        
            
                          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" />
            
        
        
            
                
                    
                    
                
            
            
                
            
        
    

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