Discussion :

[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

[wallace1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[mano10]

merci beaucoup ca ma pas mal aider

[wallace1]

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