DIGITAR NO TXTBOX E APARECER NO LISTBOX

USUARIO.EXCLUIDOS 05/03/2005 13:43:46
#71243
Ola!,

eu tenho um listbox com um monte de intems de um banco de dados, e um textobox em cima...

prescisava saber se posssivel rapidamente, como eu faço para que quando eu for digitando no textbox, o listbox vai selecionando o item mais parecido...

tentei usar a api sendmessage pra procurar a string mais ela sempre retorna 0

alguem tem alguma solução ae, q quma serve pois sou eu que vai usar o programinha msn...

t+
USUARIO.EXCLUIDOS 05/03/2005 14:01:35
#71247 Resposta escolhida
aqui tem um exemplo fácil fácil!
BUSCAS EM LIST E COMBO BOXES

t++
GIOVANI.ARRUDA 05/03/2005 14:53:45
#71256
E ai Julio !

Isso resolve teu problema.

Private sub TxtConsulta_Change()

Search = UCase(TxtConsulta.Text)
Searchlen = Len(Search)
If Searchlen Then
For i = 0 To LstUsuarios.ListCount - 1
If UCase(Left(LstUsuarios.List(i), Searchlen)) = Search Then
LstUsuarios.ListIndex = i
Exit For
End If
Next
End If

End SUb

Só muda o TxtConsulta Para o nome da tua TextBox
eo LstUsuarios para o nome da Tua ListBox

Certo?
ARCE 05/03/2005 15:20:01
#71262
O exemplo que o GERMANIR passou (ai no link) é interassante pra caramba!
USUARIO.EXCLUIDOS 05/03/2005 20:08:27
#71291
ola!,

ok pessoal muitissimo obrigado
estou em um aniverssario agora assim que testar fecho o tópico

t+ pessoal valews mesmo
Tópico encerrado , respostas não são mais permitidas
Voltar