PESQUISAR E EXIBIR NO LISTVIEW
Pessoal, Boa tarde!
Eu tenho um listview onde eu exibo varios clientes pelo perido de cadastramento,
dai quero digitar em um TEXT o codigo de um cliente, e que me mostre em vermelho no listview o cliente informado. apenas destacar ou selecionar o cliente que corresponde ao codigo informado.
desde ja agradeço,
Emanuel
Eu tenho um listview onde eu exibo varios clientes pelo perido de cadastramento,
dai quero digitar em um TEXT o codigo de um cliente, e que me mostre em vermelho no listview o cliente informado. apenas destacar ou selecionar o cliente que corresponde ao codigo informado.
desde ja agradeço,
Emanuel
Utilize o método FindItem do ListView.
Exemplo:
OBS.: Digitei diretamente aqui e não testei no VB6.
Teste e verifique se há algum termo digitado incorretamente.
Exemplo:
Dim item As ListItem
Set item = ListView1.FindItem([Ô]1001[Ô])
If item Is Nothing Then MsgBox [Ô]Não achou[Ô] Else MsgBox [Ô]Achou[Ô]
OBS.: Digitei diretamente aqui e não testei no VB6.
Teste e verifique se há algum termo digitado incorretamente.
Caro Tecla,
Seria possivel voce me passar um exemplo?
Desde ja agradeco.
Abraços
Emanuel
Seria possivel voce me passar um exemplo?
Desde ja agradeco.
Abraços
Emanuel
Citação::
Caro Tecla,
Seria possivel voce me passar um exemplo?
Desde ja agradeco.
Abraços
Emanuel
Se não percebeu, postei um exemplo com um trecho de código no post acima.
Teste a rotina e veja se funciona.
Opa tecla,
Obrigado cara. realmente funciona seu codigo.
So mais um detalhe se possivel.
daria pra selecionar no ListView1 o tem encontrado?
Qual seria o comando?
obrigado
Emanuel
Obrigado cara. realmente funciona seu codigo.
So mais um detalhe se possivel.
daria pra selecionar no ListView1 o tem encontrado?
Qual seria o comando?
obrigado
Emanuel
Tente assim.:
Dim item As ListItem
Set item = ListView1.FindItem([Ô]1001[Ô])
If item Is Nothing Then MsgBox [Ô]Não achou[Ô] Else MsgBox [Ô]Achou[Ô]
If Not item Is Nothing Then
itmFound.Selected = True
itmFound.EnsureVisible
End If
Amigo JONATHANSTECKER,
Seu codigo nao funcionou?
Podes reve-lo?
obrigado.
Emanuel
Selecionei a variável errada. Teste assim.:
Dim item As ListItem
Set item = ListView1.FindItem([Ô]1001[Ô])
If Not item Is Nothing Then
item.Selected = True
item.EnsureVisible
End If
Caro JONATHANSTECKER
mesmo assim nao funciona seu codigo.
Emanuel
mesmo assim nao funciona seu codigo.
Emanuel
Caro JONATHANSTECKER
Agora sim.. funcionou.
Eu estav fazendo algo errado.
blz
Obrigado
Agora sim.. funcionou.
Eu estav fazendo algo errado.
blz
Obrigado
Tópico encerrado , respostas não são mais permitidas