[VB.NET][WPF] Gérer l'audio avec 'MediaPlayer'

Bonjour,

Pour pouvoir utiliser le mp3 dans mon application j'ai décidé d'utiliser 'MediaPlayer'
Voici comment, basiquement, je l'utilise:

Code:

---

1 2 3 4

Dim backMusic as New MediaPlayer backMusic.Open(New Uri("sbgm0005.mp3", UriKind.Relative)) backMusic.Volume = 0.1 backMusic.Play()

---

Et voici ma question:

Comment puis-je faire pour gérer l’arrêt de la chanson?
J'ai vu qu'il existait un évènement: 'MediaEnded', censé gérer la fin de la chanson...mais je ne vois pas comment le mettre en oeuvre (je suis...débutant ;-))

Commenr donc puis je utiliser un handler pour détecter la fin de la chanson?

D'avance merci pour toute aide que vous pourriez m'apporter!!

Bonjour,

en mode design, tu selectionnes ton mediaPlayer et tu vas dans les propriétés. Tu dois avoir un onglet Evenements ressemblant a un éclair et dedans tu dois avoir l'event mediaEnded.
En double cliquant dessus, ça doit te créer directement la méthode et la lier.

Tu as ensuite juste a créer le contenu de la méthode.

Sinon dans ton xaml tu ajoutes

Code:

---

MediaEnded="mediaElement1_MediaEnded"

---

et dans le fichier vb

Code:

---

1 2 3 4 5

private void mediaElement1_MediaEnded(object sender, RoutedEventArgs e) {   }

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim backMusic as New MediaPlayer AddHandler backMusic.MediaEnded, AddressOf backMusic_MediaEnded backMusic.Open(New Uri("sbgm0005.mp3", UriKind.Relative)) backMusic.Volume = 0.1 backMusic.Play()     ...   Private Sub backMusic_MediaEnded(ByVal sender As Object, ByVal e As EventArgs) ... End Sub

---

Citation:

---

Envoyé par tomlev

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim backMusic as New MediaPlayer AddHandler backMusic.MediaEnded, AddressOf backMusic_MediaEnded backMusic.Open(New Uri("sbgm0005.mp3", UriKind.Relative)) backMusic.Volume = 0.1 backMusic.Play()     ...   Private Sub backMusic_MediaEnded(ByVal sender As Object, ByVal e As EventArgs) ... End Sub

---

---

tomlev,
Merci pour ta réponse! J'ai juste un petit problème avec

Citation:

---

AddHandler backMusic.MediaEnded, AddressOf backMusic_MediaEnded

---

Si je place cette ligne au début de la classe de ma fenètre (comme je le fais pour 'Dim backMusic As New MediaPlayer') j'ai une SyntaxError sur 'AddHandler'
Si je place cette ligne plus loin, dans un sub, j'ai l'erreur suivante: backMusic.MediaEnded is not declared

Merci pour ton aide

Citation:

---

Envoyé par Jayme65

Si je place cette ligne au début de la classe de ma fenètre (comme je le fais pour 'Dim backMusic As New MediaPlayer') j'ai une SyntaxError sur 'AddHandler'

---

Il faut la mettre dans une Sub, pas directement dans la classe

Citation:

---

Envoyé par Jayme65

Si je place cette ligne plus loin, dans un sub, j'ai l'erreur suivante: backMusic.MediaEnded is not declared

---

Ca par contre c'est bizarre :?

Montre un peu plus de code, avec l'extrait que tu as montré on ne voit pas la structure de ton programme...

Merci tomlev!!
Je pense que j'ai trouvé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Class MainWindow Dim backMusic As New MediaPlayer Public Event MediaEnded As RoutedEventHandler Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded AddHandler backMusic.MediaEnded, AddressOf backMusic_MediaEnded backMusic.Open(New Uri("Lasgo - Intro.mp3", UriKind.Relative)) backMusic.Volume = 0.2 backMusic.Play() End Sub Private Sub backMusic_MediaEnded(ByVal sender As Object, ByVal e As EventArgs) backMusic.Stop() backMusic.Position = TimeSpan.FromSeconds(0) backMusic.Play() End Sub End Class

---

Mais j'en "veux" toujours bien l'explication ;-)
Si tu as le temps, peux tu m'expliquer la "logique" derrière tout cela, la mécanique!!!...D'avance merci

En fait je pense que tu avais mal copié le message d'erreur... c'était pas plutôt "backMusic_MediaEnded is not declared" ?
C'est juste que tu avais pas mis la sub backMusic_MediaEnded...

Et enlève la ligne que tu as mis en rouge, elle sert à rien

Si je l'enlève, le sub n'est pas appelé!
Excuse la bêtise que je vais peut être dire, mais dans cette ligne seul il n'y a rien qui dit quand ce sub doit être appelé( un handler, c'est ca?)..non?

Code:

---

Private Sub backMusic_MediaEnded(ByVal sender As Object, ByVal e As EventArgs)

---

Citation:

---

Envoyé par Jayme65

Si je l'enlève, le sub n'est pas appelé!

---

Hein ? :koi:
Ca n'a pourtant rien à voir... cette ligne déclare un nouvel évènement, qui n'a aucun lien avec le MediaPlayer, et de toutes façons tu ne le déclenches jamais. Je suis absolument certain que cette ligne ne sert à rien

Citation:

---

Envoyé par Jayme65

Excuse la bêtise que je vais peut être dire, mais dans cette ligne seul il n'y a rien qui dit quand ce sub doit être appelé( un handler, c'est ca?)..non?

Code:

---

Private Sub backMusic_MediaEnded(ByVal sender As Object, ByVal e As EventArgs)

---

---

C'est le AddHandler qui dit que cette Sub doit être appelée quand l'évènement MediaEnded se produit

Le code que tu as posté dans le message #6 a l'air correct, à part la ligne en rouge qui ne sert à rien

Ouups!! Toutes mes excuses...je me suis mélangé les pinceaux et avais, dans la précipitation, supprimé 'AddHandler backMusic.MediaEnded, AddressOf backMusic_MediaEnded' au lieu de 'Public Event MediaEnded As RoutedEventHandler'
Je suis confus..et te remercie d'autant plus d'avoir pris ton temps pour m'aider.
Un grand merci!!!

Pour tous ceux qui auront besoin de l'information, voici donc le code correct pour utiliser 'MediaPlayer' et notamment pour gérer la fin de lecture (avec dans le cas repris ici une répétition en boucle du fichier audio):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Class MainWindow Dim backMusic As New MediaPlayer Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded AddHandler backMusic.MediaEnded, AddressOf backMusic_MediaEnded backMusic.Open(New Uri("sbgm0005.wav", UriKind.Relative)) backMusic.Volume = 1 backMusic.Play() End Sub Private Sub backMusic_MediaEnded(ByVal sender As Object, ByVal e As EventArgs) sender.Stop() sender.Position = TimeSpan.FromSeconds(0) sender.Play() End Sub End Class

---