RichTextBox

[Mackan4]

Jag har ett litet problem med RichTextBox, jag lägger till text i början av textboxen och beroende på vad det är för text som kommer så ska den formateras olika.

Det funkar bra för de 2 första raderna men sen formateras all text om.

 

Kod:

RTFGotData.Text = message & vbNewLine & RTFGotData.Text

RTFGotData.SelStart = 0

RTFGotData.SelLength = Len(message)

RTFGotData.SelColor = messageColor

[Stefan B Karlsson]

RTFGotData.Text returnerar ju den rena texten utan formatering, så då försvinner alla färgkoder osv.

Det finns en property som heter RTFGotData.Textrtf, den kanske går att använda? Jag har inte MSDN installerad på maskinen här så jag kunde inte kolla upp det. Men det borde nog vara så.

 

 

 

mvh /

Stefan Karlsson

ITmaskinen.se

 

[Mackan4]

Nej det fungerade inte.. däremot hittade jag lösningen på annat håll. Klistrar in den här om nån annan undrar.

 

Public Sub Display(ByVal s As String, Optional Color As Long = vbGreen)
   'Add text to the text output window.

   With RTFGotData
       'Clear all but the last 2000 characters
       '     if it's too large
       '(don't cut it off in the middle of a li
       '     ne tho).


       If Len(.Text) + Len(s) > 15000 Then
           .SelStart = 0
           .SelLength = InStrRev(.Text, vbCrLf, Len(.Text) - 2000, vbTextCompare) + 1
           .SelText = ""
       End If
       .SelStart = Len(.Text)
       .SelColor = Color
       .SelText = s & vbCrLf
       .SelStart = Len(.Text)
   End With
End Sub

 

[Stefan B Karlsson]

Ahh, självklart.

Hemligheten är att inte mixtra med den befintliga texten, utan bara skjuta in det nya.

.SelText = s & vbCrLf

istället för

.seltext = s & vbcrlf & .text

som det var innan. Att jag inte tänkte på det.. ;-)

 

 

mvh /

Stefan Karlsson

ITmaskinen.se