Since you guys are the only ones who listen to me...

[Sastraxi]

They wont listen to be at the General or API forums. You will only listen to me if I post here, so here I go.

I've got a Q. I've been trying to use the RTB control to do an editing environment, but it's not working. I want all of the words in the box that are in the Keywords() array to become blue, like in VB. Now I've tried:

1. Finding them and modifying them to no avail.
2. Having a second off-screen RTB and changing them there. Works, but always sets the caret to the start of the document, resulting in backwards text:

Here is my text.
.txet ym si ereH

Is there any other control where I can use HTML-like formatting to do this? Or is there an alternative to the rich text box? I dont want to use an RTB or something that looks unproffesional, for this is for my upcoming APP, JavaPad, freeware for Java Programmers.

Can you guys help me?

[Fox]

poor guy ;)


I think your problem is to always set the position of the cursor... SelStart=...

no time to test that out, sorry

Mmk. Here I go. Its pretty simple. First, for the highlighting funtion.

Private Sub highlight()
rtb.SelStart = 1
rtb.SelLength = Len(Box.Text)
rtb.SelColor = RGB(0, 0, 0)
For j = 0 To numkeywords - 1
For i = 1 To Len(rtb.Text)
If InStr(i, LCase(rtb.Text), LCase(keywords(j))) Then
With rtb
.SelStart = InStr(i, LCase(rtb.Text), LCase(keywords(j))) - 1
.SelLength = Len(keywords(j))
.selcolor = RGB(0, 0, 255)
End With
i = InStr(i, LCase(rtb.Text), LCase(keywords(j)))
End If
Next i
Next j
End Sub

That finds all of the keywords, and highlights them.
To make it work well, only use that sub when the user presses Enter, Up or Down.

Z.

[edit]
FIxed the highlight function. Now it clears the previous highlights before highlighting.