How to get treeview node to expand when there is code in the onclick?

[HandyAndy]

Hi again
i have finally got my treeview going but since i have put some code in the nodeclick event the branch does not expand. How do i get the node to expand?
HandyAndy

 

[Aivars]

Hi again, Andy!
Congratulation!

Nodes are expanding by double click on node.

Also you can point style (red in the following example). Then lines will be contain plus like win explore.

Set nodX = trvTreeView.Nodes.Add(strParentKey, 4, strKey, strNodeText, strImageKey, "SELECTED&quot

You can expand nodes by command, too e.g.:
trvTreeView.Nodes(1).Expanded = True

in the procedure NodeClick you can do lot of actions: open forms, update tables make settings etc.

Example:
Private Sub trvTypeUnit_NodeClick(ByVal Node As Object)
Dim nodX As Node
dim strSQL as string

Set nodX = Node
strSQL = "SELECT MyTable.Parent_ID, MyTable.Relationship, MyTable.Function_ID, MyTable.Function_Name "
strFrom = "FROM MyTable "
strWhere = "WHERE MyTable.Function_ID='" & nodx.key& "'"

docmd.runsql strSQL

End Sub

Use the event

Example:
Private Sub trvTypeUnit_Collapse(ByVal Node As Object)
Dim nodX As Node

Set nodX = Me.trvTypeUnit.SelectedItem
do.........
'My advice: Write codes same codes of NodeClick for correct work of treeview
...........
..........
end sub[/b]

Look at treeview properties window (double click on treeview control). Change properties if it's needed.

Good luck!
Aivars

LOL My summer holidays will start next week! Hurah!

 

[HandyAndy]

Thanks for your help although i cannot get the +/- like explore thing to work???

ive looked at the syntax for the add method and this is what i got:
Function Add(ByVal hRelativeItem As Variant, ByVal Relation As RelationConstants, ByVal Key As String, ByVal Text As String, Optional ByVal Image As Long=-1, Optional ByVal SelectedImage As Long=-1, Optional ByVal IntegralHeight As Long=1, Optional ByVal Bold As Boolean=False) As Long

i dont see an entry for style????
any ideas?

 

[Aivars]

Why don't you use method what I posted in the
thread181-101006 ?

Function what you found don't solve your problem. Use method object.add(.....) and all will be OK.

Aivars
P.S. Special for you I found this site:

http://msdn.microsoft.com/library/d.../vbasic/vbcon98/vbconusingtreeviewcontrol.htm

Try to find answers to your question there.

 

[Aivars]

Here is other one site

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cmctl198/html/vbobjtreeview.asp

Aivars