DUVIDA LISTBOX

USUARIO.EXCLUIDOS 06/11/2004 16:26:20
#49257
é possivel fazer um "busca" no listbox usando mascara??

Ex.:
Itens no ListBox:

Ronald Torres Vieira
Renan Torres Vieira
Fabio Moreira Vieira
José Augusto

Eu quero selecionar o item que possua Moreira.
Como eu faço?
USUARIO.EXCLUIDOS 06/11/2004 18:38:43
#49273 Resposta escolhida
Não é um grande código, mas pode quebrar o galho:
Insira dois listboxes (List1 e List2), um Command e um textbox:

Private Sub Command1_Click()
Dim I As Integer
For I = 0 To List1.ListCount - 1
    If InStr(UCase(List1.List(I)), UCase(Text1.Text)) <> 0 Then List2.AddItem List1.List(I)
Next
End Sub

Private Sub Form_Load()
With List1
    .AddItem "Ronald Torres Vieira"
    .AddItem "Renan Torres Vieira"
    .AddItem "Fabio Moreira Vieira"
    .AddItem "José Augusto"
End With
End Sub

Se a quantidade de itens não exceder a algumas centenas ainda dá para trabalhar, mas, do contrário, ficará muito lento.

Também pode ser inserido no evento change do text, bastando para isso, poucas alterações de código.

Boa noite!
Tópico encerrado , respostas não são mais permitidas
Voltar