1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[RESOLVIDO][VB6] Pesquisar numa Listview

Discussão em 'Programação' iniciada por filipemm, 26 de Março de 2008. (Respostas: 6; Visualizações: 2060)

  1. filipemm

    filipemm Power Member

    Boas...
    Estou aqui com uma dúvida no VB6...
    Tenho uma listview com dados e pretendo fazer uma textbox em que vou digitando caracteres e na listview vão sendo eliminados os dados que não correspondem ao texto da textbox..
    Já consegui fazer o código correcto para eliminar os dados da listview que não correspondem à textbox... Só que quando apago (com o backspace ou delete) ele não volta a colocar os dados na listview....

    Código:
    [COLOR=#b1b100]Private[/COLOR] [COLOR=#b1b100]Sub[/COLOR] txtPesquisa_Change[COLOR=#66cc66]([/COLOR][COLOR=#66cc66])[/COLOR]
    [COLOR=#b1b100]If[/COLOR] txtPesquisa.[COLOR=#66cc66]Text[/COLOR] <> [COLOR=#ff0000]""[/COLOR] [COLOR=#b1b100]Then[/COLOR]
    x = [COLOR=#cc66cc]1[/COLOR]
    y = lstClientes.[COLOR=#66cc66]ListItems[/COLOR].[COLOR=#b1b100]Count[/COLOR]
    [COLOR=#b1b100]While[/COLOR] [COLOR=#66cc66]([/COLOR]x <= y[COLOR=#66cc66])[/COLOR]
    [COLOR=#b1b100]If[/COLOR] [COLOR=#66cc66]([/COLOR][COLOR=#66cc66]([/COLOR][COLOR=#b1b100]InStr[/COLOR][COLOR=#66cc66]([/COLOR][COLOR=#b1b100]UCase[/COLOR][COLOR=#66cc66]([/COLOR]lstClientes.[COLOR=#66cc66]ListItems[/COLOR].[COLOR=#66cc66]Item[/COLOR][COLOR=#66cc66]([/COLOR]x[COLOR=#66cc66])[/COLOR][COLOR=#66cc66])[/COLOR], [COLOR=#b1b100]UCase[/COLOR][COLOR=#66cc66]([/COLOR]txtPesquisa.[COLOR=#66cc66]Text[/COLOR][COLOR=#66cc66])[/COLOR][COLOR=#66cc66])[/COLOR] > [COLOR=#cc66cc]0[/COLOR][COLOR=#66cc66])[/COLOR][COLOR=#66cc66])[/COLOR][COLOR=#66cc66])[/COLOR] [COLOR=#b1b100]Then[/COLOR] [COLOR=#b1b100]GoTo[/COLOR] Fim
    lstClientes.[COLOR=#66cc66]ListItems[/COLOR].[COLOR=#66cc66]Remove[/COLOR] [COLOR=#66cc66]([/COLOR]x[COLOR=#66cc66])[/COLOR]
    x = x - [COLOR=#cc66cc]1[/COLOR]
    y = y - [COLOR=#cc66cc]1[/COLOR]
    Fim:
    x = x + [COLOR=#cc66cc]1[/COLOR]
    [COLOR=#b1b100]Wend[/COLOR]
    [COLOR=#b1b100]End[/COLOR] [COLOR=#b1b100]If[/COLOR]
    [COLOR=#b1b100]End[/COLOR] [COLOR=#b1b100]Sub[/COLOR]
    Any help?
     
    Última edição: 26 de Março de 2008
  2. Armadillo

    Armadillo Folding Member

    tas afazer um intellisense, certo? cool!
    em que evento tens essas linhas?
     
  3. filipemm

    filipemm Power Member

    Ya.. é quase isso..
    Evento change da textbox..
     
  4. Armadillo

    Armadillo Folding Member

    muda para o evento keydown e depois diz se funca
    ps.nem olhei para o teu codigo, so -> just a guess ;)

    cumps
     
  5. filipemm

    filipemm Power Member

    Nop... já tinha tentado também!
     
  6. Armadillo

    Armadillo Folding Member

    de relance, falta ai uma coisa importante-limpar a listview e voltar a carregar com os dados iniciais
     
  7. filipemm

    filipemm Power Member

    LOOOOOOOOOL.. que esquecimento...
    faltava o Listar_Clientes... thanks a lot ;)
     

Partilhar esta Página