数据显示控件当前行的背景色

Question

数据显示控件中当选中某行使当前被选种行的背景色为指定颜色.不管是增加还是删除更新要保持总之当前行的背景色为指定的颜色,用哪个控件实现起来要方便一点呢?

Answer 1

还是用VsFlexGrid吧，功能比较强大！

Answer 2

添加 MSHFlexgrid 控件Private Sub Form_Load()
    Dim i As Integer, j As Integer
    With MSHFlexGrid1
        .Rows = 5
        .Cols = 4
        .BackColor = &HC0FFFF
        For i = 1 To 4
            For j = 1 To 3
                .TextMatrix(i, j) = i * j
            Next
        Next
    End With
End SubPrivate Sub MSHFlexGrid1_Click()
    Dim MSHFlexGrid1Rowsel As Integer
    MSHFlexGrid1Rowsel = MSHFlexGrid1.RowSel
    Dim i As Integer
    For i = 1 To MSHFlexGrid1.Rows - 1
        MSHFlexGrid1.Row = i
        MSHFlexGrid1.Col = 1
        MSHFlexGrid1.CellBackColor = &HC0FFFF
        MSHFlexGrid1.Col = 2
        MSHFlexGrid1.CellBackColor = &HC0FFFF
        MSHFlexGrid1.Col = 3
        MSHFlexGrid1.CellBackColor = &HC0FFFF
    Next
    
    MSHFlexGrid1.Row = MSHFlexGrid1Rowsel    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.CellBackColor = vbGreen
    MSHFlexGrid1.Col = 2
    MSHFlexGrid1.CellBackColor = vbGreen
    MSHFlexGrid1.Col = 3
    MSHFlexGrid1.CellBackColor = vbGreenEnd Sub