COLORIR TEXTO

JORGESALES 10/08/2015 23:07:35
#449802
pessoal estou tentando usar uma rich textbox para colorir texto, gostaria
de por exemplo colocar a palavra [Ô]vbmania[Ô] e que a mesma ficasse da cor
azul, queria fazer isso com várias palavras dentro da mesma rich textbox.
Alguém sabe se é possível?
Pesquisei na net e só vi como deixar o texto verde se colocar
aspas simples antes.

Grato a todos que possam ajudar.
TUNUSAT 11/08/2015 08:00:34
#449806 Resposta escolhida
JORGESALES,



============================================================
VB - Usando controle Rich TextBox
http://www.macoratti.net/vb_richt.htm

Citação:

Para alterar a cor de um texto selecionado usamos a propriedade : SelColor
object.SelColor [= color]

onde temos:

Parte Descrição
object O objeto referência para o controle RichTextBox
color Um valor que define uma cor.

Color pode assumir os seguintes valores:

Valor Descrição
Null O texto contém uma mistura de diferentes valores para cores.
RGB colors As cores são definidas nos valores das funções RGB ou QBColor.
System Cores definidas com as constantes de cores do sistema na livraria de objetos do Visual Basic.


============================================================
Alterar cor apenas numa parte do texto - Richtextbox
http://www.portugal-a-programar.pt/topic/46950-alterar-cor-apenas-numa-parte-do-texto-richtextbox/
============================================================
RichTextBox Colorir palavras?
http://www.unidev.com.br/index.php?/topic/50350-richtextbox-colorir-palavras/

Citação:

Froidz93 -
Fiz uma função onde você digita qual é o RichTextBox que deseja colorir as letras, seleciona qual é a palavra e a cor.
Adicione essa função:


Function Froidz_TextColor(ByVal my_rtb As RichTextBox, ByVal txt As String, ByVal mycor As System.Drawing.Color)
        Dim cursor_pos = my_rtb.SelectionStart
        Dim cursor_pos2 = 0
        [ô] se existir a string [ô]txt[ô]
        If InStr(1, my_rtb.Text, txt) Then
            [ô]se a string [ô]txt[ô] não estiver selecionada...
            If Not my_rtb.SelectedText = txt Then
                [ô]procurá-la e selecioná-la...
                my_rtb.Find(txt, RichTextBoxFinds.MatchCase)
                [ô]mudar cor e fonte
                my_rtb.SelectionFont = New Font([Ô]Verdana[Ô], 8, FontStyle.Bold)
                my_rtb.SelectionColor = mycor
                my_rtb.SelectionStart = cursor_pos
                my_rtb.SelectionLength = cursor_pos2
                my_rtb.SelectionFont = New Font([Ô]Verdana[Ô], 8, FontStyle.Regular)
                my_rtb.SelectionColor = Color.Black
            Else
                my_rtb.SelectionFont = New Font([Ô]Verdana[Ô], 8, FontStyle.Regular)
                my_rtb.SelectionColor = Color.Black
            End If
        End If
        cursor_pos = my_rtb.SelectionStart
        Return Nothing
    End Function


Citação:

Para usar a função, você pode adicionar isso no RichTextBox1_TextChanged (ação que checa se o richtextbox1 teve seu texto alterado):


Froidz_TextColor(RichTextBox1, [Ô]texto[Ô], Color.Red)

============================================================
Controle RichTextBox para usuários do Visual Basic 6.0
https://msdn.microsoft.com/pt-br/library/ms234980(v=VS.90).aspx
============================================================

[][ô]s,
Tunusat.
JORGESALES 14/08/2015 22:33:23
#450007
Obrigado meu amigo, desculpe a demora em responder,
estou tendo problemas de saúde e assim que tiver um tempinho
farei o teste e posto aqui, Deus abençe pela grande generosidade
que você tem comigo e com todos os outros aqui.
Tópico encerrado , respostas não são mais permitidas
Voltar