MSFLEXGRID: LINHAS COM CORES DIFERENTES

KELLY 21/07/2013 18:34:27
#426344
Boa noite turminha,

Estou com um MSFlexgrid e gostaria de colocar uma linha marrom e outra branca, mas meu código faz isso só com uma célula, quero uma linha inteira. Como faço?
Segue meu código:

For i = 1 To nLinha

If (i Mod 2) = 0 Then
MSFlexGrid1.Col = 6
MSFlexGrid1.Row = i
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellBackColor = &H40C0&
Else
MSFlexGrid1.Col = 6
MSFlexGrid1.Row = i
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.CellBackColor = vbWhite
End If

Next i
OMAR2011 21/07/2013 21:04:56
#426347 Resposta escolhida
http://www.vbmania.com.br/pages/?varModulo=Forum&varMethod=abrir&varID=327833
http://www.macoratti.net/d220102.htm

Vale ressaltar que o listview é mais rápido.
NILTON.VIANNA 22/07/2013 15:08:33
#426371
Estou usando assim

[ô]FG2 é MSFlexGrid1
[ô]Varrendo todas as linhas ver negativos (-)
For i = 1 To FG2.Rows - 1
If Val(FG2.TextMatrix(i, 5)) <= ([Ô]0.000[Ô]) Then [ô]Verificando na linha, o conteúdo da coluna 6
For Coluna = 0 To FG2.Cols - 1 [ô]Varre todas as colunas da linha e seta a cor de fundo
FG2.Col = Coluna
FG2.Row = i
FG2.CellBackColor = &H80000013
FG2.CellForeColor = &H80& [ô]Letras em Vermelho
LBStatus.Caption = [Ô]NG[Ô]
Next Coluna
ElseIf Val(FG2.TextMatrix(i, 5)) > ([Ô]0.000[Ô]) Then [ô]Verificando na linha, o conteúdo da coluna 6
FG2.CellForeColor = &H0& [ô]Letras em Pretas
End If
Next i
KELLY 22/07/2013 23:31:56
#426394
Obrigado pessoal pela ajuda!
Agora deu para eu fazer um código baseado nos exemplos que vocês me indicaram.
Tópico encerrado , respostas não são mais permitidas
Voltar