怎么在listview控件中对区出的数值显示不同的颜色!

Question

列如:
用户     类型
张三      VIP会员 -------->显示红色
李四      钻石会员-------->显示蓝色
六刘      一般会员-------->显示绿色

Answer 1

Private Sub Form_Load()
    Dim itemx As ListItem
    Dim i As Integer
    With ListView1
        .ColumnHeaders.Add , , "序号"
        .ColumnHeaders.Add , , "文件路径及名称"
'        .ColumnHeaders.Add , , "时间"
'        .ColumnHeaders.Add , , "权限"
        .FullRowSelect = True
        .GridLines = True
        .View = lvwReport
        Set itemx = .ListItems.Add(, , "1")
        itemx.SubItems(1) = "c:\db.txt"
        itemx.ForeColor = vbRed
        For i = 1 To ListView1.ColumnHeaders.Count - 1
            .ListItems(1).ListSubItems(i).ForeColor = vbRed
        Next
        Set itemx = .ListItems.Add(, , "2")
        itemx.SubItems(1) = "c:\cd.txt"
        itemx.ForeColor = vbBlue
        For i = 1 To ListView1.ColumnHeaders.Count - 1
            .ListItems(2).ListSubItems(i).ForeColor = vbBlue
        Next
        Set itemx = .ListItems.Add(, , "3")
        itemx.SubItems(1) = "c:\md.txt"
        itemx.ForeColor = vbGreen
        For i = 1 To ListView1.ColumnHeaders.Count - 1
            .ListItems(3).ListSubItems(i).ForeColor = vbGreen
        Next
    End With
End Sub