Bonjour,


Je voudrais afficher des images dans un listview

J'ai fais ceci mais il plante

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
 
Imports System.IO
 
Public Class Form1
    Dim filepath As String = "C:\Documents and Settings\All Users\Documents\Mes Images\Échantillons d'images"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.Dock = DockStyle.Left
        ListView1.View = View.LargeIcon
 
 
        Dim i As Integer
        Dim di As New DirectoryInfo(filepath)
        Dim fi As FileInfo
 
        For Each fi In di.GetFiles(".Tiff")
 
            ListView1.Items.Add(fi.Name, i)
        Next
 
 
    End Sub
Une petite aide ou un lien merci