vbtree（vbtree）.docVIP

vbtree（vbtree） 1, as the tree browser controls add nodes and sub nodes Use the ADD method to add a new node to the tree browser NODES collection, you can declare it is and the existing node are connected. Usually use the ADD method, the syntax is as follows: Nodes.Add (relative, [relationship][, key][, text][, image][, selectedimage]) The importance of each parameter are as follows: The relationship parameter is another node connected by the node parameters and the new node; The relationship parameter may be the following: Tvwlast--1; behind the node in all the other named relative in the same level. TvwNext--2; the node is placed behind relative named node TvwPrevius--3; in front of the node in the name in the relative TvwChild--4; the node is a node named relative in the child node The following is an example of: Dimnode1, node2, node3, node4asNode SetNode1=TreeView1.Nodes.Add TreeView1.Nodes (1).Text= node1 TreeView1.Nodes (1).Key= node1 Setnode2=treeview.nodes.add (node1 tvwChild, node2) TreeView1.Nodes (2).Text= node2 TreeView1.Nodes (2).Key= node2 In order to insert nodes. 2, insert images for node Treeview1.node (3).Image= leaf Note that we generally specify the image from Imagelist 3, click on the processing nodes, how can we know which one is the node tree browser click? You can use the NodeClick event: Publicsubtreeview1_nodeclick (byvalnodeascomctllib.node) Text1.text= youclick node.text Endsub ********************************************************* 2, TreeView, and select one of the specified node Regarding (PrivateSubCommand1_Click) DimnodeYAsNode ForEachnodeYInTreeView1.Nodes IfCStr (Trim (nodeY.Text)) = FF Then NodeY.Selected=True TreeView1.SetFocus ExitFor EndIf Next EndSub (PrivateSubForm_Load) Rs1.CommandType=adCmdText Rs1.RecordSource= selectdistinctbiao, zufromtestorderbyzu Rs1.Refresh DimRsAsADODB.Recordset SetRs=Rs1.Recordset SetnodX=TreeView1.Nodes.Add (,, R, the report) I=0 DimTempStringAsString DimTempKeyAsLong DoUntilRs.EOFOrRs.BOF IfTemp