MUDAR A COR DE FONTE DE UMA COLUNA
Como eu faço para mudar a cor da fonte somente de uma coluna no flexgrid?
Consegui isso, mas, só colore a linha, vê se consegue adaptar.
[txt-color=#e80000]Dim bCor As Boolean
For i = 1 To Tabela.Rows - 1
bCor = Not bCor
For icol = 1 To Tabela.Cols - 1
Tabela.Row = i
Tabela.Col = icol
If bCor Then
Tabela.CellForeColor = &HFF&
Else
Tabela.CellForeColor = &HFF00&
End If
Next
Next[/txt-color]
Boa sorte.
[txt-color=#e80000]Dim bCor As Boolean
For i = 1 To Tabela.Rows - 1
bCor = Not bCor
For icol = 1 To Tabela.Cols - 1
Tabela.Row = i
Tabela.Col = icol
If bCor Then
Tabela.CellForeColor = &HFF&
Else
Tabela.CellForeColor = &HFF00&
End If
Next
Next[/txt-color]
Boa sorte.
usando seu código:
fica zebrado as linhas... uma linha fica com a fonte toda vermelha e a outra fica toda verde...
o que quero é só mudar a cor de fonte de uma COLUNA toda... mudar por exemplo a cor de fonte da coluna 3
Dim bCor As Boolean
For i = 1 To .Rows - 1
bCor = Not bCor
For icol = 1 To .Cols - 1
.Row = i
.Col = icol
If bCor Then
.CellForeColor = &HFF&
Else
.CellForeColor = &HFF00&
End If
Next
Next
fica zebrado as linhas... uma linha fica com a fonte toda vermelha e a outra fica toda verde...
o que quero é só mudar a cor de fonte de uma COLUNA toda... mudar por exemplo a cor de fonte da coluna 3
é o mesmo Código postado acima só retira a Rotina IF bCor Then dai...que ae toda Coluna fica da Cor q vc quer..
For i = 1 To .Rows - 1
Grid.Row = i
Grid.Col = 3
Grid.CellForeColor = &HFF00&
Next
For i = 1 To .Rows - 1
Grid.Row = i
Grid.Col = 3
Grid.CellForeColor = &HFF00&
Next
Tópico encerrado , respostas não são mais permitidas