ZEBRANDO UM FLEX GRID C/ BASE NO RECORDSET

USUARIO.EXCLUIDOS 10/12/2003 08:22:54
#454
Bom dia Galera...

Por favor estou com dificuldades em "zebrar" um flex grid, eu ja pegeui o codigo q esta disponivel aqui no forum, mas nao tive sucesso...
Eu queria mudar de cor da linha quando eu mandasse dar um recordset.movenext, sera que alguem poderia fazer a gentileza de me ajudar???

Por favor...

Muito Obrigado,

Um abraço.

Eric
USUARIO.EXCLUIDOS 10/12/2003 10:35:07
#495 Resposta escolhida
Acho q tenho a solução de seu problema !!
Eu deixo ele zebrado quando eu faço uma busca nele e acho alguma coisa. Eu não estou usando mais essa rotina, mas deve funcionar ...


Private Sub FlexCores(lCorPar As Long, lCorImpar As Long)
'Deixar o FlexGrid Zebrado
  
  Dim iLinha As Integer

  grd_veiculos.FillStyle = flexFillRepeat
  For iLinha = 1 To grd_veiculos.Rows - 1
     With grd_veiculos
       .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
  grd_veiculos.FillStyle = flexFillSingle
End Sub


Tenho outra para deixar a coluna com o texto em negrito. Faço uma busca e se encontro eu deixo a coluna como escrito em negrito ...


Private Sub cmd_Localizar_Click()
' Ele faz uma pesquisa "like" no grid, pegando tudo o que existe com o que você
' informou no text.

'Select the entire grid and remove any bold formatting from previous finds
grd_veiculos.Col = 0
grd_veiculos.Row = 0
grd_veiculos.ColSel = grd_veiculos.Cols - 1
grd_veiculos.RowSel = grd_veiculos.Rows - 1
grd_veiculos.FillStyle = flexFillRepeat
grd_veiculos.CellFontBold = False
  
'Search the grid cell by cell to find text and make the found cell bold
grd_veiculos.FillStyle = flexFillSingle
For i = 0 To grd_veiculos.Cols - 1
    For j = 1 To grd_veiculos.Rows - 1
        'If current cell matches the find text
        If InStr(grd_veiculos.TextMatrix(j, i), TextString.Text) Or InStr(LCase(grd_veiculos.TextMatrix(j, i)), LCase(TextString.Text)) Then
            'Select the cell and format it bold
            grd_veiculos.Col = i
            grd_veiculos.Row = j
            grd_veiculos.CellFontBold = True
            'grd_veiculos.CellForeColor = &HFF0000
        End If
    Next j
Next i

For i = 0 To grd_veiculos.Cols - 1
    For j = 1 To grd_veiculos.Rows - 1
        If (grd_veiculos.CellFontBold = True) Then
            grd_veiculos.Sort = flexSortGenericAscending
            grd_veiculos.CellFontBold = True
        End If
    Next j
Next i
Me.Frame_Localizar.Visible = False

End Sub


Espero ter ajudado ...
Falow.
Tópico encerrado , respostas não são mais permitidas
Voltar