• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

got_r00t?

Cores na Richtextbox

4 mensagens neste tópico

Boas,

Tenho uma richtextbox, e quero ir la adicionando texto com diferentes cores.

E queria que o texto com cores que já la esta, mantenha essas mesmas cores.

Como posso fazer isto ?

Cumprimentos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas, penso que o que precisas é definir a SelectionColor, que te permite mudar a cor do texto seleccionado ou então do ponto de inserção.

Por exemplo:

Me.RichTextBox1.SelectionColor = Color.Blue

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas, penso que o que precisas é definir a SelectionColor, que te permite mudar a cor do texto seleccionado ou então do ponto de inserção.

Por exemplo:

Me.RichTextBox1.SelectionColor = Color.Blue

Boas, eu tenho assim:

            RichTextBox1.SelectionStart = RichTextBox1.Find(my_string)
            RichTextBox1.SelectionFont = New Font("lucida", 10, FontStyle.Bold)
            RichTextBox1.SelectionColor = Color.Blue

O problema, e quando eu tento adicionar texto, que o esta escrito volta ao default.

Porque antes do código que coloquei acima, tenho uma coisa deste genero:

RichTextBox1.Text = my_string + RichTextBox1.Text

Gostava de saber como posso manter o que la esta.

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não estou a conseguir, chegar a uma ideia de como fazer isso assim :-[ lol

fiz para aqui uns testes e vê se isto te ajuda

Public Class Form1
    Dim counter As Integer = 1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim defaultColor As Color = Color.Black

        Me.RichTextBox1.SelectionColor = Color.Blue
        Me.RichTextBox1.AppendText("coiso" & counter & "; ")

        Me.RichTextBox1.SelectionColor = defaultColor
        Me.counter += 1
        Me.RichTextBox1.Focus()
    End Sub
End Class

talvez tenhas que usar o appendText. porque eu tentei fazer com  Me.RichTextBox1.Text = Me.RichTextBox1.Text + "coiso" & counter & "; " e acabei com o texto todo, com a cor que tinha o texto a beira do cursor...:)

pode ser que mais logo veja melhor isto...  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora