Discussion :

[Martipit]

bonjour à tous.

Voilà ma problématique :

J'ai une listview dans laquelle je voudrais faire afficher les icones des fichiers images qui se trouvent dans un répertoire défini (un peut comme les grandes icones de l'explorer Windows).

Voici le code que j'ai tapé :

Code :

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

1
2
3
4
5
6
7
8
9
 Public Sub REMPLIT_LISTE()
        Dim resultat As String
        LV_Resultat.Items.Clear()
        Dim fileNames = My.Computer.FileSystem.GetFiles("D:\Animation\Jeux\Images\", FileIO.SearchOption.SearchAllSubDirectories, "*.*")
        For Each fileName As String In fileNames
            resultat = IO.Path.GetFileNameWithoutExtension(fileName)
            LV_Resultat.Items.Add(resultat)
        Next
    End Sub

Lorsque je lance ce code, j'ai la liste de mes fichiers dans la listview mais pas d'icones.

Je ne vois ce que je dois faire pour les voir affichés. Je suis allé dans tâche listview, j'ai sélectionné afficher : LargeIcon
et après que dois-je faire ?

Je suis preneur de votre aide car là, je pédale dans la semoule.

Merci par avance pour votre aide.

@+ Martipit

[wallace1]

Bonsoir,

Il faut ajouter un imagelist en mode concepteur de vues et ensuite l'associer à ton Listview via la propriété ".LargeImagelist" et/ou ".SmallImagelist" ou alors déclarer tout ça dynamiquement.

En brefff et à titre d'exemple ca pourrait ressembler à ceci :

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
22
23
24
25
26
27
 
  'On instancie un imagelist pour y stocker les l'image associé aux fichiers
    Private imglist As New ImageList With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(32, 32)}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'On affecte l'imglist à la propriété SmallImageList et LargeImageList de notre Listview
        ListView1.SmallImageList = imglist
        ListView1.LargeImageList = imglist
        Dim fileNames = My.Computer.FileSystem.GetFiles("D:\Animation\Jeux\Images\", FileIO.SearchOption.SearchAllSubDirectories, "*.*")
        For Each fileName As String In fileNames
            'on instancie un fileinfo pour récupérer ensuite le nom du fichier (.name) le chemin complet (.Fullname)
            Dim fi As New FileInfo(fileName)
            'On récupère l'icone associé au fichier
            Dim iconFile = System.Drawing.Icon.ExtractAssociatedIcon(fi.FullName)
            'On instancie un listviewitem
            Dim lvi As New ListViewItem(fi.Name)
            'Si l'icone n'est pas valide (cela peut arriver) on n'ajoute rien dans l'imglist
            If Not iconFile Is Nothing Then
                'On ajoute l'image associé au fichier dans l'imgList
                imglist.Images.Add(iconFile.ToBitmap)
                'On associe l'image et l'index
                lvi.ImageIndex = imglist.Images.Count - 1
            End If
            'On ajoute le listviewitem au Listview
            ListView1.Items.Add(lvi)
        Next
    End Sub

Il faut bien sure l'adapter à tes besoins

Ou alors il y a également la possibilité de récupérer le mimeType des extensions de fichiers depuis le registre.....

A+

[Martipit]

Bonsoir

Merci à toi de te pencher sur mon petit soucis.

J'ai repris ton code et j'ai une erreur concernant le "fileInfo (Filename)" qui n'est pas déclaré.

Et je ne sais que faire.

@+ Marci

Martipit

[wallace1]

Bonsoir

Merci à toi de te pencher sur mon petit soucis.

J'ai repris ton code et j'ai une erreur concernant le "fileInfo (Filename)" qui n'est pas déclaré.

Et je ne sais que faire.

@+ Marci

Martipit

Il faut importer l'espace de noms :

Code :

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

1
2
 
Imports System.IO

ou le déclarer explicitement dans le code :

Code :

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

System.IO.Fileinfo

A+

[Martipit]

Re bonsoir

Alors j'ai tout bien copié et voilà ce que cela me donne dans le listview



Je n'ai donc pas "l'apercu" comme dans l'explorer :


Désolé pour ma méconnaissance...

Bonne soirée

@+ Martipit

[Martipit]

re bonsoir

C'est bon j'ai trouvé. En fait ce n'était pas l'icone que je devais récupérer mais l'image du fichier JPG lui même

j'ai modifier le script come suit.

Code :

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

1
2
3
4
5
6
7
Dim ImgFile = System.Drawing.Icon.ExtractAssociatedIcon(fi.FullName)
            'On instancie un listviewitem
            Dim lvi As New ListViewItem(fi.Name)
            'Si l'icone n'est pas valide (cela peut arriver) on n'ajoute rien dans l'imglist
            If Not ImgFile Is Nothing Then
                'On ajoute l'image associé au fichier dans l'imgList
                imglist.Images.Add(ImgFile.ToBitmap)

reste plus qu'à ne plus faire apparaître le nom du fichier dans la liste si c'est possible

Encore Merci

@+ Martipit

[wallace1]

tres bien alors bonne soiree