Private Sub Command10_Click()
Dim pesquisa, Posição
pesquisa = InputBox("Localizar")
Posição = InStr(TextBox1.Text, pesquisa)
If Posição Then
TextBox1.SelStart = Posição - 1
TextBox1.SelLength = Len(pesquisa)
Else
MsgBox "Texto não encontrado !"
End If
TextBox1.SetFocus
End Sub
PROBLEMA:
Ele localiza somente a primeira palavra encontrada.
Se faço a busca novamente, faz a mesma coisa, ou seja, fica na primeira palavra encontrada,não procura a próxima palavra.
Gostaria de acrescentar o LOCALIZAR PRÓXIMA (igual a busca do Bloco de Notas do Windows).
Se pudesse localizar e marcar todas as palavras iguais do texto com uma tarja amarela (como faz o Internet Explorer 8), seria melhor ainda.
- RonsisM likes this