cs_julleroyfr
Messages postés22Date d'inscriptionjeudi 3 avril 2003StatutMembreDernière intervention11 juillet 2005
-
23 juil. 2004 à 16:32
cs_julleroyfr
Messages postés22Date d'inscriptionjeudi 3 avril 2003StatutMembreDernière intervention11 juillet 2005
-
23 juil. 2004 à 20:16
J'ai une listview liée à une imagelist ainsi que 2 picturebox pour redimensionné les images.
Lorsque je lance le programme, ma listview doit afficher des images redimensionnées mais elle affiche des rectangles vides que je peux selectionnés
Aidez-moi je comprends pas ce que j'ai mal fais. Merci
ensiblob
Messages postés20Date d'inscriptionjeudi 17 juin 2004StatutMembreDernière intervention 4 janvier 20051 23 juil. 2004 à 16:47
si j'ai bien compris tu veux afficher tes images dans ta listview..
A ma connaissance c'est pas possible (mais ca n'engage que me, myself and I)
Si tu veux afficher des images tu places sur ta forme un composant Image et dans my_Image.Picture tu places le path de ton image a afficher
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 23 juil. 2004 à 17:15
Salut,
Dis, ton code ca ressemble à ça ou c autre chose ?
Dim i As Long
Dim MyItem As ListItem
With Me.ListView1
.View = lvwReport
.SmallIcons = Me.ImageList1.Object
.ColumnHeaders.Add , , "Colonne 1", Me.ListView1.Width / 2
.ColumnHeaders.Add , , "Colonne 2", Me.ListView1.Width / 2
End With
For i = 1 To 20
Set MyItem = Me.ListView1.ListItems.Add(, , "Ligne n° " & i, , 1) ' -> le 1 signifie l'index de l'icone dans ImageList, donc la première
MyItem.SubItems(1) = "Mon Texte 2e colonne"
MyItem.ListSubItems(1).ReportIcon = 2 '-> index de l'icone dans ImageList, donc la 2e
Next i
Set MyItem = Nothing
Parce que celui là il fonctionne (il vient du site d'ailleurs)
cs_julleroyfr
Messages postés22Date d'inscriptionjeudi 3 avril 2003StatutMembreDernière intervention11 juillet 2005 23 juil. 2004 à 17:34
Voici mon code:
Option Explicit
Dim i As Integer
Dim Img As ListImage
Dim Itm As ListItem
Dim Rapport As Double
Dim Hauteur, Largeur As Double
Private Sub Dir1_Change()
File1.FileName = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo Erreur
Dir1.Path = Drive1.Drive
Exit Sub
Erreur:
MsgBox "Le péripherique est indisponible"
Drive1.Drive = Left(Dir1.Path, 3)
End Sub
Private Sub File1_PathChange()
ListView1.ListItems.Clear
ListView1.Icons = Nothing
ImageList1.ListImages.Clear
If File1.ListCount <> 0 Then File1.ListIndex = 0
For i = 0 To File1.ListCount - 1
Image1.Picture = LoadPicture(File1.Path + "" + File1.List(i))
Rapport = Image1.Width / Image1.Height
Largeur = Image1.Width
Hauteur = Image1.Height
If Hauteur > 90 Then
Largeur = 90 * Image1.Width / Image1.Height
Hauteur = 90
End If
If Largeur > 120 Then
Hauteur = 120 * Image1.Height / Image1.Width
Largeur = 120
End If
Picture1.PaintPicture Image1.Picture, (Picture1.Width - Largeur) / 2, (Picture1.Height - Hauteur) / 2, Largeur, Hauteur
ImageList1.ListImages.Add , File1.List(i), Picture1.Image
ListView1.Icons = ImageList1
Set Itm = ListView1.ListItems.Add()
Itm.Icon = File1.List(i)
Itm.Text = File1.List(i)
Next i
End Sub
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 23 juil. 2004 à 19:48
Je crois que tu ne peux pas charger une image venant d'une picturebox ds une imagelist.
G fait des essais et g tjrs une erreur du style "ne peut trouver le fichier 8856474".
L'imagelist doit attendre un chemin et un nom de fichier image.
Pour ce qui est de la taille de l'image, je crois qu'on n'a pas le choix. c icon ou smallicon.
Le code suivant fonctionne, modifie le en fonction de tes besoins :
Private Sub Form_Load()
Dim i As Long
Dim MyItem As ListItem
Dim img As ListImage
Dim Dossier As String
cs_julleroyfr
Messages postés22Date d'inscriptionjeudi 3 avril 2003StatutMembreDernière intervention11 juillet 2005 23 juil. 2004 à 20:16
Merci pour vos réponse mais j'ai pas encore resolu mon problème.
Car je suis arrivé à afficher des images sans les redimensionner et donc quand j'affiche des photos, j'obtiens des images dans ma listview avec des dimensions tel que 1600x1200. Donc niveau visibilité c'est pas cool.
En plus, j'ai trouvé des sources qui faisait la meme chose mais j'arrive pas à les adapter.
A+