aide avec WindowsMediaPlayer

bonjour, j'ai créer un simple lecteur mp3 mais voila j'ai un petit problème quand je change de musique, il m'affiche une erreur:
voici en image mon projet:
http://imageshack.us/a/img841/9927/simplemp3.jpg

voici mes codes:

Code:

---

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

Public Class Form1   Dim files As String, path As String()   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If (OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then files = OpenFileDialog1.SafeFileName path = OpenFileDialog1.FileNames ListBox1.Items.Add(files) End If End Sub   Private Sub ListBox1_Click(sender As System.Object, e As System.EventArgs) Handles ListBox1.Click AxWindowsMediaPlayer1.URL = path(ListBox1.SelectedIndex) End Sub End Class

---

voici l'erreur quand je change de musique:

Code:

---

AxWindowsMediaPlayer1.URL = path(ListBox1.SelectedIndex)

---

Merci,cordialement

Bonjour,

ceci :

Citation:

---

Envoyé par hacker59

voici l'erreur quand je change de musique:

Code:

---

AxWindowsMediaPlayer1.URL = path(ListBox1.SelectedIndex)

---

---

n'est pas un message d'erreur.
Pouvez-vous mettre le message d'erreur?

voici en image :
http://img534.imageshack.us/img534/8738/mp3erreur.jpg
pourquoi il m'affiche ceci?

C'est une des erreurs de base quand on travail avec les tableaux.
Path est un tableau de string : path As String().
un tableau a une limite path.Length.
en aucun cas on ne peut accèder à un élément au dessus de path.Length - 1 vu qu'il n'existe pas, sinon cette erreur est déclenchée.

Donc mettez un point d’arrêt pour vérifier que ListBox1.SelectedIndex ne dépasse pas path.Length - 1.

Vous pouvez devez aussi vous prémunir des erreurs en testant avant l'accès :

Code:

---

1 2 3 4 5 6 7

Private Sub ListBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.Click If path IsNot Nothing AndAlso path.Length + 1 >= ListBox1.SelectedIndex AndAlso ListBox1.SelectedIndex >= 0 Then AxWindowsMediaPlayer1.URL = path(ListBox1.SelectedIndex) Else MessageBox.Show("L'élément sélectionné n'a pas été retrouvé.", "Information", MessageBoxButtons.OK) End If End Sub

---

Cette erreur est facilement trouvable sur google, le premier lien donne accès à msdn :

Citation:

---

Exception levée lors d'une tentative d'accès à un élément d'un tableau ayant un index en dehors des limites du tableau.

---

EDIT :
Votre code ne fonctionnera jamais car vous mélangez deux concept, lorsque vous sélectionnez la musique, vous écrasez la liste de Path mais vous ajoutez le nom à la liste. Donc en somme, la liste ne fera que monter un éléments, dans votre image, il y en a déjà deux. Alors que files ne contiendra toujours qu'un seul élément.
Essayer quelque chose comme :

Code:

---

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

Dim ListPath As New List(Of String) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then   ListPath.AddRange(OpenFileDialog1.FileNames) ListBox1.Items.AddRange(OpenFileDialog1.SafeFileNames) End If End Sub   Private Sub ListBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.Click AxWindowsMediaPlayer1.URL = ListPath(ListBox1.SelectedIndex) End Sub

---

Merci Sankasssss, ça fonctionne maintenant.