Changing the color of an entire row of cells with the MSFlexGrid cntrl

[VBRookie]

VB Rookie here again,

Does anyone know how to change the color of an entire row of cells with the msflexgrid control?

 

[MarkSweetland]

If you've set the Selection mode to ByRow you can select the row and change the Selection Background Color:

Dim oldBackcolor As Long

oldBackcolor = fg.BackColorSel
fg.RowSel = fg.Row
fg.BackColorSel = RGB(255, 0, 0) ' change to red

'...do whatever and then set it back to original

fg.BackColorSel = oldBackcolor

Mark

 

[VBRookie]

Thanks a lot Mark,

I also found another way to do it by looping through each field(cell) as the grid is being populated and using the CellBackcolor property and the QBColor method to manipulate the color:

For x = 1 To rs.Fields.count - 1
     grd.Row = count  'count represents the row number
     grd.Col = x
     grd.CellFontBold = True
     grd.CellBackColor = QBColor(2)
Next

- VB Rookie