|
Dobrý den, vytvářím dynamickou animaci a potřeboval bych na ní navázat druhou, což se dle spousty článků na webu řeší eventem <Storyboard Completed="odkaz_na_kód">. Jenže já tuhle animaci tvořím ve VB kódu a potřeboval bych ekvivalent tohoto eventu právě pro VB kód. Prosurfoval jsem už všechny volné chvíle v posledních třech dnech a zadání eventu Completed jsem našel jenom a pouze v XAML. Uvádím jednoduchou animaci jako příklad...
Sub Animace1()
Dim sbRes As New Storyboard
Dim th1 As New Thickness(160, 160, 0, 0)
Dim myThicknessAnimation1 As New ThicknessAnimation
myThicknessAnimation1.To = th1
myThicknessAnimation1.Duration = TimeSpan.FromMilliseconds(1000)
myThicknessAnimation1.FillBehavior = FillBehavior.Stop
Storyboard.SetTargetName(myThicknessAnimation1, "Button1")
Storyboard.SetTargetProperty(myThicknessAnimation1, New PropertyPath(Button.MarginProperty))
sbRes.Children.Add(myThicknessAnimation1)
Me.BeginStoryboard(sbRes)
End Sub
Díky moc za každou radu...
|