prob listview

Réponse acceptée !
Salut,

Essaye ce petit bout de code dans l'évènement Click de ta Listview :

Private Sub ListView1_ItemClick(ByVal ItemValide As ListItem)
' Variable pour n° index
 Dim Longindex As Long
 
' Récupération de l'index
 Longindex = ItemValide.Index
 
' Vérifification qu'il y a quelque chose dans ton item
 If (Not (ListView1.ListItems(Longindex).SubItems(1)) = "") Then
   Image1.Picture = LoadPicture(App.Path & "\" & ListView1.ListItems(Longindex) & ".jpg")
Else
Msgbox "Il n'y a aucun chemin d'image Valide !!"
 End If
End Sub

Pense à changer le nom : Listivew1 par le nom de ta Listview

A+
Exploreur

Réponse acceptée !

' si le fichier image existe,alors on l'affiche

Private Sub ListView1_Click()
 If Dir(App.Path & "\" & Listview1.SelectedItem.Text &  ".jpg", vbHidden) <> vbNullString Then
Image1.Picture = LoadPicture(App.Path & "\"  Listview1.SelectedItem.Text   & ".jpg")
end if
end sub