MUDAR COR DA FONTE NO FLEXGRID
Boa Tarde,
Preciso mudar á cor de determinada linha em uma grid. Ex: na linha em que tiver "pagto" deve ficar vermelho.
Podem me ajudar ?
Preciso mudar á cor de determinada linha em uma grid. Ex: na linha em que tiver "pagto" deve ficar vermelho.
Podem me ajudar ?
Exemplo bem básico, bem bobo mesmo, mas deve ajudar. Dá para mudar o estilo, a fonte, a cor de frente, a cor de fundo... O modelo é o mesmo.
Private Sub Form_Load()
Dim c As Integer
Dim l As Integer
Dim d As Double
Dim oC As OLE_COLOR
fg.FormatString = "primeiro|segundo|terceiro|quarto|quinto"
For c = 1 To fg.Cols - 1
For l = 1 To fg.Rows - 1
fg.Col = c
fg.Row = l
d = l / 2
If (l - d) = (l - Int(d)) Then
oC = vbRed
Else
oC = vbBlue
End If
fg.CellAlignment = vbCenter
fg.CellForeColor = oC
fg.TextMatrix(l, c) = "TESTE"
Next l
Next c
End Sub
Private Sub Form_Load()
Dim c As Integer
Dim l As Integer
Dim d As Double
Dim oC As OLE_COLOR
fg.FormatString = "primeiro|segundo|terceiro|quarto|quinto"
For c = 1 To fg.Cols - 1
For l = 1 To fg.Rows - 1
fg.Col = c
fg.Row = l
d = l / 2
If (l - d) = (l - Int(d)) Then
oC = vbRed
Else
oC = vbBlue
End If
fg.CellAlignment = vbCenter
fg.CellForeColor = oC
fg.TextMatrix(l, c) = "TESTE"
Next l
Next c
End Sub
Tá explicado aà em cima. Não mude o ForeColor, mude o CellForeColor.
Tópico encerrado , respostas não são mais permitidas