如何设置MshflexGrid7.0中,某一行的颜色?

Question

如何设置MshflexGrid7.0中,某一行的颜色?

Answer 1

mshfelxGrid 中有改变某一行颜色的属性吗

Answer 2

'隔行显示蓝和红
Dim i, j As Integer
For j = 1 To Me.MSHFlexGrid1.Cols - 1
For i = 1 To Me.MSHFlexGrid1.Rows - 1
    Me.MSHFlexGrid1.Row = i
    Me.MSHFlexGrid1.Col = j
    If i Mod 2 = 0 Then
        Me.MSHFlexGrid1.CellBackColor = vbBlue
    Else
        Me.MSHFlexGrid1.CellBackColor = vbRed
    End If
Next i
Next j

Answer 3

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