为VSFlexGrid里的行设为不同颜色

FRtfp 2003-08-22 02:14:20

为VSFlexGrid里的行设为不同颜色
请问用哪个属性或方法

求代码

...全文

27 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

FRtfp 2003-08-22

打赏
举报

谢谢两位

lihonggen0 2003-08-22

打赏
举报

VSFlexGrid1.Row = 1
For i = 1 To VSFlexGrid1.Cols - 1
VSFlexGrid1.Col = i
VSFlexGrid1.CellBackColor = vbBlue
Next
VSFlexGrid1.Row = 2
For i = 1 To VSFlexGrid1.Cols - 1
VSFlexGrid1.Col = i
VSFlexGrid1.CellBackColor = vbRed
Next

射天狼 2003-08-22

打赏
举报

Private Sub Form_Load()
Dim i As Long, j As Long

MSFlexGrid1.Redraw = False
For i = 1 To MSFlexGrid1.Rows - 1
For j = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.CellBackColor = IIf(i Mod 2 = 0, vbGreen, vbWhite)
Next
Next
MSFlexGrid1.Redraw = True
End Sub

lihonggen0 2003-08-22

打赏
举报

VSFlexGrid1.Row = 1
For i = 1 To VSFlexGrid1.Cols - 1
VSFlexGrid1.Col = i
VSFlexGrid1.CellBackColor = vbBlue
Next

VSFlexGrid1.Row = 2
For i = 1 To VSFlexGrid1.Cols - 1
VSFlexGrid1.Col = i
VSFlexGrid1.CellBackColor = vbRed
Next