LINHA IMPAR NEGRITO FLEXGRID
Olá estou usando o seguinte código para importar informações de um arquivo xml para um flexgrid.
O nodename é o campo, e o nodetext é o que tem neste campo.
Gostaria de saber a melhor forma pra formatar as celulas ,
Por Exemplo
Quero por exemplo que os nodename na grade fique Negrito, seria mais ou menos como linhas impar e par as imparas fica negrito e as par editável, porque vou deixar que o cliente possa alterar os dados direto na grade.
Estou usando o seguinte código para buscar as informações no arquivo xml.
Private Sub cadastro()
Dim x As Variant
Dim i As Integer
Set objDOC = New DOMDocument
objDOC.Load App.Path & [Ô]\Dados\Cadastro.xml[Ô]
Set objNodeList = objDOC.documentElement.childNodes
Grade.Clear
For Each x In objNodeList
Grade.TextMatrix(1, 1) = objNodeList(0).nodeName
Grade.TextMatrix(2, 1) = objNodeList(0).Text
Grade.TextMatrix(3, 1) = objNodeList(1).nodeName
Grade.TextMatrix(4, 1) = objNodeList(1).Text
Grade.TextMatrix(5, 1) = objNodeList(2).nodeName
Grade.TextMatrix(6, 1) = objNodeList(2).Text
Next
With Grade
.FixedCols = 0
.FormatString = [Ô]|^Dados da Empresa|Dados da Empresa|[Ô]
.MergeCells = flexMergeFree
.MergeRow(0) = True
.Row = 0
.Col = 1
.CellFontSize = 14
.ColWidth(0) = 0
.ColWidth(1) = Principal.Width - 4000
.ColWidth(2) = 0
.ColWidth(3) = 0
End With
End Sub
O nodename é o campo, e o nodetext é o que tem neste campo.
Gostaria de saber a melhor forma pra formatar as celulas ,
Por Exemplo
Quero por exemplo que os nodename na grade fique Negrito, seria mais ou menos como linhas impar e par as imparas fica negrito e as par editável, porque vou deixar que o cliente possa alterar os dados direto na grade.
Estou usando o seguinte código para buscar as informações no arquivo xml.
Private Sub cadastro()
Dim x As Variant
Dim i As Integer
Set objDOC = New DOMDocument
objDOC.Load App.Path & [Ô]\Dados\Cadastro.xml[Ô]
Set objNodeList = objDOC.documentElement.childNodes
Grade.Clear
For Each x In objNodeList
Grade.TextMatrix(1, 1) = objNodeList(0).nodeName
Grade.TextMatrix(2, 1) = objNodeList(0).Text
Grade.TextMatrix(3, 1) = objNodeList(1).nodeName
Grade.TextMatrix(4, 1) = objNodeList(1).Text
Grade.TextMatrix(5, 1) = objNodeList(2).nodeName
Grade.TextMatrix(6, 1) = objNodeList(2).Text
Next
With Grade
.FixedCols = 0
.FormatString = [Ô]|^Dados da Empresa|Dados da Empresa|[Ô]
.MergeCells = flexMergeFree
.MergeRow(0) = True
.Row = 0
.Col = 1
.CellFontSize = 14
.ColWidth(0) = 0
.ColWidth(1) = Principal.Width - 4000
.ColWidth(2) = 0
.ColWidth(3) = 0
End With
End Sub
cara no grid normal tem uma propriedade.. eu faço da seguinte forma. flexgrid não uso então nao tem como eu te ajudar ..
em VB.NET
em VB.NET
With Me.dgItemProposta
.DefaultCellStyle.BackColor = Color.AliceBlue
.AlternatingRowsDefaultCellStyle.BackColor = Color.LightSkyBlue
.Font = New Font(dgItemProposta.Font, FontStyle.Bold)
End With
Tópico encerrado , respostas não são mais permitidas