美化msflexgrid,隔行颜色显示

Dim h As Integer
   With MSFlexGrid1
        .AllowBigSelection = True   ' 设置网格样式
        .FillStyle = flexFillRepeat
    For h = 0 To .Rows - 1
        .Row = h
        .Col = .FixedCols - 1 ''''MSHFlexGrid 选择的是在列 Col 和 ColSel之间的区域，因为fixedcols的属性为1，也可以直接设.Col =0。
        .ColSel = .Cols() - .FixedCols '''''MSHFlexGrid 选择的是在列 Col 和 ColSel之间的区域。
        If h Mod 2 = 0 Then
            .CellBackColor = &HEFEFEF   '''&HC0C0C0   ' 浅灰
        Else
            .CellBackColor = &H8000000F '
        End If
            .ForeColor = &H0
        Next h
    End With 

 

隔行显示的时候要注意：要先将msflexgrid的背景设置为隔行的颜色，然后再设置字体的颜色，要不然会看不到字体的颜色的。