[Baboune]

Bonsoir le Forum,

Je voudrais que lorsque je click sur un élément de ma ListView, cette ligne change de couleur.
Puis lorsque je sélectionne une deuxième ligne, elle change de couleur comme la première et la première reprenne sa couleur d'origine.

Avec ce code j'arrive a changer de couleur, mais lorsque je click sur un autre élément, le premier élément ne retrouve pas sa couleur d'origine.

Private Sub ListView1_Click()
Dim wItem As ListItem
Dim C As Byte

Set wItem = ListView1.SelectedItem

ListView1.ForeColor = RGB(1, 0, 0)

wItem.ForeColor = RGB(0, 0, 255)

For C = 1 To ListView1.ColumnHeaders.Count
wItem.ListSubItems(C).ForeColor = RGB(0, 0, 255)
Next

End Sub

Quelqu’un aurai une idée sur la correction à apporter ?

Message édité par: Baboune, à: 11/11/2005 22:13