LOCALIZAR EXPRESSAO
Tenho um projeto em que preciso localizar certa expressão do texto, exemplo: "eu sou aureliano", dentro de um um que já está aberto em richtextbox. Quero localizar do mesmo modo em que o WordPad localiza...
Como fazer isto?
Como fazer isto?
instr(1,richtextbox.text,"eu sou aureliano")
isto retorna a posicao do primeiro caracter - depois eh uma questao de acertar o sel dele com o len de sua expressao
isto retorna a posicao do primeiro caracter - depois eh uma questao de acertar o sel dele com o len de sua expressao
coloque um rich - sem alterar o nome e um botao
Option Explicit
Private Sub Command1_Click()
RichTextBox1.SelStart = InStr(1, RichTextBox1.Text, "eu sou aureliano") - 1
RichTextBox1.SelLength = Len("eu sou aureliano")
RichTextBox1.SelBold = True
RichTextBox1.SelColor = vbBlue
End Sub
Private Sub Form_Load()
RichTextBox1.Text = "este eh um teste com a frase eu sou aureliano - e esta funcionando"
End Sub
Option Explicit
Private Sub Command1_Click()
RichTextBox1.SelStart = InStr(1, RichTextBox1.Text, "eu sou aureliano") - 1
RichTextBox1.SelLength = Len("eu sou aureliano")
RichTextBox1.SelBold = True
RichTextBox1.SelColor = vbBlue
End Sub
Private Sub Form_Load()
RichTextBox1.Text = "este eh um teste com a frase eu sou aureliano - e esta funcionando"
End Sub
Tópico encerrado , respostas não são mais permitidas