|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Grid/FlexGrid)
|
|
 |
Título da Dica: Deixando um FlexGrid Zebrado (com 2 Cores Intercaladas)
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
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 Function
Sub 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 = flexFillSingle
End Sub
'Sintaxe:
FlexCores(Cor das linhas pares, Cor das linhas impares)
'Exemplo:
FlexCores(&HFFFFFF, &HC0FFFF)
|
|
|
|
|
