Richtextbox....como lo hago??

[xepo]

necesito presentar strings contenidas en dos bariables,
para diferenciar el string de cada variable queria cambiar el color del texto... uf aqui mi gran problema. pongo la propiedad .selcolor
el que quiero y si escribo con el teclado perfecto pero no se como mandar la variable string ,  con richtext1.text=richtext1.text & string   No vale ya que no guarda ningun formato de fuente ni color
supongo que seria por el formato rtf .

lo que quisiera es presentar una variable rojo otra verde por ejemplo ...pero todo auto


mil asias estoy atrancado una semana...y bosotros podeis


saludos al foro ...

[goodbye]

Prueba este

Código [Seleccionar] Expandir

Private Sub Form_Load()
   
    RichTextBox1.Text = ""

    Dim cadenas(1 To 3) As String

    cadenas(1) = "AZUL": cadenas(2) = "ROJO": cadenas(3) = "VERDE"
   
    Dim i, Search, Where

    For i = 1 To 3
   
        RichTextBox1.Text = RichTextBox1.Text + " " + cadenas(i) ' Si deseas insertarlas con saltos de linea la cambias a:
                                                                 ' RichTextBox1.Text = RichTextBox1.Text + cadenas(i) + vbCrLf
    Next i

    For i = 1 To 3

        Search = cadenas(i)
   
        Where = InStr(RichTextBox1.Text, Search)  ' Busca la cadena en el texto.
   
        If Where Then                             ' Si se encuentra,
            RichTextBox1.SelStart = Where - 1     ' se establece el inicio de la selección RichTextBox1.SelLength = Len(Search)
            RichTextBox1.SelLength = Len(Search)  ' y se establece la longitud para seleccionar.
       
            Select Case cadenas(i)
                Case "AZUL"
                    RichTextBox1.SelColor = vbBlue
                Case "ROJO"
                    RichTextBox1.SelColor = vbRed
                Case "VERDE"
                    RichTextBox1.SelColor = vbGreen
            End Select
       
        Else
            MsgBox "Cadena no encontrada."   ' Se notifica al usuario.
        End If

    Next i

    RichTextBox1.SelStart = Len(RichTextBox1)

End Sub