little help?

[Iceman]

I'm trying to create a text search, note that all variables are defined even if they aren't listed here

if i type for example "hi hi hi hi hi" then click search it will find and highlight the first one, then i click it again and it finds the second, then when i click it again it finds the second again any help?

here is the code:

Dim searched, newsearch As Long
Private Sub cmdSearch_Click()
searchtext = txtSearch.Text
newsearch = searchpos + Len(searchtext)
If searched = 0 Then searchpos = InStr(frmMain.txtNotepad.Text, frmSearch.txtSearch.Text)
If searched = 1 Then searchpos = InStr(newsearch, frmMain.txtNotepad.Text, frmSearch.txtSearch.Text)
If searchpos > 0 Then
frmMain.txtNotepad.SetFocus
searchlen = Len(searchtext)
frmMain.txtNotepad.SelStart = searchpos - 1
frmMain.txtNotepad.SelLength = searchlen
End If
searched = 1
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    
    Select Case UnloadMode
        Case vbFormControlMenu
searched = 0
    End Select
End Sub

mail me at [email protected] if you need more specifics but can help me

[Paul282]

Set the instr() 'from' param to textbox.seltext + 1

This way the search will always start from after the current curser position. after a search the curser will move to the found text to a second search can start from there.

If the intention is to be able to move the curser yet continue from the same point then set a public variable to textbox.seltext + 1 after a search and search from there each time.

Put an if statement in at the begining so that the variable is less than 1 or greater than len(text) to avoid errors

[Fox]

There's also a demo project on my page showing how to find text using InStr and highlighting it... (misc section)

[Iceman]

I don't think there is a .seltext property for txt boxes.... at least my VB(6.0) doesn't awknowledge it.

It gives me a type mismatch error...?

[Fox]

As I remember RichTextBoxes have...

[Iceman]

I'm not usin rich text box(at least for now)

[gfk]

I don't think there is a .seltext property for txt boxes.... at least my VB(6.0) doesn't awknowledge it.

Try:-

With txtNotepad
    newsearch = .SelStart + .SelLength + 1    
End With

[Fox]

My demo uses a simple text box...

[Iceman]

Thanks to everyone i finally got it workin how i wanted(more or less )

later,
Iceman

(till my next stupid question anyway )