WPF VB.Net Tutorial


              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="" Height="300" Width="600">
    
        
            
                
            
            
                
                    
                        
                                            RepeatBehavior="Forever">
                                
                                    
                                
                            
                        
                    
                
            
        
        
            
                
                    
                
                
                    
                
            
        
    

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Media.Animation
Imports System.Windows.Input
Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub Storyboard_Changed(sender As Object, e As System.EventArgs)
      Dim clockGroup As ClockGroup = TryCast(sender, ClockGroup)
      Dim animationClock As AnimationClock = TryCast(clockGroup.Children(0), AnimationClock)
      If animationClock.CurrentProgress.HasValue Then
        Seeker.Value = animationClock.CurrentProgress.Value
      End If
    End Sub
    Private Sub Seeker_ValueChanged(sender As Object, e As RoutedPropertyChangedEventArgs(Of Double))
      Storyboard.Seek(Rectangle, TimeSpan.FromTicks(CLng(Storyboard.Children(0).Duration.TimeSpan.Ticks * Seeker.Value)), TimeSeekOrigin.BeginTime)
    End Sub
  End Class
End Namespace