USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Grid/FlexGrid)

Título da Dica:  Deixando um FlexGrid Zebrado (com 2 Cores Intercaladas)
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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)
 


CyberWEB Network Ltda.    © Copyright 2000-2014   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página