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
private void moviePlayer_MediaOpened(object sender, RoutedEventArgs e)
{
// 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 = (double)volumeSlider.Value;
positionSlider.Maximum =
moviePlayer.NaturalDuration.TimeSpan.TotalMilliseconds;
// Update the position slider every second.
timer.Interval = new TimeSpan(0, 0, 1);
timer.Start();
}
private void moviePlayer_MediaEnded(object sender, RoutedEventArgs e)
{
// Media playback is finished.
// Stop the media to seek to media start.
StopMovie();
timer.Stop();
}
private void positionSlider_ValueChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
// Create a TimeSpan with milliseconds equal to the slider value.
TimeSpan ts = new TimeSpan(
0, 0, 0, 0, (int)positionSlider.Value);
moviePlayer.Position = ts;
}
private void backButton_Click(object sender, RoutedEventArgs e)
{
// Jump back 5 seconds:
moviePlayer.Position =
moviePlayer.Position.Subtract(new TimeSpan(0, 0, 0, 0, 5000));
positionSlider.Value =
moviePlayer.Position.TotalMilliseconds;
}
private void playButton_Click(object sender, RoutedEventArgs e)
{
PlayMovie();
}
private void stopButton_Click(object sender, RoutedEventArgs e)
{
StopMovie();
}
private void forwardButton_Click(object sender, RoutedEventArgs e)
{
// Jump ahead 5 seconds:
moviePlayer.Position =
moviePlayer.Position.Add(new TimeSpan(0, 0, 0, 0, 5000));
positionSlider.Value =
moviePlayer.Position.TotalMilliseconds;
}
private void volumeSlider_ValueChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
moviePlayer.Volume = (double)volumeSlider.Value;
}