SELECIONAR PALAVRAS NO TEXTBOX
Boa tarde a todos.
Estou usando este código para selecionar a palavra pesquisada no text(descriccao).
Dim TamanhoDaPalavra As Integer [ô]retorna o tamanho da palavra a localizar
TamanhoDaPalavra = Len(busca.Text)
For a = SelecionaPalavra To Len(descricao.Text) [ô] retorna o tamanho do texto
If UCase(Mid$(descricao.Text, a, TamanhoDaPalavra)) = UCase(busca) Then
SelecionaPalavra = a + 1
descricao.SetFocus
descricao.SelStart = a - 1
descricao.SelLength = TamanhoDaPalavra
Exit Sub
End If
Next
SelecionaPalavra = 1
Ok, está funcionando bem, só que gostaria de selecionar mais de uma palavra ao mesmo tempo, por exemplo:
Se na busca estiver a palavra [Ô]vb[Ô] e na descrição ela aparecer 3 vezes que as três fiquem selecionadas.
Estou usando este código para selecionar a palavra pesquisada no text(descriccao).
Dim TamanhoDaPalavra As Integer [ô]retorna o tamanho da palavra a localizar
TamanhoDaPalavra = Len(busca.Text)
For a = SelecionaPalavra To Len(descricao.Text) [ô] retorna o tamanho do texto
If UCase(Mid$(descricao.Text, a, TamanhoDaPalavra)) = UCase(busca) Then
SelecionaPalavra = a + 1
descricao.SetFocus
descricao.SelStart = a - 1
descricao.SelLength = TamanhoDaPalavra
Exit Sub
End If
Next
SelecionaPalavra = 1
Ok, está funcionando bem, só que gostaria de selecionar mais de uma palavra ao mesmo tempo, por exemplo:
Se na busca estiver a palavra [Ô]vb[Ô] e na descrição ela aparecer 3 vezes que as três fiquem selecionadas.
no textbox box vc não vai conseguir selecionar as tres palavras, aconselho usar um richtextbox e mudar a cor das palavras encontradas.
Obrigado, vou utilizar o richtextbox.
veja este exemplo que tenho tente adapta-lo
Tópico encerrado , respostas não são mais permitidas