OVH Cloud OVH Cloud

ListView

10 réponses
Avatar
Sun Service
Bonjour à tous et en particulier à Raymond,

J'ai vu sur ton site un bien bel exemple du contrôle ListView sous Access.
Au détail près que tu n'as donc pas abordé l'aspect des icônes....En
cherchant un peu, j'ai vu qu'il fallait faire référence à un contrôle
ImageList, ce que j'ai fait.
J'ai ajouté les images à mon contrôle ImageList
Lorsque j'ajoute des lignes à ma ListView, je fais appel à la propriété
suivante pour appeler l'image contenue dans la ImageList
Line.SmallIcons = 1

Lorsque j'exécute, il me met : "ImageList doit être initialisé avant de
pouvoir être utilisé"

Comment initialise t on alors ??

Merci !!!

Laurent

10 réponses

Avatar
Raymond [mvp]
Bonjour.

fallait continuer la lecture:
voir : http://access.seneque.free.fr/imagelist.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sun Service" a écrit dans le message de
news:c94vcj$th4$
Bonjour à tous et en particulier à Raymond,

J'ai vu sur ton site un bien bel exemple du contrôle ListView sous Access.
Au détail près que tu n'as donc pas abordé l'aspect des icônes....En
cherchant un peu, j'ai vu qu'il fallait faire référence à un contrôle
ImageList, ce que j'ai fait.
J'ai ajouté les images à mon contrôle ImageList
Lorsque j'ajoute des lignes à ma ListView, je fais appel à la propriété
suivante pour appeler l'image contenue dans la ImageList
Line.SmallIcons = 1

Lorsque j'exécute, il me met : "ImageList doit être initialisé avant de
pouvoir être utilisé"

Comment initialise t on alors ??

Merci !!!

Laurent




Avatar
Sun Service
Bah écoute si, bien sûr que j'ai lu, mais je ne vois pas trop comment faire
l'initialisation demandée pour autant.

Soit ImgLst le nom de mon contrôle ImageList

Dim I as ListImage

Puis

Me.ImgLst.ListImages.Clear
Me.ImgLst.ImageHeight = 16
Me.ImgLst.ImageWidth = 16
Set I = Me.ImgLst.ListImages.Add(1, "Image1",
LoadPicture("d:iconesaddrbook.ico"))

Puis dans ma boucle de parcours du RecordSet pour le remplissage de la
ListView, je place :

