ADT/ODE: How to Remove All Nodes from TreeView Control

MORE INFORMATION

1. Start Microsoft Access and open a new, blank database.
2. Open a new form in Design view.
3. On the Insert menu, click ActiveX Control (or click Custom Control if you are using Microsoft Access 7.0).
4. In the Insert ActiveX Control dialog box, select the Microsoft TreeView Control, and then click OK.
5. Set the following properties of the TreeView Control:
   

           TreeView Control
           ----------------
           Name: tvcExample
           Width: 2
           Height: 2
   						

6. Add a command button to the form, and set the following properties:
   

           Command Button
           ----------------------
           Name: btnFillTreeView
           Caption: Fill TreeView
           Width: 1"
           Height: .25"
   						

7. Set the OnClick property of the command button to the following event procedure:
   

          Private Sub btnFillTreeView_Click()
   
             Dim nodX As Node    ' Declare Node variable.
   
             With Me!tvcExample
   
               ' Set Treeview control properties.
               .LineStyle = tvwRootLines  ' Linestyle 1
               ' Add Node objects
               ' First node with 'Root1' as text.
               Set nodX = .Nodes.Add(, , "r1", "Root1")
               ' Second node on root with 'Root2' as text
               Set nodX = .Nodes.Add(, , "r2", "Root2")
               ' This next node is a child of Node 1 ("Root").
               Set nodX = .Nodes.Add("r1", tvwChild, "child1", "Child")
   
             End With
   
          End Sub
   						

8. Add another command button to the form and set the following properties:
   

           Command Button
           -----------------------
           Name: btnDeleteAllNodes
           Caption: Clear TreeView
           Width: .25"
           Height: 1"
   						

9. Set the OnClick property of the command button to the following event procedure:
   

           Private Sub btnDeleteAllNodes_Click()
              Me!tvcExample.Nodes.Clear
           End Sub
   						

10. Switch to Form view and click Fill TreeView; then click Clear Treeview, and note that all nodes are removed.