Discussion :

[Linaa]

Bonjour,

J'ai une ListView et je voudrais changer la couleur de police de l'item selectionné (uniquement cet item).
Il y a bien la propriété Forecolor de la ListView, mais ça me change la couleur de police de tous les items.
Quel est la propriété pour cela ?

Merci d'avance.

[ThierryAIM]

un premier élément de réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub List1_ItemClick(ByVal Item As MSComctlLib.listitem)
    Dim i As Integer
    Item.ForeColor = vbRed
    For i = 1 To Item.ListSubItems.Count
        Item.ListSubItems(i).ForeColor = vbRed
    Next
End Sub

[Linaa]

Merci, mais je n'ai pas de SubItem (avec la vue 'Icon').
Dois-je en rajouter ? Est-ce necessaire ?

[ThierryAIM]

tu as combien de colonnes dans ta listview ?

[Linaa]

Une seule (la colonne Text).

[leroissejp]

Bonsoir,
Essaye ce code, il colore 4 items dont 2 en gras de la ListView.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Form_Load()
Dim Litem As ListItem
 
' Passer le ListView en mode liste
ListView1.View = lvwList
 
' Mettre les noms dans le ListView
Set Litem = ListView1.ListItems.Add(, , "Adam")
Set Litem = ListView1.ListItems.Add(, , "Bernard")
Set Litem = ListView1.ListItems.Add(, , "Frédéric")
Set Litem = ListView1.ListItems.Add(, , "Fabrice")
Set Litem = ListView1.ListItems.Add(, , "Christophe")
Set Litem = ListView1.ListItems.Add(, , "David")
Set Litem = ListView1.ListItems.Add(, , "Juliette")
Set Litem = ListView1.ListItems.Add(, , "Emilie")
 
' Mettre en gras la deuxième et la sixième donnée par exemple
ListView1.ListItems.Item(1).ForeColor = vbYellow
ListView1.ListItems.Item(2).ForeColor = vbBlue
ListView1.ListItems.Item(2).Bold = True
ListView1.ListItems.Item(3).ForeColor = vbRed
ListView1.ListItems.Item(6).ForeColor = vbGreen
ListView1.ListItems.Item(6).Bold = True
ListView1.ListItems.Item(7).ForeColor = vbBlack
End Sub

jpleroisse

[Linaa]

J'comprends pas! La propriété Forecolor ne passe pas. C'est normal ?
Il faut rajouter des composants ?

[leroissejp]

Bonjour,
As-tu essayés le code que je t'ai donné ??
L'as-tu bien regarder (analysé) ??, il de te donne la réponse et fonctionne très bien !

jpleroisse

[jmfmarques]

On ne peut faire cela avec VB seul à ma connaissance (avec VB5 du moins)
Il faudrait d'abord établir ListSubItem puis appliquer la méthode de ThierryAim
Chez moi, Forecolor s'applique à l'ensemble, pas à un item d'une listview séparément.

[Linaa]

Chez moi, Forecolor s'applique à l'ensemble, pas à un item d'une listview séparément.

C'est pareil pour moi.

Bonjour,
As-tu essayés le code que je t'ai donné ??
L'as-tu bien regarder (analysé) ??, il de te donne la réponse et fonctionne très bien !

Oui oui, j'ai bien regardé!
Erreur de compilation... Méthode ou membre de données introuvable (surlignage de Forecolor)

[Linaa]

Sayé! Le code de leroissejp fonctionne.

Il y a plusieurs Microsoft Windows Common Controls.
Et donc, ça ne fonctionnait pas avec le 5.0 (SP2).
Par contre, en choisissant le 6.0 (SP4), c'est bon!

Merci tous!

[jmfmarques]

Je n'ai pas VB6, comme toi, et ne peux donc essayer, mais toi oui.
Si, dans VB6, ListSubItem est intrinséquement établi, le code de Thierry AIM devrait à mon avis "marcher". L'as-tu essayé ?
Un lien qui conforte largement la syntaxe de Thierry AIM :
http://www.vbforums.com/showthread.php?t=231157
Croisés avec le message de Linaa

[ThierryAIM]

Linaa >> mets donc à jour ton VB6
http://vb.developpez.com/outils/
première ligne

[jmfmarques]

Je viens d'y parvenir malgré ma vieille version :
Le code de Thierry AIM est plus efficace