Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Listimage et imaglist

Listimage et imaglist

19 réponses
Avatar
Dan
Bonjour à tous.
Voici mon code ça ne marche pas !
Dans envoi les adresses de mes images sont dans une matrice est séparé par
un ;
dans envoi1 je fais un tableau de ma matrice envoi le séparateur étant le
point,.
Je chargeImageList1 avec le contenu de mon tableau envoi1
ensuite je cherche à remplir mon listviewer avec le contenu de ImageList1
je dois avoir tout faux et j'ai vraiment besoin de votre aide pour corriger
ma petite programmation.
Merci de votre aide car je tourne en rond depuis pas mal de temps
maintenant.



Private Sub Form7_Load(ByVal eventSender As System.Object, ByVal eventArgs
As System.EventArgs) Handles MyBase.Load
envoi1 = Split(envoi, ";")
'dimention du tableau
Dim aa = (UBound(envoi1, 1))
Dim i As Integer
' Un ImageList par code:
'******************
For i = 1 To aa
ImageList1.Images.Add(Image.FromFile(envoi1(1)))
Next
'************************
ListView1.LargeImageList = ImageList1
ListView1.Items.Clear() 'initialiser listviewer

'on affiche les image
For i = 1 To ImageList1.Images.Count
Dim LVI As New ListViewItem
LVI.Text = i.ToString
'première cellule
LVI.SubItems.Add((i * i).ToString)

ListView1.Items.Add(envoi1(LVI))
Next
ListView1.Visible = True
End Sub
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Dan
J'ai essayé de vous envoyer mon projet sur ce forum sans succés,je viens de
l'adressé a votre adresse perso en retirant NOSPAM
mon adresse perso est en retirant nospam
j'espere que l'explication est assez claire pour vous.
A+

_
"Bill2" a écrit dans le message de
news:OB9upi$
Dan wrote:
bonjour.
Merci encore

Cette fois cie j'ai bien le nom de ma photo 'divers 2008 053
[50%].JPG' dans
LVitem mais il bloque sur la ligne :

ListView1.Items.Add(LVitem) en m'indiquant l'erreur :

"Impossible d'ajouter ou d'insérer l'élément 'divers 2008 053
[50%].JPG' à plusieurs emplacements. Vous devez tout d'abord le
supprimer de son emplacement actuel ou le cloner. Nom du paramètre :
item"
Je crois que grace a vous je touche au but mais je ne sais pas ce
que cela veut dire.




Visiblement, c'est qu'il y a 2 photos au moins avec le même nom je pense
...

Vous pourriez m'envoyer le projet complet, et au moins 2 rep contenant
quelques photos, que je regarde ça ?
--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/



Avatar
Bill2
Dan wrote:
J'ai essayé de vous envoyer mon projet sur ce forum sans succés,je
viens de l'adressé a votre adresse perso en retirant NOSPAM
mon adresse perso est en retirant nospam
j'espere que l'explication est assez claire pour vous.
A+




hum, j'ai beau vérifier, je n'ai rien reçu ...
J'ai pourtant bien vérifié la boite à spam de gmail ... rien de rien ...

--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/
Avatar
Dan
bonjour.
je viens de vous le renvoyer sur le forum mais la je ne le vois toujours
pas , et sur votre adresse mail.
j'espere que d'une facon oy d'une autre vous le recevrez.
A+
Dan
"Bill2" a écrit dans le message de
news:
Dan wrote:
J'ai essayé de vous envoyer mon projet sur ce forum sans succés,je
viens de l'adressé a votre adresse perso en retirant NOSPAM
mon adresse perso est en retirant nospam
j'espere que l'explication est assez claire pour vous.
A+




hum, j'ai beau vérifier, je n'ai rien reçu ...
J'ai pourtant bien vérifié la boite à spam de gmail ... rien de rien ...

--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/



Avatar
Bill2
Dan wrote:
bonjour.
je viens de vous le renvoyer sur le forum mais la je ne le vois
toujours pas , et sur votre adresse mail.
j'espere que d'une facon oy d'une autre vous le recevrez.
A+
Dan



Négatif, tjs rien...

La pièce jointe est "lourde" ?
--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/
Avatar
Dan
non la piece jointe fait 738 k
Je vous l'ai aussi envoyée sur en retirant nospam
mais il sagit d'un fichier zip.
Je vous l'envoie de nouveau sans le zip par mail suivant ,on ne sais jamais

"Bill2" a écrit dans le message de
news:%
Dan wrote:
bonjour.
je viens de vous le renvoyer sur le forum mais la je ne le vois
toujours pas , et sur votre adresse mail.
j'espere que d'une facon oy d'une autre vous le recevrez.
A+
Dan



Négatif, tjs rien...

La pièce jointe est "lourde" ?
--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/



Avatar
Bill2
Dan wrote:
non la piece jointe fait 738 k
Je vous l'ai aussi envoyée sur en retirant
nospam mais il sagit d'un fichier zip.
Je vous l'envoie de nouveau sans le zip par mail suivant ,on ne sais
jamais



Je comprend vraiment pas ce qu'il se passe ... tjs rien dans la boite ...
essayez un mail sans pièce jointe pour voir si je le reçois ...

--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/
Avatar
Bill2
mouais, ça va être galère tout ça ...

Zippez le tout, et testez avec cette adresse :
contact @ bill2-software . com
(sans les espaces, bien entendu !)

--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/
Avatar
Dan
visiblement le forum refuse les pieces jointes.
je vous les envoie directemt
si non je vous redonne le code ,peut etre pourriez vous dessiner le
reste,il sagit d'une fenetre aver ImageList1 ListView1 et le tout dans
un formulaire windows Form2 et dans envoi 2 adresses de fichier JPG
separées par un ";"
voici le code

Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load


Dim MyImgList As New ImageList

Dim Tab As Array = Split(envoi, ";")

Dim img As String

Dim imgName As String

Dim LVitem As ListViewItem = New ListViewItem

ListView1.Items.Clear()

ListView1.OwnerDraw = True

ListView1.View = View.List

For Each img In Tab

If String.IsNullOrEmpty(img.Trim) Then Continue For

' On r‚cupŠre le nom de l'image : ‡a servira d'index ds l'imglist

imgName = System.IO.Path.GetFileName(img)

MyImgList.Images.Add(imgName, Image.FromFile(img))

' on utilise le nom du fichier pour cet element du listview

LVitem.Text = imgName

'on affecte l'image correspondante

LVitem.ImageKey = imgName ' imgname sert de Key dans notre imgList

' ajout de l'‚lement au listView

ListView1.Items.Add(LVitem)

Next

' maintenant, on associer notre imageList … notre listView

ListView1.LargeImageList = MyImgList

ListView1.Visible = True

End Sub

End Class


"Bill2" a écrit dans le message de
news:%
Dan wrote:
non la piece jointe fait 738 k
Je vous l'ai aussi envoyée sur en retirant
nospam mais il sagit d'un fichier zip.
Je vous l'envoie de nouveau sans le zip par mail suivant ,on ne sais
jamais



Je comprend vraiment pas ce qu'il se passe ... tjs rien dans la boite ...
essayez un mail sans pièce jointe pour voir si je le reçois ...

--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/



Avatar
Dan
ok j'essaie avec cette adresse
*
"Bill2" a écrit dans le message de
news:
mouais, ça va être galère tout ça ...

Zippez le tout, et testez avec cette adresse :
contact @ bill2-software . com
(sans les espaces, bien entendu !)

--
Bill2
Utilisez Process Manager, gestionnaire de processus automatique :
http://www.bill2-software.com/processmanager/



1 2