1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
|
" codeBody "
Imports System.Windows.Media.Animation
Openbare Klasse UserControl1
Privé storyboard als Nieuwe Storyboard ()
Privé duur als Nieuwe TimeSpan (0, 0, 2)
Privé animatie als Nieuwe DoubleAnimation ()
Privé Sub (ByVal afzender als Voorwerp, ByVal e als System.Windows.Input.MouseEventArgs) Handvatten Image1_MouseEnter Image1.MouseEnter
Probeer
Me.Image1.Opacity = 1.0
Vangst ex als Uitzondering
Ex MsgBox (. Bericht)
Het eind probeert
Sub van het eind
Openbare SubFadeIn ()
storyboard.AutoReverse = Vals
animatie. Van = 0.0
animatie. Aan = 0.5
animatie. Duur = Nieuwe Duur (Duur)
Storyboard.SetTargetName (animatie, Me.Image1.Name)
Storyboard.SetTargetProperty (animatie, Nieuwe PropertyPath (UIElement.OpacityProperty))
Storyboard.Children.Add (animatie)
storyboard. Begin (Me.Image1)
Beëindig Sub
Beëindig Klasse
|