Bonjour,
Je voudrais afficher des images dans un listview
J'ai fais ceci mais il plante
Une petite aide ou un lien merci
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
Partager