USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Localizando um Texto num RichTextBox
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página