[RESOLVED] SelLength Problem.

[syrillia]

I'm using this piece of code to select a small length of text on my text box.

Private Sub Command1_Click()
   Dim lngPos As Long
    Dim searchText As String
   
   searchText = Text1.Text
   If searchText = "Find what?" Then Exit Sub
   lngPos = InStr(1, txtData.Text, searchText, vbTextCompare)
   If lngPos > 0 Then
        Text1.BackColor = &H80FF80
        txtData.SelStart = lngPos - 1
        txtData.SelLength = Len(searchText)
        Timer1.Enabled = True
        Command2.Visible = True
   Else
        Text1.BackColor = &H8080FF
        Timer1.Enabled = True
   End If
End Sub

It seems to be working alright, but I can't see the area of text being selected. I mean, if the text is there, the back of the search box shows up green, like i've set it up to do and if it's not, it shows up red. I just cant see area of text being selected. It's strange...

Any ideas?

Syrillia

[Hack]

I think you need to highlight individual lines of text, and you can't do that with a regular textbox. Switch to a richtextbox, and I think you will have better results.

[syrillia]

I'm using richtextbox. It works, 100% apart from the fact that I can't see the highlight.

I've got a 'Find More' command that will look for more instances of the variable. So if I've got the word 'import' written 10 times; the find will find the first one, then find more will find the next 9. But after that it doesn't work.

EDIT: I found out what it is. I cant see it because when I click the find button, the textbox is losing it's focus. Thanks for the help,

Syrillia