CORES DIFERENTES DENTRO DE UM RICHTEXTBOX

USUARIO.EXCLUIDOS 29/06/2004 17:52:23
#31629
Gostaria de saber como se adciona cores diferentes pra um testo dentro de um RichTextBox...

ex: Gostaria de quando a pessoa Digita-se Verdadeiro no RichTextBox ele ficasse azul, e quando digita-se false ele fica-se vermelho e o resto de texto continuaria em preto.

o q eu ja fiz so q nao deu muito certo

Dim x As Integer
texto$ = Text1
For x = 1 To Len(Text1)
If InStr(1, texto$, "Verdadeiro", vbTextCompare) Then
Text1.SelStart = x - 1
Text1.SelLength = x + 9
Text1.SelColor = &HFF0000
Text1.SelStart = x + 10
Text1.SelColor = &H0&
End If

Next x
USUARIO.EXCLUIDOS 30/06/2004 12:49:57
#31702 Resposta escolhida 

Dim PosI As Long
PosI = InStr(1, RichTextBox1.Text, "Verdadeiro", vbTextCompare)
While PosI > 0
    RichTextBox1.SelStart = PosI - 1
    RichTextBox1.SelLength = Len("Verdadeiro")
    RichTextBox1.SelColor = vbGreen
    PosI = InStr(PosI + 1, RichTextBox1.Text, "Verdadeiro", vbTextCompare)
Wend
USUARIO.EXCLUIDOS 30/06/2004 12:57:49
#31706
Voce pode otimizar o codigo colocando a funcao em um modulo


Public Sub CorPalavra(Objeto As Object, Palavra As String, Cor As Long)
Dim PosI As Long
With Objeto
    PosI = InStr(1, .Text, Palavra, vbTextCompare)
    While PosI > 0
        .SelStart = PosI - 1
        .SelLength = Len(Palavra)
        .SelColor = Cor
        PosI = InStr(PosI + 1, .Text, Palavra, vbTextCompare)
    Wend
End With
End Sub


Para chamar a funcao em qualquer lugar no programa e so chamar a funcao informando o nome do RichTextBox, a palavra e a cor.

CorPalavra RichTextBox1, "verdadeiro", vbGreen
CorPalavra RichTextBox1, "falso", vbRed
Tópico encerrado , respostas não são mais permitidas
Voltar