I en sträng så vill jag färga ett visst antal tecken till rött. Resterande vill jag ha till svart.
Jag försöker så här.
Strängen:
<code>
frMultiLanguage.txtSv = frMultiLanguage.txtSv.Text & RedText("MultiLang_" & intMul & "=", frMultiLanguage.txtSv) & """" & Replace(tString, vbCrLf, " < BR > ") & """" &
vbTab & vbCrLf
</code>
Min function ser ut så här:
<code>
Function RedText(sString As String, ByVal sText As RichTextBox)
Dim langd As Long
sText.SelStart = 0
sText.SelLength = Len(sString)
sText.SelColor = vbRed
RedText = sString
End Function
</code>
Resultatet, allting blir rött.
Förslag motages tacksamt.

Mitt tips till dig är att titta på hur rtf-koden ser ut... Gör såhär: Öppna wordpad och skriv lite skit bara, spara det som rtf. Titta på det i anteckningar/notepad. Nu får du klura lite och se ifall du förstår hur det fungerar... :) Så gjorde jag iaf.... :)

Är det nägonting i detta hållet som du menar?
<code>
sString = {\viewkind4\uc1\pard\cf1\f0\fs20 R\ & sString & \cf0\par}
</code>
sString innehåller strängen.
Om jag skriver så här, så blir det bara error, han tycker inte om bl a {.