Couleur ligne différente dans un listview ?

Question

Lorsque je veux afficher un couleur différente ou non sur les lignes de mon listview, j'ai un pb car a partir du deuxieme enregistrement il n'y a déja plus de couleur !!
Comment procéder ???? 
Merci d'avance

ZTPdiffusion · Answer

Salut

tu peux essayer ça :

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(3).ForeColor = vbRed
  ListView1.ListItems.Item(6).ForeColor = vbGreen
  ListView1.ListItems.Item(7).ForeColor = vbBlack
End Sub

J'espère que ça répond à ta question

a+

ld40 · Answer

je dirai même:


Private Sub Form_Load()
Dim Litem As ListItem

' Passer le ListView en mode liste
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "column1"
ListView1.ColumnHeaders.Add , , "column2"

' Mettre les noms dans le ListView
Set Litem = ListView1.ListItems.Add(, , "Adam")
Litem.SubItems(1) = "Adam sub"

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(1).ListSubItems(1).ForeColor = vbYellow
ListView1.ListItems.Item(2).ForeColor = vbBlue
ListView1.ListItems.Item(3).ForeColor = vbRed
ListView1.ListItems.Item(6).ForeColor = vbGreen
ListView1.ListItems.Item(7).ForeColor = vbBlack
End Sub



un grand merci à  ZTPdiffusion , j'ai enfin trouvé ce que je cherchais depuis si longtemps ;-)

Couleur ligne différente dans un listview ?

2 réponses

Discussions similaires