2011-11-19 81 views
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 

回答

0

你需要MouseExit另一個(反向)的動畫,如果你認爲AutoReverse會爲你做的你錯誤。

+0

謝謝你,當我喜歡你時說:D –