Jump to content

Recommended Posts

Posted

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
Posted

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

Posted

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...  😛

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.