BUG: Treeview Root Property Returns Reference to First Node

• Standard, Professional, and Enterprise Editions of Microsoft Visual Basic, 32-bit only, for Windows, version 4.0

SYMPTOMS

The Node property of the TreeView custom control has a property named Root. The Help states that Root "returns a reference to the root Node object of a selected Node." Due to the way the Root property was designed, this statement isn't always true. The Root property of a Node always returns a reference to the first root level node; that is, it returns a reference to the first node that was added with this syntax:

   TreeView1.Nodes.Add , , , "MyText"

WORKAROUND

To work around this problem, use the following small function to determine the Root node of a given node instead of the inherent Root property. FindRoot returns a reference to the correct root node for the specified Node object passed as a parameter.

   Function FindRoot(ByVal nodX As Node) As Node
       Dim n As Integer

       On Error GoTo ErrHandler

       n = nodX.Index
       While n <> nodX.Root.Index
           n = TreeView1.Nodes(n).Parent.Index
       Wend

   ErrHandler:
       Set FindRoot = TreeView1.Nodes(n)
   End Function

STATUS

Microsoft has confirmed this to be an issue in the Microsoft products listed at the beginning of this article. Microsoft is researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

Steps to Reproduce

1. Start Visual Basic 4.0, 32-bit version. Form1 is created by default.

2. Add a single TreeView control to Form1.

3. Add this code to the Form_Click event of Form1:

      Sub Form_Click()
         With TreeView1
            .Nodes.Add , , , "abc"
            .Nodes.Add , , , "def"
            MsgBox .Nodes(1).Root.Text 'returns 'abc'
      MsgBox .Nodes(2).Root.Text 'returns 'abc' also - you expect it
      ' to return 'def'
         End With
      End Sub
   
   

4. Press F5 or select Start from the Run menu to run the application. Observe that both message boxes display the same string.