0
我試圖使圖像淡入/淡出時,用戶懸停在按鈕上。當我進入按鈕時,淡入淡出效果,但當我離開它時不會。我該如何做這項工作?圖像淡入鼠標輸入事件
動畫代碼:
Private Sub GreenBg_animation()
Dim myduration As Duration = New Duration(TimeSpan.FromMilliseconds(250))
Dim da As DoubleAnimation = New DoubleAnimation
da.Duration = myduration
Dim sb As Storyboard = New Storyboard
sb.Duration = myduration
sb.Children.Add(da)
Storyboard.SetTarget(da, btn_bg_green)
Storyboard.SetTargetProperty(da, New PropertyPath(OpacityProperty))
da.From = 0.0
da.To = 1.0
da.AutoReverse = True
sb.Begin()
End Sub
按鈕代碼:
Private Sub btn_2_MouseEnter(sender As Object, e As System.Windows.Input.MouseEventArgs) Handles btn_2.MouseEnter
GreenBg_animation()
End Sub
謝謝你,當我喜歡你時說:D –