How to find a node given its key

[elquixiote]

How to find a node given its key

Hi!
Is there a way to locate a node in treeview control for a given node.key?

I already accomplish that using the attached code, but couldn't it be a smarter, elegant efficient solution ?

nodePosition = 0
for i=1 to treeview1.nodes.count
if treeview1.nodes(i).key = TheKey then
nodePosition=i
exit for
endif
next i
if nodePosition=0 then
msgbox "Key doesn't exist"
else
msgbox "The key is in " & nodeposition
endif

Thanks,

ElQuijote

 

[TheVampire]

Use the "Item" method to extract the node based on it's key.

Example below assumes a node in the treeview1 control has a key called "Test".

Dim MyNode as Node
Set MyNode = TreeView1.Nodes.Item("Test&quot

And that's all you have to do!

Note that if you use a key that is not found, you will get an error "35601 Element not found", so you will need to put an error trap in for this.

Hope this helped,

Robert

 

[elquixiote]

Thank you. i'll change my brut force algorithm by line you suggest.

Thanks again ..

ElQuijote