|
Blend for visual studio禁止动画自动开始播放,在没有任何代码时就开始播放非常不便,下图是只播放一次
Blend for visual studio禁止动画自动开始播放,下图为禁止启动加载自动播放
要删除Storyboard1.Begin
去除触发器
然后使用 visual studio 进行代码控制动画
Private Sub butt_MouseDown() Handles butt.MouseDown
ston.BeginTime = New TimeSpan(0, 0, -2) '从第2秒再开始
ston.Duration = TimeSpan.FromSeconds(4) '播放到到达5秒的时间
ston.SpeedRatio = 1 '播放的速度
ston.Begin()
End Sub
Private Sub butt1_MouseDown(sender As Object, e As MouseButtonEventArgs) Handles butt1.MouseDown
ston.BeginTime = TimeSpan.FromSeconds(2) '等1秒再开始
ston.Duration = TimeSpan.FromSeconds(6) '播放到到达6秒的时间
ston.SpeedRatio = 5 '播放的速度
ston.Begin() '开始动画
End Sub
Private Sub butt2_MouseDown(sender As Object, e As MouseButtonEventArgs) Handles butt2.MouseDown
ston.Pause() '暂停
box1.Text = ston.GetCurrentTime.ToString '返回时间
End Sub
Private Sub button3_Click(sender As Object, e As RoutedEventArgs) Handles button3.Click
ston.Resume() '继续开始
End Sub
|
|