StrSQL = ("SELECT NumDevis, Client, DateDevis FROM TblDevis ORDER BY
NumDevis DESC")
Set rs = CurrentDb.OpenRecordset(StrSQL)
rs.MoveFirst
Do Until rs.EOF
Set Line = Lst.ListItems.Add()
Line.SmallIcon = 1
Line.Text = rs![NumDevis]
Line.SubItems(1) = rs![Client]
Line.SubItems(2) = rs![DateDevis]
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

il me met alors le message précédemment cité, surlignant en jaune
Line.SmallIcon = 1

Où est ce que j'oublie quelque chose ?

Merciiiiiiii

Laurent



"Raymond [mvp]" a écrit dans le message de
news: uKAd$y$
Bonjour.

fallait continuer la lecture:
voir : http://access.seneque.free.fr/imagelist.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sun Service" a écrit dans le message de
news:c94vcj$th4$
Bonjour à tous et en particulier à Raymond,

J'ai vu sur ton site un bien bel exemple du contrôle ListView sous
Access.


Au détail près que tu n'as donc pas abordé l'aspect des icônes....En
cherchant un peu, j'ai vu qu'il fallait faire référence à un contrôle
ImageList, ce que j'ai fait.
J'ai ajouté les images à mon contrôle ImageList
Lorsque j'ajoute des lignes à ma ListView, je fais appel à la propriété
suivante pour appeler l'image contenue dans la ImageList
Line.SmallIcons = 1

Lorsque j'exécute, il me met : "ImageList doit être initialisé avant de
pouvoir être utilisé"

Comment initialise t on alors ??

Merci !!!

Laurent








Avatar
Raymond [mvp]
Il te manque ceci:

Set Me.nomdulistview.ImageList = Me.ImgLst .Object


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sun Service" a écrit dans le message de
news:c952e7$10r$
Bah écoute si, bien sûr que j'ai lu, mais je ne vois pas trop comment
faire

l'initialisation demandée pour autant.

Soit ImgLst le nom de mon contrôle ImageList

Dim I as ListImage

Puis

Me.ImgLst.ListImages.Clear
Me.ImgLst.ImageHeight = 16
Me.ImgLst.ImageWidth = 16
Set I = Me.ImgLst.ListImages.Add(1, "Image1",
LoadPicture("d:iconesaddrbook.ico"))

Puis dans ma boucle de parcours du RecordSet pour le remplissage de la
ListView, je place :

StrSQL = ("SELECT NumDevis, Client, DateDevis FROM TblDevis ORDER BY
NumDevis DESC")
Set rs = CurrentDb.OpenRecordset(StrSQL)
rs.MoveFirst
Do Until rs.EOF
Set Line = Lst.ListItems.Add()
Line.SmallIcon = 1
Line.Text = rs![NumDevis]
Line.SubItems(1) = rs![Client]
Line.SubItems(2) = rs![DateDevis]
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

il me met alors le message précédemment cité, surlignant en jaune
Line.SmallIcon = 1

Où est ce que j'oublie quelque chose ?

Merciiiiiiii

Laurent


Avatar
Sun Service
Il me met "propriété ou méthode non gérée par cet objet" !!

La propriété .ImageList est elle supportée par un ListView ??

"Raymond [mvp]" a écrit dans le message de
news:
Il te manque ceci:

Set Me.nomdulistview.ImageList = Me.ImgLst .Object


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sun Service" a écrit dans le message de
news:c952e7$10r$
Bah écoute si, bien sûr que j'ai lu, mais je ne vois pas trop comment
faire

l'initialisation demandée pour autant.

Soit ImgLst le nom de mon contrôle ImageList

Dim I as ListImage

Puis

Me.ImgLst.ListImages.Clear
Me.ImgLst.ImageHeight = 16
Me.ImgLst.ImageWidth = 16
Set I = Me.ImgLst.ListImages.Add(1, "Image1",
LoadPicture("d:iconesaddrbook.ico"))

Puis dans ma boucle de parcours du RecordSet pour le remplissage de la
ListView, je place :

StrSQL = ("SELECT NumDevis, Client, DateDevis FROM TblDevis ORDER BY
NumDevis DESC")
Set rs = CurrentDb.OpenRecordset(StrSQL)
rs.MoveFirst
Do Until rs.EOF
Set Line = Lst.ListItems.Add()
Line.SmallIcon = 1
Line.Text = rs![NumDevis]
Line.SubItems(1) = rs![Client]
Line.SubItems(2) = rs![DateDevis]
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

il me met alors le message précédemment cité, surlignant en jaune
Line.SmallIcon = 1

Où est ce que j'oublie quelque chose ?

Merciiiiiiii

Laurent






Avatar
Raymond [mvp]
je viens de relire et j'avais noté:
En ce qui concerne le contrôle ListView, vous devez affecter des contrôles
ImageList aux propriétés Icons et SmallIcons si vous les utilisez.
faut que je fasse appel à ma mémoire et ça va être très dur car il n'y a
aucune doc sur les listview.
je recherche comme toi.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sun Service" a écrit dans le message de
news:c9543j$cou$
Il me met "propriété ou méthode non gérée par cet objet" !!

La propriété .ImageList est elle supportée par un ListView ??



Avatar
Laurent Merlet
Je pense que tu voulais écrire ceci :

Me.LstView.SmallIcons = Me.ImgLst.Object

trouvé sur :

http://www.microsoft.com/accessdev/articles/Odesamp.htm

En tout cas merci !!

J'avais trouvé une source pour VB6, ce qui est étonnant c'est que ça se fait
beaucoup plus facilement.
"Raymond [mvp]" a écrit dans le message de
news:u$
je viens de relire et j'avais noté:
En ce qui concerne le contrôle ListView, vous devez affecter des contrôles
ImageList aux propriétés Icons et SmallIcons si vous les utilisez.
faut que je fasse appel à ma mémoire et ça va être très dur car il n'y a
aucune doc sur les listview.
je recherche comme toi.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sun Service" a écrit dans le message de
news:c9543j$cou$
Il me met "propriété ou méthode non gérée par cet objet" !!

La propriété .ImageList est elle supportée par un ListView ??







Avatar
Raymond [mvp]
ça doit être ça; quand on reste des mois sans utiliser un ocx, c'est tout à
refaire.
c'est vrai aussi qu'en vb6 on a d'autres possibilités
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Laurent Merlet" a écrit dans le message de
news:c958o6$r69$
Je pense que tu voulais écrire ceci :

Me.LstView.SmallIcons = Me.ImgLst.Object

trouvé sur :

http://www.microsoft.com/accessdev/articles/Odesamp.htm

En tout cas merci !!

J'avais trouvé une source pour VB6, ce qui est étonnant c'est que ça se
fait

beaucoup plus facilement.


Avatar
Laurent Merlet
En tout cas merci Raymond !

"Raymond [mvp]" a écrit dans le message de
news:
ça doit être ça; quand on reste des mois sans utiliser un ocx, c'est tout
à

refaire.
c'est vrai aussi qu'en vb6 on a d'autres possibilités
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Laurent Merlet" a écrit dans le message de
news:c958o6$r69$
Je pense que tu voulais écrire ceci :

Me.LstView.SmallIcons = Me.ImgLst.Object

trouvé sur :

http://www.microsoft.com/accessdev/articles/Odesamp.htm

En tout cas merci !!

J'avais trouvé une source pour VB6, ce qui est étonnant c'est que ça se
fait

beaucoup plus facilement.






Avatar
Daniel Carollo
Bonsoir Raymond (et Sun Service)!

Un point de depart sur MSDN:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon/html/vbconimagelistcontroloverview.asp

Pas tres touffu mais utile...


--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...

"Raymond [mvp]" wrote in message
news:u$
je viens de relire et j'avais noté:
En ce qui concerne le contrôle ListView, vous devez affecter des contrôles
ImageList aux propriétés Icons et SmallIcons si vous les utilisez.
faut que je fasse appel à ma mémoire et ça va être très dur car il n'y a
aucune doc sur les listview.
je recherche comme toi.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


Avatar
Raymond [mvp]
Bonsoir Daniel.

il a trouvé.

le listview c'est la M.... avec les images, d'ailleurs on ne les utilise que
très rarement, les ocx entassés ça commence à bien faire avec toutes les
différentes versions access. Le listview aussi est très peu utilisé comme
tous les autres car trop compliqué pour un débutant. et même en connaissant
bien on oublie très vite qu'il est différent des autres.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Daniel Carollo" a écrit dans le
message de news:
Bonsoir Raymond (et Sun Service)!

Un point de depart sur MSDN:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon/html/vbconimagelistcontroloverview.asp


Pas tres touffu mais utile...


--
Daniel :-)