AUTOCOMPLETAR COM TEXTBOX E LISTVIEW COMO?

STEWARTCINTRA 13/02/2010 13:19:36
#334346
ola galera
jah tentei um monte de codigo na internet ai mas naum deu certo nenhum akii
sobre autocompletar usando um listview e uma caixa de texto, ao ir digitando na textbox a listview ir selecionando automaticamente

quem souber posta aii um pequeno exemplo

obrigadoo
DANIKULL 13/02/2010 13:55:36
#334352
Citação:

:
ola galera
jah tentei um monte de codigo na internet ai mas naum deu certo nenhum akii
sobre autocompletar usando um listview e uma caixa de texto, ao ir digitando na textbox a listview ir selecionando automaticamente

quem souber posta aii um pequeno exemplo

obrigadoo



Boa tarde...

Veja se este artigo te ajuDA.

ListView - Exibindo dados com busca dinâmica

PEGUDO 14/02/2010 19:55:10
#334405 Resposta escolhida
Olá STEWART

Eu fiz este exemplo sem conectar a um banco de dados, então lembre-se de, depois de testar este exemplo e for o que você quer,
Faça as mudanças necessárias para suas necessidades, OK?

[txt-color=#007100][ô]Aqui eu preenchi a ListView[/txt-color]

[txt-color=#0000f0]Private Sub[/txt-color] Form_Load()
ListView1.ListItems.Add , , [Ô]Asa de frango[Ô]
ListView1.ListItems.Add , , [Ô]Carré[Ô]
ListView1.ListItems.Add , , [Ô]Peito[Ô]
ListView1.ListItems.Add , , [Ô]Acém[Ô]
ListView1.ListItems.Add , , [Ô]Bisteca[Ô]
ListView1.ListItems.Add , , [Ô]Moela[Ô]
ListView1.ListItems.Add , , [Ô]Coxa[Ô]
ListView1.ListItems.Add , , [Ô]Pescoço[Ô]
ListView1.ListItems.Add , , [Ô]Drumette[Ô]
ListView1.ListItems.Add , , [Ô]Hambuguer[Ô]
ListView1.ListItems.Add , , [Ô]Mocotó[Ô]
ListView1.ListItems.Add , , [Ô]Fraldinha[Ô]
ListView1.ListItems.Add , , [Ô]Lombinho[Ô]
ListView1.ListItems.Add , , [Ô]Chã[Ô]
ListView1.ListItems.Add , , [Ô]Patinho[Ô]
[txt-color=#0000f0]End Sub[/txt-color]

[txt-color=#007100][ô]Agora, no evento CHANGE do Text1, coloquei[/txt-color]
[txt-color=#0000f0]Private Sub [/txt-color]Text1_Change()
[txt-color=#0000f0]Dim[/txt-color] Item [txt-color=#0000f0]As[/txt-color] ListItem
[txt-color=#0000f0]With[/txt-color] ListView1
[txt-color=#0000f0]If Not [/txt-color]Text1.Text = [txt-color=#0000f0]Empty Then[/txt-color]
[txt-color=#0000f0]Set[/txt-color] Item = .FindItem(Text1.Text, lvwText, , lvwPartial) [txt-color=#007100][ô]Esta é a linha chave do comando. é ela que vai procurar as palavras no ListView[/txt-color]
[txt-color=#0000f0] If Not [/txt-color]Item [txt-color=#0000f0]Is Nothing Then[/txt-color]
.ListItems(Item.Index).Selected = [txt-color=#0000f0]True[/txt-color]
.ListItems(Item.Index).EnsureVisible
.HideSelection =[txt-color=#0000f0] False[/txt-color]
[txt-color=#0000f0] Else[/txt-color]
.HideSelection = [txt-color=#0000f0]True[/txt-color]
[txt-color=#0000f0] End If[/txt-color]
[txt-color=#0000f0]Else[/txt-color]
.HideSelection = [txt-color=#0000f0]True[/txt-color]
[txt-color=#0000f0] End If[/txt-color]
[txt-color=#0000f0]End With[/txt-color]
[txt-color=#0000f0]Set[/txt-color] Item = [txt-color=#0000f0]Nothing[/txt-color]
[txt-color=#0000f0]End Sub[/txt-color]

Espero ter ajudado.
STEWARTCINTRA 14/02/2010 21:24:11
#334408
Valew pegudoo

okk

orbigadooo deu certin akii

temais
abrazzzzzz
Tópico encerrado , respostas não são mais permitidas
Voltar