Remove Multiple TreeView Nodes

[arpan_de]

In a web browser app, the history of pages visited by users are being listed in a TreeView. When a node is right-clicked in the TreeView, a menu appears (similar to IE). Users have also been given the option to view history by date, by domain & by order visited (again similar to IE).

It is possible that a user visits the same web page multiple times in which case the title of the web page visited multiple times will obviously be the same. It is also possible that though the URLs of web pages will be different, their titles will be the same. This means that when a user views his history by order of the pages he has visited, pages with the same title or pages with the same title but different URLs will be listed more than once in the TreeView.

Hence when a node is right-clicked in the TreeView, I would like to give users the option to delete multiple pages in the TreeView either by the web page title or by the web page URL at one go. Using the following code, I can extract the titles & URLs of the web pages:

Private Sub DeleteHistory()
    MsgBox "Page Title: " & tvwHistory.SelectedItem.Text
    MsgBox "Page URL: " & tvwHistory.SelectedItem.Tag
End Sub

Now how do I loop through the TreeView nodes to find out which nodes' titles are the same & which nodes titles are the same but the URLs are different & then delete all of them at the same time?

Note that the right-click menu will have two options to delete history - Delete All References By Title & Delete All References By URL.

[tamjap]

Try something like:

Private Sub DeleteByTitle (ByRef tvwTreeView as TreeView, ByVal pstrTitle as String, ByVal pnodParentNode as TreeNode)
 
Dim nodChild as TreeNode
 
For Each nodChild in pnodParent.ChildNodes
     If nodChild.Text.toUpper() = pstrTitle.toUpper() Then
        tvwTreeView.Nodes.Remove(nodChild)
     Else If nodChild.ChildNodes.Count > 0 Then
           DeleteByTitle(tvwTreeView, pstrTitle, nodChild
     End If
Next nodChild
End Sub
 
Private Sub DeleteByURL (ByRef tvwTreeView as TreeView, ByVal pstrURL as String, ByVal pnodParentNode as TreeNode)
 
Dim nodChild as TreeNode
 
For Each nodChild in pnodParent.ChildNodes
     If nodChild.Tag.toUpper() = pstrURL.toUpper() Then
        tvwTreeView.Nodes.Remove(nodChild)
     Else If nodChild.ChildNodes.Count > 0 Then
           DeleteByURL(tvwTreeView, pstrURL, nodChild
     End If
Next nodChild
End Sub
 
'''''''''''''''''  Code Behind Menu    ''''''''''''''''
Dim nodRootNode as TreeNode
 
For each nodRootNode in tvwHistory.Nodes
     DeleteByTitle (tvwHistory, tvwHistory.SelectedItem.Text.Trim(), nodRootNode)
Next nodRootNode
 
etc...

I haven't tested this, but it should get you started in the right direction.