Comando Localizar

[Denis Bittencourt Muniz]

E aí galera!

alguém sabe fazer o comando localizar do menu editar?Mas bem perfeito!OK?

Esse comando localiza palavras escritas no Textbox!

Desde já eu agradeço!

[Graymalkin]

Acho que o "bem perfeito" fica por sua conta (fazer uma janelinha bonitinha, com um botão "Localizar Próximo", etc. e tal), mas abaixo eu descrevo uma possível implementação:

    proc = InputBox("Digite o texto a ser procurado:")
    pos = InStr(1, Text1.Text, proc)
    If pos > 0 Then
        Text1.SelStart = pos - 1
        Text1.SelLength = Len(proc)
        Text1.SetFocus
    End If

Teste aí e veja o resultado.

Abraços,

Graymalkin

[tuliod]

e como fazer ele deletar a palavra quando acha??

Valeu

[Graymalkin]

Defina SelText como "".

Abraços,

Graymalkin