Почему эта анимация приводит к тому, что окно перемещается слева направо в исходное положение, а затем переходит в другое положение, хотя я установил свойства ширины и высоты до начала анимации. Кажется, он сбрасывает значение высоты, когда начинает показывать ширину, а затем возвращает его обратно при выполнении второй анимации.
Sub ShowTitle(ByVal Text As String)
tb_text.Visibility = Windows.Visibility.Hidden
tb_text.Height = 5
tb_text.Width = 0
tb_text.Text = Text
tb_text.Visibility = Windows.Visibility.Visible
Dim SB As New Animation.Storyboard
Dim FIW = New Animation.DoubleAnimation(0, 400, New Duration(TimeSpan.FromSeconds(2)))
SB.Children.Add(FIW)
Animation.Storyboard.SetTargetName(FIW, tb_text.Name)
Animation.Storyboard.SetTargetProperty(FIW, New PropertyPath(WidthProperty))
Dim FIH = New Animation.DoubleAnimation(5.0, 50.0, New Duration(TimeSpan.FromSeconds(2)))
FIH.BeginTime = TimeSpan.FromSeconds(2)
SB.Children.Add(FIH)
Animation.Storyboard.SetTargetName(FIH, tb_text.Name)
Animation.Storyboard.SetTargetProperty(FIH, New PropertyPath(HeightProperty))
SB.Begin(Me)
End Sub