COLORIR LINHAS MSHFLEXGRID DE ACORDO COM CRITERIOS
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.
colega posta o código que está usando para preencher o flexgrid
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
if Codigo = 1 then
flexGrid.CellBackColor = &H000000FF& [ô] Vermelho
else
flexGrid.CellBackColor = &H8000000D& [ô] Azul
endif
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
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
Você tem certeza que é a coluna 7 (index 6) que contem a informação que você usará para classificar?
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!
Abraços!
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.
Acho que o SAMUKA tem razão.
De acordo testei e coloriu legal.
Sei não,mas se tiver muitos arquivos vai demorar.
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!
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!
CLEBERBALMEIDA,
Nos dados que você postou, não existe nenhum dado que seja 1 ou 2
O código deveria ficar assim
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
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!
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!
Te mandei o email Samuka, obrigado!
Tópico encerrado , respostas não são mais permitidas