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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Pesquisa em FlexGrid
Ricardo
não registrado
Postada em 17/08/2007 20:58 hs   
Olá estou querendo fazer um fom de pesquisa onde terá um text e um flexgrid com os dados de um banco de dados.
O text será todo transparente inclusive a propriedade BackcolorSel.
conforme o cliente vai digitando algo no text como um código qualquer  ele fas uma busca no flex e ao encontrar ele torna o texto encontrado em negrito/italico e com outra cor ,mais teria que ser no evento change.
 
Será que alguem já fez isto ou algo parecido pra me dar uma luz.
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
Postada em 18/08/2007 11:13 hs            
Ricardo, registre-se é fácil e rápido, agora com relação a sua questão, passe seu email, te envio um exemplo, onde a pesquisa é feita no Flex, no evento KeyUp do Text, ou seja, a medida que o usuário digita, vai rolando no Flex.
 
vlu//
     
RicoCardozo
PONTA GROSSA
PR - BRASIL
Postada em 18/08/2007 23:51 hs            
Olá.
Este é o código:
 
Private Sub SELECIONA()
Dim i As Integer, sProcura As String, sGrid As String
Dim bComp As Byte
grade.Visible = True
sProcura = UCase(TEXTevento.Text)
bComp = Len(sProcura)
If IsNumeric(TEXTevento.Text) = True Then
For i = 0 To grade.Rows - 1
  sGrid = UCase(grade.TextMatrix(i, 1))
  If sProcura = Left$(sGrid, bComp) Then
    grade.Row = i
    grade.Col = 0
    grade.ColSel = grade.Cols - 1
    grade.TopRow = grade.Row
    Grade.CellFontBold = True
    Grade.CellFontItalic = True

    Exit For
  End If
Next
Else
For i = 0 To grade.Rows - 1
  sGrid = UCase(grade.TextMatrix(i, 2))
  If sProcura = Left$(sGrid, bComp) Then
    grade.Row = i
    grade.Col = 0
    grade.ColSel = grade.Cols - 1
    On Error Resume Next
    grade.TopRow = grade.Row
    Grade.CellFontBold = True
    Grade.CellFontItalic = True
    Exit For
  End If
Next
End If
End Sub
 
O que está acontecendo é o seguinte :
O Flex é todo transparenete sem linhas sem grades sem nada , a medida que o cara digita algo no text ele sleciona no flex certo, só que ao invés de selecionar eu queria que ele apenas mude a fonte da linha selecionada para italico e bold, por isso coloquei o (grade.CellFontBold = True) só que não está funcionando, ele muda a cor da fonte por causa do highlight mais não fica bold nem italico.
 
O que pode estar errado?
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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