[RESOLVIDO][VB6] Pesquisar numa Listview

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:
Inicie sessão ou registe-se para poder participar.
Back
Topo