Hola...va a ser que no era esa la respuesta....
He probado de alojar el texto el el Clipboard para ver si mantenia su aspecto y luego insertarlo junto la linea a añadir... pero ni asi... me sale todo el texto en un color...
If Not (RsPeliculas.EOF = True And RsPeliculas.BOF = True) Then
RsPeliculas.MoveFirst
RichTextBox1.SelStart = 0
Do While Not RsPeliculas.EOF
If TestPath(RsPeliculas!Link) = False Then
RsPeliculas!Actualizado = False
Clipboard.Clear 'empty Clipboard
Clipboard.SetText RichTextBox1.Text
RichTextBox1.Text = Clipboard.GetText & "Link Roto: " & RsPeliculas!Link & vbCrLf
RichTextBox1.SelStart = Len(RichTextBox1.Text) - Len("Link Roto: " & RsPeliculas!Link & vbCrLf)
RichTextBox1.SelLength = Len("Link Roto: " & RsPeliculas!Link & vbCrLf)
RichTextBox1.SelColor = RGB(150, 0, 20)
NumeroLinksRotos = NumeroLinksRotos + 1
RsPeliculas.Update
Else
RsPeliculas!Actualizado = True
Clipboard.Clear 'empty Clipboard
Clipboard.SetText RichTextBox1.Text
RichTextBox1.Text = Clipboard.GetText & "Link Actualizado: " & RsPeliculas!Link & vbCrLf
RichTextBox1.SelStart = Len(RichTextBox1.Text) - Len("Link Actualizado: " & RsPeliculas!Link & vbCrLf)
RichTextBox1.SelLength = Len("Link Actualizado: " & RsPeliculas!Link & vbCrLf)
RichTextBox1.SelColor = RGB(150, 0, 20)
NumeroLinksActualizados = NumeroLinksActualizados + 1
RsPeliculas.Update
End If
NumeroTotalPeliculas = NumeroTotalPeliculas + 1
RsPeliculas.MoveNext
ProgressBar1.Value = ProgressBar1.Value + 1
Loop
End If
Con esto sale todo el texto de un color...
Y con esto tambien...
If Not (RsPeliculas.EOF = True And RsPeliculas.BOF = True) Then
RsPeliculas.MoveFirst
RichTextBox1.SelStart = 0
Do While Not RsPeliculas.EOF
If TestPath(RsPeliculas!Link) = False Then
RsPeliculas!Actualizado = False
RichTextBox1.Text = RichTextBox1.Text & "Link Roto: " & RsPeliculas!Link & vbCrLf
RichTextBox1.SelStart = Len(RichTextBox1.Text) - Len("Link Roto: " & RsPeliculas!Link & vbCrLf)
RichTextBox1.SelLength = Len("Link Roto: " & RsPeliculas!Link & vbCrLf)
RichTextBox1.SelColor = RGB(150, 0, 20)
NumeroLinksRotos = NumeroLinksRotos + 1
RsPeliculas.Update
Else
RsPeliculas!Actualizado = True
RichTextBox1.Text = RichTextBox1.Text & "Link Actualizado: " & RsPeliculas!Link & vbCrLf
RichTextBox1.SelStart = Len(RichTextBox1.Text) - Len("Link Actualizado: " & RsPeliculas!Link & vbCrLf)
RichTextBox1.SelLength = Len("Link Actualizado: " & RsPeliculas!Link & vbCrLf)
RichTextBox1.SelColor = RGB(150, 0, 20)
NumeroLinksActualizados = NumeroLinksActualizados + 1
RsPeliculas.Update
End If
NumeroTotalPeliculas = NumeroTotalPeliculas + 1
RsPeliculas.MoveNext
ProgressBar1.Value = ProgressBar1.Value + 1
Loop
End If
No se que hacer ya... lo maximo que he conseguido es que una vez escrito el texto del report en la RTB, pasar un filto buscando las palabras a colorear...pero el efecto es un poco cutre...
Asi queno se que hacer mas...estoy desesperao... Alguien sabe con que control hacen un chat que contiene muchos colorines y no se pierde el formato de color?
Ayuda po favó...