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