Snyve
Messages postés11Date d'inscriptiondimanche 4 février 2007StatutMembreDernière intervention31 août 2007
-
11 févr. 2007 à 00:57
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 2016
-
13 févr. 2007 à 21:30
bonjour à tous !
Voilà, j'ai un problème, j'ai une listview contenant des informations et je voudrais pouvoir récupérer le contenu de la cellule de la lige que je sélectionne de la première colonne. De cette façon, une fois que j'ai récupéré le mot de la cellule, je voudrai afficher l'image portant ce nom.
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 11 févr. 2007 à 10:53
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
le cancre
Messages postés292Date d'inscriptionmercredi 25 octobre 2006StatutMembreDernière intervention27 novembre 2009 11 févr. 2007 à 13:48
' 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
App.path est le répertoire de ton application et pas forcément celui des images que tu veux atteindre
De plus lstview1.ListItems.Item(0) ne fait nullement référence à un numéro de ligne de la listview : tu dois écrire lstview1.ListItems(X).Item(0) où x est le numéro de ligne
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 11 févr. 2007 à 08:28
"tu dois écrire lstview1.ListItems(X).Item(0) où x est le numéro de ligne"
Je ne suis pas d'accord
correction (pour moi) :
c'est lstview1.ListItems(X) (sans .Item(0) ) qu'il faut écrire pour ce qui se trouve dans la 1ère colonne (l'article, donc) de la ligne X d'une listview.
Les autres colonnes contiennent des sous-articles et, pour elles la syntaxe ne serait pas Item(n) mais subitems(n) pour le nième sous-article
Vous n’avez pas trouvé la réponse que vous recherchez ?
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 11 févr. 2007 à 22:31
pourquoi pas utiliser Item directement
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
On Error Resume Next
Image1.Picture = Nothing
Image1.Picture = LoadPicture(App.Path & "" & Item.Text & ".jpg")
End Sub
Snyve
Messages postés11Date d'inscriptiondimanche 4 février 2007StatutMembreDernière intervention31 août 2007 11 févr. 2007 à 23:00
J'ai juste déjà un peu regardé vos réponses et j'ai essayé celle de Le cancre, car je ne devais pas grand chose. ça réponse fonctionne !!!
Trop trop content
Merci Le cancre
(je vais essayer les autres réponses demain pur voir si elles marchent aussi).