|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Localizando um Texto num RichTextBox
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Isto é muito simples de ser feito. Veja o código a seguir:
'No declarations do Form:
Public sFind As String
'No evento onde você deseja localizar um determinado
'Texto no RichTextBox:
sFind = InputBox("Localizar o que?", "Procura", sFind)
If sFind = "" Then Exit Sub
RichTextBox1.Find sFind
'Para localizar a próxima ocorrencia do mesmo texto:
RichTextBox1.SelStart = RichTextBox1.SelStart + _
RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
Pronto. Se o texto digitado existir no RichTextBox, ele será selecionado.
|
|
|
|
|
