本文整理汇总了VB.NET中System.Windows.Media.Animation.Animatable.GetAnimationBaseValue方法的典型用法代码示例。如果您正苦于以下问题：VB.NET Animatable.GetAnimationBaseValue方法的具体用法？VB.NET Animatable.GetAnimationBaseValue怎么用？VB.NET Animatable.GetAnimationBaseValue使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了Animatable.GetAnimationBaseValue方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: New
'
'
' This sample shows how to use the
' Animatable.GetAnimationBaseValue and
' UIElement.GetAnimationBaseValue methods
' to get the non-animated value of an
' animated Animatable or UIElement.
'
'
Imports System.Windows
Imports System.Windows.Navigation
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Shapes
Imports System.Windows.Controls
Imports System.Windows.Input
Namespace Microsoft.Samples.Animation.TimingBehaviors
Public Class GetAnimationBaseValueExample
Inherits Page
Private animatedRotateTransform As RotateTransform
Public Sub New()
WindowTitle = "GetAnimationBaseValue Example"
Dim myPanel As New StackPanel()
myPanel.Margin = New Thickness(20.0)
' Create a button.
Dim animatedButton As New Button()
animatedButton.Content = "Click Me"
animatedButton.Width = 100
animatedButton.Margin = New Thickness(100)
' Create and animate a RotateTransform and
' apply it to the button's RenderTransform
' property.
animatedRotateTransform = New RotateTransform()
animatedRotateTransform.Angle = 45
Dim angleAnimation As New DoubleAnimation(0,360, TimeSpan.FromSeconds(5))
angleAnimation.RepeatBehavior = RepeatBehavior.Forever
animatedRotateTransform.BeginAnimation(RotateTransform.AngleProperty, angleAnimation)
animatedButton.RenderTransform = animatedRotateTransform
animatedButton.RenderTransformOrigin = New Point(0.5,0.5)
' Animate the button's width.
Dim widthAnimation As New DoubleAnimation(120, 300, TimeSpan.FromSeconds(5))
widthAnimation.RepeatBehavior = RepeatBehavior.Forever
widthAnimation.AutoReverse = True
animatedButton.BeginAnimation(Button.WidthProperty, widthAnimation)
' Handle button clicks.
AddHandler animatedButton.Click, AddressOf animatedButton_Clicked
' Add the button to the panel.
myPanel.Children.Add(animatedButton)
Me.Content = myPanel
End Sub
' Display the base value for Button.Width and RotateTransform.Angle.
Private Sub animatedButton_Clicked(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim animatedButton As Button = CType(sender, Button)
MessageBox.Show("Button width base value: " & animatedButton.GetAnimationBaseValue(Button.WidthProperty).ToString & vbLf & "RotateTransform base value: " & animatedRotateTransform.GetAnimationBaseValue(RotateTransform.AngleProperty).ToString)
End Sub
End Class
End Namespace