Colorir linha do msflexgrid quando campo Código for = "1"

[cleberbalmeida 0]

Agradeço a quem puder me ajudar, estou com uma aplicação vb6, e quero colocar a linha do mshflexgrid em vermelho quando o campo código for "1" e em azul quando o código for "2".

 

Obrigado!

[KhaosDoctor 242]

https://www.google.com.br/search?q=colorir+grid+vb6&rlz=2C1SAVM_enBR0536BR0536&oq=colorir+grid+vb6&aqs=chrome.0.69i57j0.2716j0&sourceid=chrome&ie=UTF-8

[cleberbalmeida 0]

Amigo, obrigado pela ajuda, porém, já tentei pesquisar em várias páginas no google, inclusive, tentei hoje nesse link que vc me mandou, porém, não consegui ainda, se puder, me manda o código ai, como fazer para colocar as linhas do datagrid ou do mshflexgrid (posso trabalhar com os dois), na cor vermelha se o campo código for "1" e em azul quando o código for "2".

 

Obrigado!

[KhaosDoctor 242]

Cara eu te mandei umas 50 páginas que poderiam ter sua solução apenas neste link. Não vou mandar o código pronto, até porque não o tenho feito, e também porque o objetivo deste fórum é aprender e não dar a resposta

[cleberbalmeida 0]

Amigo, bom dia,

 

Pesquisando nas páginas que me enviou, encontrei algumas coisas, porém, ainda não consegui, quero é que todas as linhas que estiverem com o código 1, fiquem vermelho, vão ser várias linhas e as outras linhas que tb vão ser várias, que estiverem com o código 2, fiquem em azul.

Já tentei utilizar conforme abaixo, porém, ainda cheguei a obter resultado, depois, não sei se modifiquei alguma propriedade do mshflexgrid que não funcionou mais.

Sub ColorirGrid()
Dim iL As Integer, iC As Integer
With TDBGrid1
For iL = 1 To .Rows - 1
For iC = 0 To .Cols - 1
.Col = iC
.Row = iL
If .TextMatrix(iL, 6) = "1" Then
.CellBackColor = &HFF&
ElseIf .TextMatrix(iL, 6) = "2" Then
.CellBackColor = &HFF0000
End If
Next iC
Next iL
End With
End Sub

[KhaosDoctor 242]

O que você fez logo depois de obter resultado?