COMO FORMATAR COLUNAS NO MSHFLEXGRID?

LCSD 13/07/2005 13:26:57
#93923
Boa Tarde, galerinha....

Como que eu faço pra formatar uma COLUNA no MSHFLEXGRID via código. Têm como fazer isso??
JEAN.JEDSON 13/07/2005 13:31:21
#93927
Resposta escolhida
algum destes dois códigos lhe ajuda (ambos foram pegos em respostas a posts recentes sobre flexgrid, e precisam ser adaptados):

For i = 1 To FlexGridEstoqueFinal.Rows - 1
FlexGridEstoqueFinal.TextMatrix(i, 14) = Format(FlexGridEstoqueFinal.TextMatrix(i, 14), "###,##0.00")
Next


ou então


Sub CordeFundo(NomedoGrid As MSFlexGrid)
Dim L As Integer: Dim C As Integer
With NomedoGrid
.FillStyle = flexFillSingle
'Supondo que a coluna á ser verificada seja a 3

For L = 1 To .Rows - 1
For C = 1 To .Cols - 1
.Col = C: .ColSel = .Col: .Row = L
Select Case C
Case Is = 3
If CDate(.TextMatrix(L, C)) < Date Then
.CellBackColor = vbRed ' Cor de Fundo
'Fica um pouquinho melhor se usar .CellForeColor = vbRed ' Cor da Fonte
Else
.CellForeColor = vbBlue
End If
End Select
Next
Next

.FillStyle = flexFillRepeat
End With
End Sub
USUARIO.EXCLUIDOS 13/07/2005 13:31:22
#93928
VarColuna = 2
For a = 0 to flex.rows
Flex.Row = a
Flex.Col = VarColuna
Flex.CellBackColor = VbRed
Flex.CellFontName = "Verdana"
Flex.CellFontSize = "12"
Next a

é isso?
LCSD 15/07/2005 11:47:32
#94299
Valeu...

AS duas respostas me ajudaram a resolver o meu problema.
Tópico encerrado , respostas não são mais permitidas