1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
Class MainWindow
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
Me.SliderVolume.Value = Me.MediaElementPlayer.Volume
End Sub
Private Sub ButtonParcourir_Click(sender As Object, e As System.Windows.RoutedEventArgs) Handles ButtonParcourir.Click
Dim dial As New Microsoft.Win32.OpenFileDialog
If dial.ShowDialog = True Then
Me.ListBoxMedias.Items.Add(dial.FileName)
End If
End Sub
Private Sub ButtonPlay_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles ButtonPlay.Click
If Me.ListBoxMedias.SelectedItem IsNot Nothing Then
Me.MediaElementPlayer.Source = New Uri(Me.ListBoxMedias.SelectedItem)
Me.MediaElementPlayer.Play()
End If
End Sub
Private Sub SliderVolume_ValueChanged(sender As Object, e As System.Windows.RoutedPropertyChangedEventArgs(Of Double)) Handles SliderVolume.ValueChanged
Me.MediaElementPlayer.Volume = Me.SliderVolume.Value
End Sub
Private Sub ButtonMuet_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles ButtonMuet.Click
If Me.MediaElementPlayer.IsMuted Then
Me.MediaElementPlayer.IsMuted = False
Else
Me.MediaElementPlayer.IsMuted = True
End If
End Sub
Private Sub ButtonStop_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles ButtonStop.Click
Me.MediaElementPlayer.Stop()
End Sub
Private Sub ButtonPause_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles ButtonPause.Click
Me.MediaElementPlayer.Pause()
End Sub
End Class |
Partager