关于MSFlexGrid控件

Question

在MSFlexGrid控件中,如何为某条特定条件的记录设置需要的背景颜色?比如所有记录背景为白色,字体为黑色,把某条记录的整行背景显示为黄色,字体显示为红色.

Answer 1

怎么不用VSFLEXGRID控件，比MSFLEXGRID功能强大

Answer 2

Private Sub Command1_Click()
Dim I As Integer
MSFlexGrid1.Row = 2'设置第二行
For I = 0 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.Col = I
    MSFlexGrid1.CellBackColor = vbYellow
    MSFlexGrid1.CellForeColor = vbRed
Next I
End Sub

Answer 3

我的一段程序，给你参考一下。.Redraw = False
.FillStyle = flexFillRepeat'给下午着色  --隔行着色应用实例
For Num = 1 To .Rows - 1  step 2
       .Row = Num
       .Col = 1
       .RowSel = Num
       .ColSel = .Cols - 1
       .CellBackColor = Text4.BackColor
Next'画假日、不存在日期单元格颜色　--根据条件，选定单位格范围着色
 For Num = 1 To 31
     Select Case varHoliday(Num)
            Case 0
            Case 1
                 .Col = Num
                 .Row = 1
                 .ColSel = Num
                 .RowSel = .Rows - 1
                 .CellBackColor = Text2.BackColor
            Case 2
                 .Col = Num
                 .Row = 1
                 .ColSel = Num
                 .RowSel = .Rows - 1
                 .CellBackColor = Text3.BackColor
      End Select
Next.Redraw =True

Answer 4

设置CellBackColor这个属性，自己写函数判断