color cells in a msFlexgrid based on cell contents using vb6

Private Sub Command1_Click()

  Dim c As Long
  Dim r As Long
  Dim sC0 As String
  
  Dim nColor As Long
  Dim bTogleColor As Boolean
  
  c = 0
  
  With MSFlexGrid1
  
    '/ Sort Grid by Column 0
    .Col = c
    .ColSel = 0
    .Sort = flexSortGenericAscending
    '/

    sC0 = vbNullString
    
    bTogleColor = False
    nColor = GetColor(bTogleColor)
    
    For r = 1 To .Rows - 1
          If Len(.TextMatrix(r, 0)) > 0 Then
              If r = 1 Then
                  .Row = r
                  .Col = c
            
                  .CellBackColor = nColor
                  sC0 = .TextMatrix(r, 0)
              Else
                  If CheckRow(r, sC0) = False Then
                      bTogleColor = Not bTogleColor
                      nColor = GetColor(bTogleColor)
                      
                      sC0 = .TextMatrix(r, 0)
                  End If
                      
                  .Row = r
                  .Col = c
                    
                  .CellBackColor = nColor
              End If
          End If
    Next

  End With

End Sub

Private Function CheckRow( _
                    ByVal nRow As Long, _
                    ByVal sC0 As String _
                    ) As Boolean
  
  With MSFlexGrid1
      If nRow <= .Rows - 1 Then
          If (Trim(.TextMatrix(nRow, 0)) = Trim(sC0)) Then
              CheckRow = True
          End If
      End If
  End With
  
  Exit Function

End Function


Private Function GetColor( _
                    ByVal bTogleColor As Boolean _
                    ) As Long
                
  GetColor = RGB(255, 100 * Abs(bTogleColor), 100)
  Exit Function

End Function

Select all Open in new window