OVH Cloud OVH Cloud

couleur dans listview

2 réponses
Avatar
doudou
Comment faire pour mettre des couleurs dans les colonnes=20
d'un lsitview

en effet je fait mon ocxlistview.listitems.add .....

puis mes ocxlistview.subitem(1)

J'arrive sans probl=E8me =E0 faire un forecolor sur la=20
premi=E8re ligne .... ocxlistview.forecolor =3D 22222

Mais je ne sais pas comment faire la m=EAme chose pour les=20
autres colonnes ????

Merci de m'aider ...

2 réponses

Avatar
Raymond [mvp]
Bonsoir.

C'est possible en utilisant les ListSubItems. les colonnes sont des SubItems
de la ListItem.
si tu as l'objet:
Dim LaLigne As ListItem

tu peux faire:
LaLigne.Checked = True
LaLigne.Bold = True
LaLigne.ForeColor = RGB(255, 0, 0)
ceci ne touchant que la première colonne.

pour les autres colonnes il faut passer par ListSubItems indexé par le n° de
colonne.
LaLigne.ListSubItems(2).ForeColor = RGB(255, 0, 0)
LaLigne.ListSubItems(2).Bold= True

l'index commence à 1 (première colonne à droite de la ListItem)

--
@+
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


"doudou" a écrit dans le message de
news:1bf1b01c451ef$f2d649e0$
Comment faire pour mettre des couleurs dans les colonnes
d'un lsitview

en effet je fait mon ocxlistview.listitems.add .....

puis mes ocxlistview.subitem(1)

J'arrive sans problème à faire un forecolor sur la
première ligne .... ocxlistview.forecolor = 22222

Mais je ne sais pas comment faire la même chose pour les
autres colonnes ????

Merci de m'aider ...
Avatar
doudou
Ok parfait moi je m'était laligne.subitem(1).forecolor
Par exemple et non listsubitem

Merci
-----Message d'origine-----
Bonsoir.

C'est possible en utilisant les ListSubItems. les
colonnes sont des SubItems

de la ListItem.
si tu as l'objet:
Dim LaLigne As ListItem

tu peux faire:
LaLigne.Checked = True
LaLigne.Bold = True
LaLigne.ForeColor = RGB(255, 0, 0)
ceci ne touchant que la première colonne.

pour les autres colonnes il faut passer par ListSubItems
indexé par le n° de

colonne.
LaLigne.ListSubItems(2).ForeColor = RGB(255, 0, 0)
LaLigne.ListSubItems(2).Bold= True

l'index commence à 1 (première colonne à droite de la
ListItem)


--
@+
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


"doudou" a écrit
dans le message de

news:1bf1b01c451ef$f2d649e0$
Comment faire pour mettre des couleurs dans les colonnes
d'un lsitview

en effet je fait mon ocxlistview.listitems.add .....

puis mes ocxlistview.subitem(1)

J'arrive sans problème à faire un forecolor sur la
première ligne .... ocxlistview.forecolor = 22222

Mais je ne sais pas comment faire la même chose pour les
autres colonnes ????

Merci de m'aider ...


.