Private Sub moviePlayer_MediaOpened(ByVal sender As Object, ByVal e As RoutedEventArgs)
' Put code here that runs when the media
' is first opened.
' Set the media's starting Volume to the current
' value of the slider control.
moviePlayer.Volume = System.Convert.ToDouble(volumeSlider.Value)
positionSlider.Maximum = moviePlayer.NaturalDuration.TimeSpan.TotalMilliseconds
' Update the position slider every second.
timer.Interval = New TimeSpan(0, 0, 1)
timer.Start()
End Sub
Private Sub moviePlayer_MediaEnded(ByVal sender As Object, ByVal e As RoutedEventArgs)
' Media playback is finished.
' Stop the media to seek to media start.
StopMovie()
timer.Stop()
End Sub
Private Sub positionSlider_ValueChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Double))
' Create a TimeSpan with milliseconds equal to the slider value.
Dim ts As New TimeSpan(0, 0, 0, 0, Fix(positionSlider.Value))
moviePlayer.Position = ts
' Jump back 5 seconds:
moviePlayer.Position = moviePlayer.Position.Subtract(New TimeSpan(0, 0, 0, 0, 5000))
positionSlider.Value = moviePlayer.Position.TotalMilliseconds
End Sub
Private Sub backButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
' Jump back 5 seconds:
moviePlayer.Position = _
moviePlayer.Position.Subtract(New TimeSpan(0, 0, 0, 0, 5000))
positionSlider.Value = _
moviePlayer.Position.TotalMilliseconds
End Sub
Private Sub playButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
PlayMovie()
End Sub
Private Sub stopButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
StopMovie()
End Sub
Private Sub forwardButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
' Jump ahead 5 seconds:
moviePlayer.Position = moviePlayer.Position.Add(New TimeSpan(0, 0, 0, 0, 5000))
positionSlider.Value = moviePlayer.Position.TotalMilliseconds
End Sub
Private Sub volumeSlider_ValueChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Double))
moviePlayer.Volume = System.Convert.ToDouble(volumeSlider.Value)
End Sub