problème listview

Question

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

cs_tolt · Answer

ça devrait répondre à ta question.

items.ListSubItems(3).Bold = True
items.ListSubItems(3).ForeColor = QBColor(12)

Bonne journée

Problème listview

1 réponse

Votre réponse

Discussions similaires