Select Specific Text in the RichTextBox

[Pc_Madness]

Ok I have a RichTextBox, which is used as the main chat window of my app.

So it would be like,
User1: Message
User2: Message

I want to bold the "User1:" and "User2:"

I was thinking I might search along the line until I find the first :

But of course I don't have any code for this, any help would be great.

[Chris Wallace]

Hi,

You could use instring to find the position of the ':' then SelStart SelLength to select the text and then make it bold.

Hope this helps,

Chris

[shahab]

In richtextbox lines can not be read, otherwise ur problem would be easy.
try this,


Dim MyPos as integer
Private Sub Command1_Click()
tmpstr = "User1:"
With RichTextBox1
MyPos = Len(.Text)
.Text = .Text + vbCrLf + tmpstr
.SelStart = MyPos + 2
.SelLength = 5
.SelBold = True
End With
End SUb

[Pc_Madness]

Hmm thats going to be hard, as I'm not sure what the Username will be.

[shahab]

I hope this works,

Dim mypos As Integer
Private Sub Command1_Click()
Dim Position As Integer
tmpstr = txtusernm.text & ":" & txtmsg.text
With RichTextBox1
    mypos = Len(.Text)
    .Text = .Text + vbCrLf + tmpstr
    Position = 0
    Position = .Find(":", mypos + 1, , FindFlags)
    If Position >= 0 Then
        .SelStart = mypos + 2
        .SelLength = Position - (mypos + 1)
        .SelBold = True
    End If
End With
End Sub