Searching a textbox

[Wout86]

This is my first posting. Can you help me with this, please.
I know how to search for a word in a TextBox control and highlight it when found. Then step through the textbox for any further words.
My problem is how to highlight all the found words at the same time like for instance in the VB Helpfile. I am using VB6. Thank you in advance.

[Dököll]

This is my first posting. Can you help me with this, please.
I know how to search for a word in a TextBox control and highlight it when found. Then step through the textbox for any further words.
My problem is how to highlight all the found words at the same time like for instance in the VB Helpfile. I am using VB6. Thank you in advance.

Greeitngs, Wout86!

You may be closer than you think. Why don't you add the same command for other words to find. I am not sure what your code looks like, but try telling VB to highlight additional words.

Please post your code if this isn't clear.

Dököll

[Wout86]

My code is as follows:

Option Explicit
 
Private TargetPosition As Integer
' Find the text.
Private Sub cmdFind_Click()
    FindText 1
End Sub
Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer
Dim target As String
 
    target = txtTarget.Text
    pos = InStr(start_at, txtBody.Text, target)
    If pos > 0 Then
        ' We found it.
        TargetPosition = pos
        txtBody.SelStart = TargetPosition - 1
        txtBody.SelLength = Len(target)
        txtBody.SetFocus
    Else
        ' We did not find it.
        MsgBox "Not found."
        txtBody.SetFocus
    End If
End Sub
 
' Find the next occurrance of the text.
Private Sub cmdFindNext_Click()
    FindText TargetPosition + 1
 
End Sub

Thanks for speedy reply!

[Killer42]

This is my first posting. Can you help me with this, please.
I know how to search for a word in a TextBox control and highlight it when found. Then step through the textbox for any further words.
My problem is how to highlight all the found words at the same time like for instance in the VB Helpfile. I am using VB6. Thank you in advance.

Hate to be a wet blanket, but I don't think it's possible, at least in a normal textbox. You select part of the text by setting the .SelStart and .SelLength properties. This simple level of control doesn't provide any way to select more than one section. I imagine it might be possible through API calls, but have no idea how.

On the other hand, if you were to use a RichTextBox control, you might be able to achieve what you want. I don't think it can actually select multiple sections at the same time either, but you can select each in turn and set some font format to highlight it, such as the text colour.

[Wout86]

Oh well, worth a try. I try your suggestion and have a go with a RichTextBox.
Thanks anyway for trying.

[Dököll]

Hate to be a wet blanket, but I don't think it's possible...

Wet blanket! It's pouring rain here:-)

How does Google do it, anyway? I think I am going to go Noodle with this one, see what I come up with...

[Killer42]

How does Google do it, anyway?

It's easy - they don't use the old Windows TextBox control.

I think I am going to go Noodle with this one, see what I come up with...

Good luck.