【发布时间】:2018-07-27 11:42:40
【问题描述】:
我想以编程方式为标签的背景颜色创建动画,但我遇到了一些问题。
我已经实现了以下代码:
Public Sub DoBackgroundAnimation(ByVal obj As Label)
If obj Is Nothing Then Return
Dim animatedBrush As New SolidColorBrush()
animatedBrush.Color = Colors.MidnightBlue
Dim highlightAnimation As New ColorAnimation()
highlightAnimation.[To] = Colors.Transparent
highlightAnimation.Duration = TimeSpan.FromSeconds(1)
Storyboard.SetTarget(highlightAnimation, animatedBrush)
Storyboard.SetTargetProperty(highlightAnimation, New PropertyPath(SolidColorBrush.ColorProperty))
Dim story As New Storyboard
story.Children.Add(highlightAnimation)
obj.Background = animatedBrush
story.Begin(obj)
End Sub
但什么也没发生!
背景是简单的 MidnightBlue,没有动画。
你有什么建议吗?
【问题讨论】: