ZEBRANDO UM FLEX GRID C/ BASE NO RECORDSET

 Tópico anterior Próximo tópico Novo tópico

ZEBRANDO UM FLEX GRID C/ BASE NO RECORDSET

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#454 - 10/12/2003 08:22:54

USUARIO.EXCLUIDOS

Cadast. em:


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 abrao.

Eric



Resposta escolhida #495 - 10/12/2003 10:35:07

USUARIO.EXCLUIDOS

Cadast. em:


Acho q tenho a soluo de seu problema !!
Eu deixo ele zebrado quando eu fao uma busca nele e acho alguma coisa. Eu no 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. Fao 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 anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45