Imports System.Windows.Media.Animation
Allgemeine Kategorie UserControl1
Privater Storyboard als neuer Storyboard ()
Private Dauer als neue Zeitspanne (0, 0, 2)
Private Animation als neues DoubleAnimation ()
Privates Unterseeboot Image1_MouseEnter (ByVal Absender als Gegenstand, ByVal e als System.Windows.Input.MouseEventArgs) behandelt Image1.MouseEnter
Versuch
Me.Image1.Opacity = 1.0
Fang ex als Ausnahme
MsgBox (ex. Mitteilung)
Enden-Versuch
Enden-Unterseeboot
Allgemeines VorFadeIn ()
storyboard.AutoReverse = falsch
Animation. Von = 0.0
Animation. Bis = 0.5
Animation. Dauer = neue Dauer (Dauer)
Storyboard.SetTargetName (Animation, Me.Image1.Name)
Storyboard.SetTargetProperty (Animation, neues PropertyPath (UIElement.OpacityProperty))
Storyboard.Children.Add (Animation)
Storyboard. Anfangen (Me.Image1)
Unterseeboot beenden
Kategorie beenden
|