BUG: Treeview Control NodeClick Event Not Raised When SingleSel = True (240229)

MORE INFORMATION

Steps to Reproduce Behavior

1. Confirm that Visual Basic 6.0 Service Pack 3 installed.
2. Start a new Visual Basic Standard EXE project. Form1 is created by default.
3. From the Project menu select Components. In the Components dialog box, select "Microsoft Windows Common Controls 6.0 (SP3)", and then click OK.
4. Add a Treeview control to Form1.
5. Add the following code to the General Declarations section of Form1:

   Private Sub Form_Load()
      Dim nodx As Node  ' Declare Node variable.
   
      TreeView1.SingleSel = True
   
      ' Add Node objects.
      Set nodx = TreeView1.Nodes.Add(, , "r", "Root1")
   
         Set nodx = TreeView1.Nodes.Add("r", tvwChild, "child1a", "Child1")
         Set nodx = TreeView1.Nodes.Add("r", tvwChild, "child1b", "Child2")
   
      Set nodx = TreeView1.Nodes.Add(, tvwChild, "r2", "Root2")
   
         Set nodx = TreeView1.Nodes.Add("r2", tvwChild, "child2a", "Child1")
         Set nodx = TreeView1.Nodes.Add("r2", tvwChild, "child2b", "Child2")
         Set nodx = TreeView1.Nodes.Add("r2", tvwChild, "child2c", "Child3")
   
      Set nodx = TreeView1.Nodes.Add(, tvwChild, "r3", "Root3")
   
         Set nodx = TreeView1.Nodes.Add("r3", tvwChild, "child3a", "Child1")
         Set nodx = TreeView1.Nodes.Add("r3", tvwChild, "child3b", "Child2")
           
      Set nodx = TreeView1.Nodes.Add(, tvwChild, "r4", "Root4")
   End Sub
   
   Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
      MsgBox Node.Text
   End Sub
   						

6. Run the project. Root1 will be selected. Click on Root2. No message box displays, indicating that the NodeClick event was not raised.