어떻게</p> <p>목록보기 ... 어떻게 하위 항목에 색상을 만드는 방법 목록보기

Question

에 색상을 만들기 위해

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

이 작업을 수행하는 방법. (당신은 색상을 필요로하는 제로로부터 열을가 변경 될 intCol입니다)

Answer 1

다음 코드는 당신이 무엇을 필요로 할 것입니다 :

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) 

참고 나는 code from VBForums을 사용 이 스 니펫의 기초로 열 번호를 사용하도록 연장했습니다.