Adding RTF commands to string

[hellisher]

Im trying to make a word underlined within a string and then add the string to a RichTextBox...

I recive a text and in that string are 2 Chr(31) and i replaces them with the RTF underline commands that you can find in a .rtf file.

When the text got added to the RichTextBox, it shows the "\ul" and "\ulnone" as text!?! How can i get it to show the word underlined?

Public Sub Something(sText as string)

      sText = Format(sText, vbCFRTF)
      
      sText = Replace(sText, Chr(31), "\ul ", , 1)	'This is the start of a underline
      sText = Replace(sText, Chr(31), "\ulnone ", , 1)	'This is the end of the underline

      RichTextBox.SelText = sText 'Have alse tried with .SelRTF

End Sub

[Jaiboy]

Try this.

Public Sub Something(sText as string)
      RichTextBox.SelText = sText
      RichTextBox.SelStart =       RichTextBox.SelStart - Len(SText)
      RichTextBox.SelLength = Len(SText)
      RichTextBox.SelUnderline = True
End Sub

[hellisher]

Nope that doesn´t work...

That you wrote makes all in the sText underlined.. Thats not what i want..
I want it to just underline ONE WORD... That has Chr(31) before and after.

[hellisher]

Anyone?

[ravi15481]

Just customize the following procedure according, i think u can do that now

Public Sub UnderlineString(objRTB As RichTextBox, strWord As String)
objRTB.TextRTF = Replace(objRTB.TextRTF, strWord, "{\rtf1\ansi\ansicpg1252\ul " & strWord & "\ulnone}", , , vbTextCompare)
End Sub