Discussion :

[Fabien82]

Bonjour à tous,

Je dois mettre en surbrillance une ligne complète d'une listview.
Voici un morceau de mon code mais il ne fonctionne pas....

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
 
Private Sub idSelectionne(ByVal id As Integer)
Dim i As Integer
 
If lvClients.ListItems.Count = 0 Then Exit Sub
If id = 0 Then
lvClients.SelectedItem.Selected = True
End If
 
For i = 1 To lvClients.ListItems.Count
If lvClients.ListItems(i) = id Then
Set lvClients.SelectedItem = lvClients.ListItems(i)
lvClients.SelectedItem.Selected = True
Exit Sub
End If
Next i
End Sub

Pouvez-vous m'aide svp.
D'avance Merci

Fabien

[OhMonBato]

Passe la propriété "HideSelection" à False et tu peux simplifier en mettant :

Code :

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

1
2
 
lvClients.SelectedItem = lvClients.FindItem(Id)