searching a treeview

[scoutt]

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

[peet]

search sample :

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

[Mark Sreeves]

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

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

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

[peet]

Mark, what does Option Compare Text do ?

[Mark Sreeves]

Option Compare Text makes text comparisons case insensitive

[peet]

thanks, I feel a bit stupid now

[scoutt]

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

[scoutt]

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

[peet]

doesnt the sample search the child nodes ?

[peet]

and yes

Option Explicit
Option Compare Text

is not a porblem

[scoutt]

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.

[peet]

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.

[peet]

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

[scoutt]

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

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

[peet]

hmm try this for the *sdfasdf search

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

[scoutt]

I get an variable not defind error on the vbUseCompareOption

[peet]

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

[peet]

Ok my friend ... this is it:

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

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

[eiSecure]

This is some pretty handy code.

[scoutt]

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?

[peet]

try the sample...

[eiSecure]

are you telling that to me or to scoutt?

[peet]

Originally posted by eiSecure
This is some pretty handy code.

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

[peet]

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

scoutt

[eiSecure]

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.

[peet]

uh.. my ears...

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

[eiSecure]

lol...
sure....

[scoutt]

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,

[peet]

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

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

[eiSecure]

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

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

[eiSecure]

wait, sorry. Typo.

its: eiSecure!!!

[peet]

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

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

heeh.... got you !!

eiSecur eh ??

[eiSecure]

no no no no no!

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

[scoutt]

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

[peet]

yes yes yes ...

[eiSecure]

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