怎么将MSFlexGrid中指定行显示为指定颜色？？？

[penghongjie]

怎么将MSFlexGrid中指定行显示为指定颜色？？？

[hanstins]

MSFlexGrid1.CellBackColor
当前单元格颜色背景色

[hn123]

Option Explicit

Private Sub Form_Load()
Me.MSHFlexGrid1.Rows = 10
Me.MSHFlexGrid1.Cols = 10
End Sub

Private Sub MSHFlexGrid1_Click()
Dim i As Integer
Dim j As Integer

Select Case Me.MSHFlexGrid1.Row
Case 1
For j = 1 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.Col = j
MSHFlexGrid1.CellBackColor = vbRed
Next
Case 2
For j = 1 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.Col = j
Me.MSHFlexGrid1.CellBackColor = vbGreen
Next
End Select

End Sub

[penghongjie]

.CellBackColor 这个方法只是设置某个单元格的颜色
我要将整行变为指定颜色有没有其它方法，必须用循环嘛？

[of123]

必须循环更改该行所有单元格的背景色。

[of123]

不过你可以写成一个过程：
Public Sub RowColor(fGrid As MSFlexGrid, ByVal Row As Integer, Optional ByVal BackColor As Long, Optional ByVal ForeColor As Long)
Dim oldRow As Integer, oldCol As Integer
Dim bkclr As Long, frclr As Long
Dim i As Integer

bkclr = fGrid.BackColor
frclr = fGrid.ForeColor

If BackColor Then bkclr = BackColor
If ForeColor Then bkclr = ForeColor

oldRow = fGrid.Row
oldCol = fGrid.Col
fGrid.Redraw = False

fGrid.Row = Row
For i = 0 To fGrid.Cols - 1
If i >= fGrid.FixedCols Then
fGrid.Col = i
fGrid.CellBackColor = bkclr
fGrid.CellForeColor = frclr
End If
Next i
fGrid.Col = oldCol
fGrid.Row = oldRow
fGrid.Redraw = True
fGrid.Refresh
End Sub