• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

filipemm

[RESOLVIDO]Pesquisar numa Listview

6 mensagens neste tópico

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

Private Sub txtPesquisa_Change()
     Listar_Clientes
     If txtPesquisa.Text <> "" Then
          x = 1
          y = lstClientes.ListItems.Count
          While (x <= y)
                 If ((InStr(UCase(lstClientes.ListItems.Item(x)), UCase(txtPesquisa.Text)) > 0))) Then GoTo Fim
                 lstClientes.ListItems.Remove (x)
                 x = x - 1
                 y = y - 1
                 Fim:
                     x = x + 1
          Wend
     End If
End Sub

Any help??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Poe a solução. Podes ajudar outra pessoa com a mesma duvida. :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Poe a solução. Podes ajudar outra pessoa com a mesma duvida. :)

Código actualizado.. faltava listar os clientes..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

E que tal indentares os teu código? :biggrin:

LOOOOL.. pois é!

Em vb nunca tive esse bom hábito.. parece-me que fica melhor assim... (mas eu vou editar xDD)

Mas nas outras linguagens idento :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora