|
|
|
| Title | Color FlexGrid entries greater than a certain value |
|---|
| Keywords | FlexGrid, cell, color |
|---|
| Categories | Controls |
|---|
|
|
|
Use the control's Row, Col, and Text properties to examine the values. Use the CellForeColor property to change the colors when appropriate.
|
|
Private Sub Data1_Reposition()
Dim i As Integer
For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = i
If CCur(MSFlexGrid1.Text) > 100 Then
MSFlexGrid1.CellForeColor = vbRed
End If
Next i
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
End Sub
|
| |
|
| |
|
|
