关于MSFlexGrid控件

[fanlly]

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

[normandj]

我的一段程序，给你参考一下。

.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

[daisy8675]

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

[fanlly]

感谢至极！

[ZWB_ZYN]

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

[tztz520]

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