Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

DoubleAnimation Loop forever

<Window x: Class="WpfApplication1.MainWindow"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="AnimatedLabel" Height="498" Width="530" WindowStartupLocation="CenterScreen" >   <StackPanel>     <Button Content ="Animate Height" Click ="btnAnimatelblMessage_Click" />     <Label Name ="lblHeight"  Content ="Animate Height!"/>     <Button Content ="Animate Transparency" Click ="btnAnimatelblTransparency_Click"/>     <Label Background ="Cornsilk" Name ="lblTransparency"  Content ="Animate Transparency!"/>   </StackPanel> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Linq 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.Navigation Imports System.Windows.Shapes Imports System.Windows.Media.Animation Namespace WpfApplication1   Public Partial Class MainWindow     Inherits Window     Public Sub New()       InitializeComponent()     End Sub     Protected Sub btnAnimatelblMessage_Click(sender As Object, args As RoutedEventArgs)       Dim dblAnim As New DoubleAnimation()       dblAnim.From = 40       dblAnim.[To] = 200       dblAnim.AutoReverse = True       dblAnim.RepeatBehavior = RepeatBehavior.Forever       dblAnim.Duration = New Duration(TimeSpan.FromSeconds(4))       lblHeight.BeginAnimation(Label.HeightProperty, dblAnim)     End Sub     Protected Sub btnAnimatelblTransparency_Click(sender As Object, args As RoutedEventArgs)       Dim dblAnim As New DoubleAnimation()       dblAnim.From = 1.0       dblAnim.[To] = 0.0       dblAnim.Duration = New Duration(TimeSpan.FromSeconds(10))       lblTransparency.BeginAnimation(Label.OpacityProperty, dblAnim)     End Sub   End Class End Namespace