[AIDE] Lancer de la musique a partir d une listbox

Bonjour les Dévéloppeurs et Développeuses

Voila j aimerai que vous m aider a faire que quant je sélectionne l'éléments 0 de la listbox ça joue le premier fichier de musique qui se trouve dans un dossier spécifique

la form en pièce jointe

Merci :)

Citation:

---

Envoyé par mano10

Bonjour les Dévéloppeurs et Développeuses

Voila j aimerai que vous m aider a faire que quant je sélectionne l'éléments 0 de la listbox ça joue le premier fichier de musique qui se trouve dans un dossier spécifique

la form en pièce jointe

Merci :)

---

Bonour mano10,

Le plus simple c'est d'utiliser un listview en mode "détails" ainsi tu stockes dans une colonne les titres dans une seconde colonnes le chemin du fichier en question. Enfin lorsque l'utilisateur sélectionne 1 listviewitem alors tu récupères le subitem du chemin du fichier :

---> Paramétrage du Listview :

Listview1.FullRowSelect = True (permet lorsqu'on sélectionne un Listviewitem que la surbrillance soit visible sur toute la ligne et pas seulement la 1ère colonne !)
Listview1.View = View.Details (Permet d'afficher les lisviewItem en mode détaills comme l'explorateur Windows, triable, et paramétrable au niveau des colonnes...etc...and so on !)

IMPORTANT : PENSER A AJOUTER 2 COLONNES


---> Charger un item (depuis un fichier .mp3) dans un listview (nommé Listview1) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub PopulateList(FilePath$) 'Vérifie existence du fichier au cas ou il aurait été supprimé entre tps ! If File.Exists(FilePath) Then Dim fi As New FileInfo(FilePath) 'Vérifie que le fichier ne soit pas vide (Taille = 0Ko) ! 'Tu pourrais vérifier l'extension du fichier 'If fi.extension.tolower = ".mp3" ....... If fi.Length <> 0 Then 'Déclaration d'un tableau à 2 entrées Dim items As String() = New String(2) {} items(0) = fi.Name items(1) = fi.FullName Dim item As New ListViewItem(items) item.ToolTipText = items(1) Listview1.items.add(item) End If ' .... End If End If   End Sub

---

---> Retourner le subitem de la 2ème colonne (= subitems(1).Text) du listviewitem sélectionné grâce au gestionnaire d'évènement "ListView1.ItemSelectionChanged" :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ListView1_ItemSelectionChanged(sender As Object, e As Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged If.isSelected 'Affiche le titre MsgBox(e.Item.SubItems(0).Text) 'Ou MsgBox(e.Item.Text) 'Affiche le chemin MsgBox(e.Item.SubItems(1).Text) End If   End Sub

---

TERMINE LA LISTBOX ! ;)

merci beaucoup ca ma pas mal aider :)

Citation:

---

Envoyé par mano10

merci beaucoup ca ma pas mal aider :)

---

Si ton problème est réglé alors penses à passer le topic en "résolu" ! Merci pour les prochains ;)