Discussion :

[claudeblet]

Bonjour,

J'ai un code qui fonctionne très bien sous .NET. Celui de la ListView. Je tente de placer une icône provenant d'une ImageList comme élément de ma ListView. Mais j'ai de grandes difficultés à trouver le code exact dans mon application. Voici le code placé dans Form_Load :

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Dim Path As String
        Path = Label1.Text
 
        ListView1.Columns.Add("Librairies ", 200, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
 
        ListView1.Columns.Add("Taille", 125, HorizontalAlignment.Left)
        ListView1.Columns.Add("Date de création", 150, HorizontalAlignment.Left)
        For Each file In FileIO.FileSystem.GetFiles(Path)
            Dim item As ListViewItem = ListView1.Items.Add(FileIO.FileSystem.GetName(file))
            item.SubItems.Add(FileIO.FileSystem.GetFileInfo(file).Length & " octets")
            item.SubItems.Add(FileIO.FileSystem.GetFileInfo(file).CreationTime)
        Next

Bien que le code de ma ListView fonctionne bien, je suis incapable d'associer et d'afficher l'icône de mon ImageList, pour chacune des librairies !

Cordialement,

Merci d'avance,

Claude

[claudeblet]

J'ai réussi avec une pièce de code empruntée sur Internet à afficher l'icône native du fichier et le nom du fichier. Cependant avec ce même code je ne parviens pas à remplir les deux autres colonnes (lenght en octets et date de création) !

Code VB.NET :

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
28
29
 
Private Sub GetAllIcons()
 
        ListView1.LargeImageList = ImageList1
        ListView1.SmallImageList = ImageList1
 
        Dim dirInfo As IO.DirectoryInfo
        Dim fileInfo As IO.FileInfo
        Dim exeIcon As System.Drawing.Icon
 
        dirInfo = New IO.DirectoryInfo(StrShortPath & "\Librairies\")
 
        For Each fileInfo In dirInfo.GetFiles
 
            If Not String.IsNullOrEmpty(fileInfo.Extension) Then
                exeIcon = System.Drawing.Icon.ExtractAssociatedIcon(fileInfo.FullName)
                If ImageList1.Images.ContainsKey(fileInfo.FullName) Then
                    ListView1.Items.Add(fileInfo.Name, fileInfo.FullName)
                ElseIf Not exeIcon Is Nothing Then
                    ImageList1.Images.Add(fileInfo.FullName, exeIcon)
                    ListView1.Items.Add(fileInfo.Name, fileInfo.FullName)
                Else
                    ListView1.Items.Add(fileInfo.Name)
                End If
            End If
 
        Next
 
End Sub

Je n'ai qu'un ListView et un seul contrôle ImageList sur la Form.

Merci d'avance,

Claude