colorer les colonnes de ma listview

Version imprimable

22/06/2013, 21h44
spring.time

colorer les colonnes de ma listview

Salut,
j'ai une listeview contenant plusieurs colonnes, j'aimerais colorer quelques une.

comment ça se fait?

Merci
23/06/2013, 09h44
chrismonoye

Bonjour,
voir ici
23/06/2013, 11h01
spring.time

Merci, j'ai déja consulter ce lien et j'ai testé ce code, mais ça ne colorie rien.

Bonjour,

Poutant il fonctionne.
Tu peux même facilement l'adapter pour coloriser chaque cellule d'une colonne en alternance pour une meilleure visibilité.
Code:

1 2 3 4 5 6 7 8 9 Sub ColoriseAlterne() Dim LignePaire As Boolean = False Dim lvi As ListViewItem For Each lvi In Me.ListView1.Items lvi.UseItemStyleForSubItems = False If LignePaire Then lvi.SubItems(0).BackColor = Color.Cyan Else lvi.SubItems(0).BackColor = Color.LightGreen LignePaire = Not LignePaire Next End Sub
Après, pour pouvoir t'aider, il nous faudrait plus d'info.
As-tu un message d'erreur ? As-tu suivi en pas à pas ?
Montre nous le code que tu utilises.

merci :)

je fais comme ça:

Code:

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
 
 
        liste_livraisons.View = View.Details
        liste_livraisons.Columns.Add("N° d'expedition", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Date d'expedition", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Bureau douanier", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("N° dossier AP", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Montant livraison AP", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("N° facture Frs", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Nombre de colis", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Poids", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("N° dossier", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Type", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Montant livraison ", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("N° facture Frs", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Nombre de colis", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Poids", 120, HorizontalAlignment.Left)
 
        Dim LignePaire As Boolean = False
        Dim lvi As ListViewItem
        For Each lvi In liste_livraisons.Items
            lvi.UseItemStyleForSubItems = False
            If LignePaire Then lvi.SubItems(0).BackColor = Color.Cyan Else lvi.SubItems(0).BackColor = Color.LightGreen
            LignePaire = Not LignePaire
        Next

au niveau du chargement de l'interface.

mais aucune colonne n'est coloriée

23/06/2013, 18h30
rv26t

Là, c'est normal puisque le code permet de colorer une cellule des lignes de données de la Listview.

Donc tu souhaites colorer les entêtes de colonnes. C'est çà ?

bonjour

Pour les subitems tu peux faire comme dit par rv261..

Pour les headers ,il faut prendre soi meme la customization par le biais de l'event DrawColumnHeader comme ceci:

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        liste_livraisons.OwnerDraw = True
        liste_livraisons.View = View.Details
        liste_livraisons.Columns.Add("N° d'expedition", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Date d'expedition", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Bureau douanier", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("N° dossier AP", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Montant livraison AP", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("N° facture Frs", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Nombre de colis", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Poids", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("N° dossier", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Type", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Montant livraison ", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("N° facture Frs", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Nombre de colis", 120, HorizontalAlignment.Left)
        liste_livraisons.Columns.Add("Poids", 120, HorizontalAlignment.Left)
 
 
    End Sub
 
 
 
    Private Sub liste_livraisons_DrawColumnHeader(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) Handles liste_livraisons.DrawColumnHeader
        Dim sf As New StringFormat()
        Try
 
            ' Store the column text alignment, letting it default
            ' to Left if it has not been set to Center or Right.
            Select Case e.Header.TextAlign
                Case HorizontalAlignment.Center
                    sf.Alignment = StringAlignment.Center
                Case HorizontalAlignment.Right
                    sf.Alignment = StringAlignment.Far
            End Select
 
            ' Draw the standard header background.
            ' comment this : e.DrawBackground()
            Dim brushBounds As SolidBrush
            Select Case e.ColumnIndex
                Case 0, 1
                    brushBounds = New SolidBrush(Color.Aquamarine)
                Case 2, 3
                    brushBounds = New SolidBrush(Color.LightPink)
                Case 4, 5
                    brushBounds = New SolidBrush(Color.BlanchedAlmond)
                Case Else
                    brushBounds = New SolidBrush(Color.Yellow)
            End Select
 
            e.Graphics.FillRectangle(brushBounds, e.Bounds)
            ' Draw the header text.
            Dim headerFont As New Font("Helvetica", 10, FontStyle.Bold)
            Try
                e.Graphics.DrawString(e.Header.Text, headerFont, _
                    Brushes.Red, e.Bounds, sf)
            Finally
                headerFont.Dispose()
                brushBounds.Dispose()
            End Try
 
        Finally
            sf.Dispose()
        End Try
 
    End Sub
End Class

De meme pour customizer le dessin pour les events subsequents
drawitem,drawsubitem.....
bon code....

23/06/2013, 22h27
rv26t

Pour que la solution proposé par "MABROUKI" fonctionne, places la propriété "OwnerDraw" de ton ListView à True.
24/06/2013, 01h47
spring.time

MERCI beaucoup,

mais j'aimerais colorer des cellules, ou des colonnes, par exemple N° d'expedition avec une couleur pour les distinguer...
25/06/2013, 20h36
spring.time

j'ai essayé mais j'arrive seulement à colorier le contenu non les colonnes ayant les memes valeurs?
et ou' je dois mettre le code, au niveau du load de la page ? pendant l'ajout.?