ALTERNANDO COR DAS LINHAS NO MSFLEXGRID
Caros amigos,
Estou usando o MsFlexGrid pela primeira fez e já estão surgindo algumas dúvidas simples mais que não encontrei por aqui como por exemplo deixar minhas linhas do grid com cores alternadas, ou seja, zebrado.
Estou usando o MsFlexGrid pela primeira fez e já estão surgindo algumas dúvidas simples mais que não encontrei por aqui como por exemplo deixar minhas linhas do grid com cores alternadas, ou seja, zebrado.
Function EImpar(ByVal iNum As Long) As Boolean
EImpar = (iNum Mod 2)
End Function
Sub FlexCores(lCorPar As Long, lCorImpar As Long, NomedoGrid As MSFlexGrid)
Dim iLinha As Integer
With NomedoGrid
.FillStyle = flexFillRepeat
For iLinha = 1 To .Rows - 1
.Row = iLinha
If EImpar(iLinha) Then
.Col = 0
.ColSel = .Cols - 1
.CellBackColor = lCorImpar
Else
.Col = 0
.ColSel = .Cols - 1
.CellBackColor = lCorPar
End If
Next
.FillStyle = flexFillSingle
.ColSel = 0
End With
End Sub Chame a rotina assim:
FlexCores &HE0E0E0, &HFFFFFF, MSFlexgrid1
Não esqueça de encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas