帮忙--关于listview列表加入颜色板的问题

Question

希望能在listview列表中，存在一列为颜色列，用户到需要改变颜色的某一行选择颜色列表，即象vb属性backcolor中调色板那样，用户可以自己选择颜色，而且listview列表中所选择的那一行内容颜色可以变成所选颜色。
请各位高手帮帮忙，给些思路，谢谢。

Answer 1

建议改用其他网格控件，如MSHFlexGrid，它功能强大，而且支持数据库

Answer 2

Option ExplicitDim itmx As ListItem
Dim i As IntegerPrivate Sub Command1_Click()    CommonDialog1.CancelError = True
    On Error Resume Next    CommonDialog1.Flags = cdlCCRGBInit    CommonDialog1.ShowColor    For Each itmx In ListView1.ListItems
        itmx.ListSubItems(1).ForeColor = Me.CommonDialog1.Color
    Next
    Me.ListView1.RefreshEnd SubPrivate Sub Form_Load()    With Me.ListView1
        .View = lvwReport
        .GridLines = True
        .ColumnHeaders.Add , , "aa"
        .ColumnHeaders.Add , , "bb"
        .ColumnHeaders.Add , , "cc"
    End With    For i = 1 To 100
        Set itmx = Me.ListView1.ListItems.Add(, "A" & i, i)
        itmx.SubItems(1) = i
        itmx.SubItems(2) = i
        itmx.ListSubItems(1).ForeColor = vbRed
    Next i
End Sub