图像淡入鼠标输入事件

问题描述:

我试图使图像淡入/淡出时,用户悬停在按钮上。当我进入按钮时,淡入淡出效果,但当我离开它时不会。我该如何做这项工作?图像淡入鼠标输入事件

动画代码:

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 

你需要MouseExit另一个(反向)的动画,如果你认为AutoReverse会为你做的你错误。

+0

谢谢你,当我喜欢你时说:D –