searching a treeview

is it possible to do a search in a treewview like you do in notepad. say I click on search and an input box comes up and you type in your word/s and push search and have it highlight the searched word in the treeview then hit f3 to keep searching?
if so how would I proceed? I can do the input box but not sure on how or if I can do the f3 part of it.

thanks in advance

search sample :

Code:

---

Private Sub Command1_Click()
    Dim l As Long
    Dim n As Node
    Dim sSearchString As String
    sSearchString = "test"

    For l = 1 To TreeView1.Nodes.Count
        Set n = TreeView1.Nodes(l)
        If UCase(n.Text) = UCase(sSearchString) Then
            n.Selected = True
            'or call the click event : TreeView1_NodeClick n
            Exit For
        End If
    Next l
End Sub

---

you can half search time by UCASEing the search string only once:

Code:

---

Private Sub Command1_Click()
    Dim l As Long
    Dim n As Node
    Dim sSearchString As String
    sSearchString= UCase("test")

    For l = 1 To TreeView1.Nodes.Count
        Set n = TreeView1.Nodes(l)
        If UCase(n.Text) = sSearchString Then
            n.Selected = True
            'or call the click event : TreeView1_NodeClick n
            Exit For
        End If
    Next l
End Sub

---

and you can half the search time again by using
Option Compare Text

Code:

---

Option Compare Text

Private Sub Command1_Click()
    Dim l As Long
    Dim n As Node
    Dim sSearchString As String
    sSearchString= test"

    For l = 1 To TreeView1.Nodes.Count
        Set n = TreeView1.Nodes(l)
        If n.Text = sSearchString Then
            n.Selected = True
            'or call the click event : TreeView1_NodeClick n
            Exit For
        End If
    Next l
End Sub

---

Mark, what does Option Compare Text do ?

Option Compare Text makes text comparisons case insensitive

thanks, I feel a bit stupid now :)

thnaks guys I will play with that and let you know. :)

ok, I played with it and found out that I have to have the exact text case to get any results. plus how do I make it search child nodes instead of parent ones?

also what/where do I put that option campare text, can it co-exist with option explicit

doesnt the sample search the child nodes ?

and yes

Code:

---

Option Explicit
Option Compare Text

---

is not a porblem :)

I put it under option explicit and I get a compile error saying
"Expected: Base or Compare or Explicit or Private."
and it highlights Compare

well I guess it does search child nodes. forgot that my treeview was under a parent. but how do I make it search the child of the child then.

Quote:

---

Originally posted by scoutt
...that option campare text, can it co-exist with option explicit

---

think you just misspelled compare ? ;)

anyway that would create the error you reported.

Quote:

---

well I guess it does search child nodes. forgot that my treeview was under a parent. but how do I make it search the child of the child then.

---

the code sample should search for all nodes, child and child of a child and child of childs child.... I'd better stop :)

well crap I did misspell it. thanks.
ok I can search child of the child of the child, but the reason I didn't was becasue it had to be spelled exactly like the text I was searching for. I tried

VB Code:

If UCase(n.Text) = UCase("'*sSearchString*'")

I don't get any errors but then again it didn't do anything different
what other way can I do it so it doesn't matter what the text that I am searching for it goes to it.

then when I found something, how do I make it continue with the same work like the f3 does in notepad search

hmm try this for the *sdfasdf search :)

Code:

---

Option Compare Text

Private Sub Command1_Click()
    Dim l As Long
    Dim n As Node
    Dim sSearchString As String
    sSearchString= test"

    For l = 1 To TreeView1.Nodes.Count
        Set n = TreeView1.Nodes(l)
        If InStr(1, n.Text, sSearchString, vbUseCompareOption) Then
            n.Selected = True
            'or call the click event : TreeView1_NodeClick n
            Exit For
        End If
    Next l
End Sub

---

I get an variable not defind error on the vbUseCompareOption

oops.. sorry about that, use vbTextCompare instead of vbUseCompareOption

