Autor
bueno tengo un problema de fuente con un richtextbox:
manejo el siguiente codigo:
Código
''' <summary>Recibir un texto para procesarlo y agregarlo al chat</summary>
''' <param name="IdUser">Identificador del usuario que envio el texto</param>
''' <param name="StrText">Texto enviado</param>
''' <param name="Hour">Hora en lq que se envio el texto</param>
''' <returns>UN valor que indica si se recibio el texto</returns>
Public Function RecibeText(ByVal IdUser As String, ByVal StrText As String, ByVal Hour As Date) As Boolean
rtbTalk.Text += vbNewLine & vbNewLine
rtbTalk.SelectionStart = rtbTalk.TextLength
Dim StrID As Long = rtbTalk.SelectionStart
'Agregar el usuario con una fuente
rtbTalk.Text += IdUser & " dice: "
Dim EndID As Long = rtbTalk.TextLength
rtbTalk.SelectionStart = StrID
rtbTalk.SelectionLength = EndID - StrID
rtbTalk.SelectionFont = _IDFont
rtbTalk.SelectionColor = _IDColor
rtbTalk.SelectionStart = EndID
'Agregar el texto enviado
rtbTalk.Text += vbNewLine
rtbTalk.SelectionStart = rtbTalk.TextLength
StrID = rtbTalk.SelectionStart
Dim strObject As Object = AnalysingStr(StrText)
rtbTalk.Text += strObject
EndID = rtbTalk.TextLength
rtbTalk.SelectionStart = StrID
rtbTalk.SelectionLength = EndID - StrID
rtbTalk.SelectionFont = _FontText
rtbTalk.SelectionColor = _TextColor
rtbTalk.SelectionStart = EndID
Return True
End Function
el codigo lo que hace es cojer un texto seleccionado y darle una fuente y un color.
el problema que me surge es que solo queda con color y fuente la ultima linea, el resto queda con la fuente predeterminada del richtextbox...
por sucede esto y como lo puedo solucionar?
de ante mano muchas gracias
En línea
