Mesclar linhas

[filipescoob 1]

Como faço para mesclhar a cor de fundo da linha do msflexGrid para o famoso cor sim cor não.Obrigado

[filipescoob 1]

Ninguem nunca precisou usar cores diferentes para diferenciar a informação que esta sendo apresentada ???

[cjfester 0]

Deixando um FlexGrid Zebrado (com 2 Cores Intercaladas)Function EImpar(ByVal iNum As Long) As Boolean   'Verifica se o número é impar   'Se for impar a função retorna True.   'Se for par a função retorna False.   EImpar = (iNum Mod 2)End FunctionSub FlexCores(lCorPar As Long, lCorImpar As Long)Dim iLinha As Integer   SeuMSFlexGrid.FillStyle = flexFillRepeat   For iLinha = 1 To SeuMSFlexGrid.Rows - 1	   With SeuMSFlexGrid			.Row = iLinha			If EImpar(iLinha) Then 'Se a linha for impar:				 'Seleciona a partir da primeira coluna				 .Col = 1				 'Seleciona até a última coluna				 .ColSel = .Cols - 1				 'Aplica a cor				 .CellBackColor = lCorImpar		   Else 'Se a linha for par:				 'Seleciona a partir da primeira coluna				 .Col = 1				 'Seleciona até a última coluna				 .ColSel = .Cols - 1				 'Aplica a cor				 .CellBackColor = lCorPar		   End If	   End With   Next  SeuMSFlexGrid.FillStyle = flexFillSingleEnd Sub'Sintaxe:FlexCores(Cor das linhas pares, Cor das linhas impares)'Exemplo:FlexCores(&HFFFFFF, &HC0FFFF)

Com esse código você faz o MSFlexgrid ficar "zebrado".

 

Você falo algo sobre mesclar, isso pode ter algum efeito visual indesejado, mas nunca testei com flexgrid "mergeado". Lembrando que o merge não altera o número de linhas do flexgrid, apenas visualmente agrupa itens semelhantes como se fosse uma célula só.

 

Provavelmente funcione se você aplicar este código DEPOIS de montar e mesclar as células do flexgrid. Só testando mesmo

 

Abraço

[filipescoob 1]

Kara muito obrigado vou testar aqui pois ja tinha tentando de tudo mas não tava rolando nem a pau...value mesmo