DoubleAnimation Loop forever : DoubleAnimation « Windows Presentation Foundation « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » Windows Presentation Foundation » DoubleAnimationScreenshots 
DoubleAnimation Loop forever
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.[To200

      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.[To0.0
      dblAnim.Duration = New Duration(TimeSpan.FromSeconds(10))
      lblTransparency.BeginAnimation(Label.OpacityProperty, dblAnim)
    End Sub
  End Class
End Namespace

   
  
Related examples in the same category
1.DoubleAnimation Loop three timesDoubleAnimation Loop three times
2.DoubleAnimation Loop for 30 secondsDoubleAnimation Loop for 30 seconds
3.Use DoubleAnimation to animate Gradient OffsetUse DoubleAnimation to animate Gradient Offset
4.Path Animation with DoubleAnimation Using Path, AutoReversePath Animation with DoubleAnimation Using Path, AutoReverse
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.