COLORIR LINHAS MSHFLEXGRID DE ACORDO COM CRITERIOS

CLEBERBALMEIDA 28/07/2013 19:19:19
#426627
Pessoal, peço ajuda a vocês, estou desenvolvendo uma aplicação em vb6 e tenho um MSHFlexGrid1, onde pego os dados de um banco de dados access, até ai, tudo bem, porém, quero que todas as linhas que tiverem com um código [Ô]1[Ô] ficam em vermelho e todas as linhas com código [Ô]2[Ô] em azul.

MARCELO.TREZE 29/07/2013 10:12:28
#426632
colega posta o código que está usando para preencher o flexgrid
JCARLOS 29/07/2013 10:49:07
#426637
flexGrid.col=0 [ô]no caso, vai pintar a coluna 0 e a linha atual que está posicionada.
if Codigo = 1 then
flexGrid.CellBackColor = &H000000FF& [ô] Vermelho
else
flexGrid.CellBackColor = &H8000000D& [ô] Azul
endif
CLEBERBALMEIDA 31/07/2013 08:31:53
#426737
Pessoal, bom dia,

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
SAMUKA 31/07/2013 09:36:57
#426739
Você tem certeza que é a coluna 7 (index 6) que contem a informação que você usará para classificar?
CLEBERBALMEIDA 31/07/2013 10:30:40
#426751
Sim, é ela mesma, se vc puder, te mando por email, o projeto VB e vc me ajuda, olhando o projeto e vendo qual o erro, pode ser? qual teu email amigo? Segue em anexo, a tela como fica.

Abraços!
OMAR2011 31/07/2013 10:53:11
#426753
Resposta escolhida
Você tem certeza que é a coluna 7 (index 6) que contem a informação que você usará para classificar?

Acho que o SAMUKA tem razão.
De acordo testei e coloriu legal.

Sei não,mas se tiver muitos arquivos vai demorar.
CLEBERBALMEIDA 31/07/2013 11:32:20
#426760
Omar e Samuka, se tiver como fazer um projeto e me mandar por email, (cleber.al@hotmail.com), porque a primeira vez que fiz, prestou e a coluna realmente é a 7 (index 6) mesmo. conforme na figura que mandei.

Com esse projeto que vcs fizerem, vou testar e tentar adaptar para o meu projeto, se quiser, também possa mandar meu protesto teste, para o email de vocês, é só me mandar o email, deve ter algo errado com meu mshflesgrid, para não colorir mais.

Abraços!
SAMUKA 31/07/2013 12:27:36
#426766
CLEBERBALMEIDA,

Nos dados que você postou, não existe nenhum dado que seja 1 ou 2
O código deveria ficar assim

If .TextMatrix(iL, 6) = [Ô]Sim[Ô] Then
.CellBackColor = &HFF&
ElseIf .TextMatrix(iL, 6) = [Ô]Não[Ô] Then
.CellBackColor = &HFF0000
End If
CLEBERBALMEIDA 31/07/2013 13:33:01
#426768
rsrs, Samuka, me desculpe, é que 1 ou 2 foi só um exemplo mesmo, que coloquei no fórum, mais meu projeto é com [Ô]Sim[Ô] ou [Ô]não[Ô] mesmo, inclusive, meu código está igual ao que vc postou ai, se possível, vc puder me passar teu email, eu mando meu projeto teste para vc dar uma olhada e ver o que está errado, estou desesperado já com isso...

Esse meu projeto teste é pequeno, pois é só essa parte de colorir o mshflexgrid mesmo, depois é que vou juntar no projeto completo.

Me ajuda por favor!
CLEBERBALMEIDA 31/07/2013 15:24:58
#426790
Te mandei o email Samuka, obrigado!
Página 1 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas