如何在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 的代码 作为此代码段的基础，并将其扩展为使用列号