Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Mariano2

[Finalizado] TextBox e ListView no VB6

Recommended Posts

Alguém pode me ajudar, estou criando um programinha para mim para requisição de matériais e tenho um listview preenchido com dados de uma tabela ACCESS e tenho um objeto Text1 preciso que quando for digitando neste Text1 vai selecionando o item do meu ListView1.Como fazer. Estou tentando aprender VB6 por isso a dificuldade.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Mariano2, Seja Bem Vindo ao Fórum iMasters, de uma olhada em nossas regras: Regras do Fórum iMasters

 

O que você quer fazer é como um AutoCompletar que você vai digitando e ele vai selecionando?

 

Abraços...

 

Isto mesmo vou digitando no textbox e vai AutoCompletando e selecionando no ListView do formulário.

 

 

E so para tirar a duvida o que esta errado no meu post que me pediou pra ver as regar do forum...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Veja se te ajuda:

 

Private Sub Form_Load()
	With List1
		.AddItem "São Paulo"
		.AddItem "Rio Janeiro"
		.AddItem "Salvador"
		.AddItem "Florianópolis"
		.AddItem "Belo Horizonte"
		.AddItem "Mogi das Cruzes"
		.AddItem "Suzano"
		.AddItem "Poá"
		.AddItem "Ferraz"
		.AddItem "Curitiba"
		.AddItem "Paraíba"
	End With
End Sub

Private Sub Text1_Change()

Search$ = UCase$(Text1.Text)
Searchlen = Len(Search$)

	If Searchlen Then
		For I = 0 To List1.ListCount - 1
		If UCase$(Left$(List1.List(I), Searchlen)) = Search$ Then
			List1.ListIndex = I
		Exit For
		End If
		Next
	End If

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.