:)

Ok my friend ... this is it:

Create a new project,
Add a treeview and a commandbutton
paste this code into your form:

Code:

---

Option Explicit
Private s As String
Private lLastNodeFound As Long

Private Sub Command1_Click()
If Command1.Caption = "Find" Then s = InputBox("What do want to search for?")
    If s <> "" Then
        If SearchTree(s) Then
            Command1.Caption = "Find next"
        Else
            MsgBox "Reached the end..."
            Command1.Caption = "Find"
        End If
    End If
End Sub

Private Sub Form_Load()
    Dim n As Node
    Set n = TreeView1.Nodes.Add(, , , "Settings...")
    TreeView1.Nodes.Add n, tvwChild, "Desktop", "Desktop settings"
    TreeView1.Nodes.Add n, tvwChild, "Mouse", "Mouse pointer settings"
    TreeView1.Nodes.Add n, tvwChild, "Misc", "Misc"
    Set n = TreeView1.Nodes.Add(, , , "Test...")
    TreeView1.Nodes.Add n, tvwChild, "Desktop2", "Desktop settings"
    TreeView1.Nodes.Add n, tvwChild, "Mouse2", "Mouse pointer settings"
    TreeView1.Nodes.Add n, tvwChild, "Misc2", "Misc"
    Command1.Enabled = True
    Command1.Caption = "Find"
End Sub
Private Function SearchTree(sSearchString As String) As Boolean
    Dim l As Long
    Dim n As Node
    'Dim sSearchString As String
    For l = lLastNodeFound + 1 To TreeView1.Nodes.Count
        Set n = TreeView1.Nodes(l)
        If InStr(1, n.Text, sSearchString, vbTextCompare) Then
            n.Selected = True
            SearchTree = True
            lLastNodeFound = l
            'or call the click event : TreeView1_NodeClick n
            Exit Function
        End If
    Next l
    SearchTree = False
    lLastNodeFound = 0
End Function

---

*phuuu...* that should do it :)

This is some pretty handy code. :D

I took out the vbUseCompareOption variable and it works pretty good. but after it finds something then it just quits searching. how can i continue it?

I was thinking of just looping back to the begining but wouldn't that just keep going by itself?

try the sample... :)

are you telling that to me or to scoutt?

Quote:

---

Originally posted by eiSecure
This is some pretty handy code. :D

---

what? no slapping me in the head with heavy books ?? you scare me eiSec :eek:

:D :) ;)

Quote:

---

Originally posted by eiSecure
are you telling that to me or to scoutt?

---

scoutt

lol...
you just gave me an oppurtunity to slap you though...

ahem...(clears throat)...

ITS eiSecure, not eiSec!!!!!!!!
and be sure to make the first e lowercase.
for future reference.

;) ;) ;)

uh.. my ears...

sorry eiSec...ure its my rheumatism preventing me from writing those loooong nicks :)

lol...
sure....:rolleyes: ;)

sorry peet, I didn't see your post. blind as a bat I guess. I wil try that and let you know.

eiSecure: yes it is pretty handing if I can get my hands and eyes to work together, :D

Quote:

---

...pretty handing if I can get my hands and eyes to work

---

oooops.... careful or eiSec will smack you as well :D

can you not read the size 72 text I wrote????

its eiSecur!!!!!!!!!!

wait, sorry. Typo.

its: eiSecure!!!

Quote:

---

Originally posted by eiSecure
can you not read the size 72 text I wrote????

its eiSecur!!!!!!!!!!

---

heeh.... got you !!:eek:

eiSecur eh ?? :D

no no no no no!

....now you're gonna haunt me with that the rest of my live on this forum, aren't you??

:D

ok you guys, I did noticed that I made a boo boo, didn't feel like editing it.

I want to thank you peet that last sample worked almost like I wanted. I can play with it and get it exact.

thanks peet and eiSecure spelled right too :D

yes yes yes ...:D

man, you're getting too excited over this...:D