Как сделать цвет в Listview

Question

Как сделать цвет в подпункте ...

ListView

Listview1.Item(1).SubItems(2) 'I want ot make color on this column

Как это сделать.

Answer 1

Следующий код сделает то, что вам нужно (intCol - это столбец с нулями, для которого требуется изменить цвет):

Public Sub SetListviewItemColour(lvControl As ListView, intRow As Long, ByVal intCol As Integer, lngColour As Long)

    Dim liItem As ListItem
    Dim liSubItem As ListSubItem
    Dim intIndex As Integer

    On Error GoTo errHand

    Set liItem = lvControl.ListItems(intRow)
    If intCol = 0 Then
        liItem.ForeColor = lngColour
        GoTo CleanUp
    End If

    For intIndex = 1 To lvControl.ColumnHeaders.Count - 1
    If intIndex = intCol Then
        Set liSubItem = liItem.ListSubItems(intIndex)
        liSubItem.ForeColor = lngColour
        GoTo CleanUp
        End If
    Next

CleanUp:
    Set liItem = Nothing
    Set liSubItem = Nothing

    Exit Sub
errHand:
    MsgBox Err.Description
End Sub

Использование:

Call SetListviewItemColour(ListView1, 3, 1, vbRed)

Обратите внимание, что я использовал код из VBForums в качестве основы для этого фрагмента и расширил его, чтобы использовать номер столбца