COLORIR RICH TEXT BOX

JORGESALES 24/01/2016 11:21:34
#456450
Pessoal estou tentando colorir uma RichTextbox que é carregada do
banco de dados, queria que tudo tivesse após [Ô]<[Ô] ficasse na cor verde,
todos os códigos que encontrei na net só muda a cor da primeira linha talvez um
loop nas linhas possa resolver, vejam:
A RichText está assim:
VEM OU MANDARÁ ALGUéM TRAZER O DINHEIRO DA PARCELA [txt-color=#007100]<23/01/2016 09:01:48>[/txt-color]
FICHA COM SABRINA <18/01/2016 17:10:37>
VAI CONSEGUIR OS 2 FIXOS <18/01/2016 10:53:35>
VEM AMANHÃ <15/01/2016 15:51:07>
VEM SEXTA FEIRA TZ OS DDS <11/01/2016 10:21:05>

E gostaria que ficasse assim:
VEM OU MANDARÁ ALGUéM TRAZER O DINHEIRO DA PARCELA [txt-color=#007100]<23/01/2016 09:01:48>[/txt-color]
FICHA COM SABRINA [txt-color=#007100]<18/01/2016 17:10:37>[/txt-color]
VAI CONSEGUIR OS 2 FIXOS [txt-color=#007100]<18/01/2016 10:53:35>[/txt-color]
VEM AMANHÃ [txt-color=#007100]<15/01/2016 15:51:07>[/txt-color]
VEM SEXTA FEIRA TZ OS DDS [txt-color=#007100]<11/01/2016 10:21:05>[/txt-color]

Desde já agradeço a ajuda de todos
EPISCOPAL 24/01/2016 14:06:38
#456452 Resposta escolhida
Sua dúvida está em localizar os texto entre [Ô] < > [Ô] ou é apenas colorir?

Se for colorir usa assim
1 - localize o texto selecionando-o
2 - coloque coloração: Richtextbox.selcolor = vbGreen

Pra procurar use:
Richtextbox.find [Ô]<[Ô] : pos1 = richtextbox.selstart
richtextbox.find [Ô]>[Ô] : pos2 = richtextbox.selstart

richtextbox.selstart = pos1
richtextbox.sellength = pos2 - pos1
richtextbox.selcolor = vbGreen


será que deu pra entender?
EPISCOPAL 24/01/2016 14:48:06
#456453
Vc tomou 30 minutos do meu tempo ..... ve se isso resolve ...
JORGESALES 24/01/2016 18:37:56
#456459
Citação:

:
Vc tomou 30 minutos do meu tempo ..... ve se isso resolve ...


E você me proporcionou muita alegria meu amigo, muito obrigado....
Tópico encerrado , respostas não são mais permitidas
Voltar