BUG: TreeView Expand Event Does Not Occur When Using ENTER Key

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Standard EXE project in Visual Basic 5.0. Form1 is created by default.
2. On the Project menu, click Components, and select "Microsoft Windows Common Controls 5.0."
3. Place a TreeView control on Form1.
4. Copy and paste the following code to the Form1 module:

         Option Explicit
   
         Private Sub Form_Load()
            With TreeView1
               .LineStyle = tvwRootLines  ' Linestyle 1
               .Nodes.Add , , "r", "Root"
               .Nodes.Add "r", tvwChild, "c1", "Child"
            End With
         End Sub
   
         Private Sub TreeView1_Expand(ByVal Node As ComctlLib.Node)
            MsgBox "TreeView1_Expand"
         End Sub
   						

5. Run the project.
6. Press the ENTER key to expand the Root node. Notice the message box appears indicating that the Expand event has occurred.
7. Use the mouse to collapse the Root tree by clicking the minus (-) symbol next to Root. (It is important to use the mouse because the problem occurs only when using the mouse to collapse the node.)
8. Press the ENTER key.
   
   RESULT: The message box does not appear because the Expand event does not occur.

Workaround

Replace the code in the Form1 module with the following code:

   Option Explicit

   Private IsExpanded As Boolean

   Private Sub Form_Load()
      With TreeView1
         .LineStyle = tvwRootLines  ' Linestyle 1
         .Nodes.Add , , "r", "Root"
         .Nodes.Add "r", tvwChild, "c1", "Child"
      End With
   End Sub

   Private Sub TreeView1_Collapse(ByVal Node As ComctlLib.Node)
      IsExpanded = False
   End Sub

   Private Sub TreeView1_Expand(ByVal Node As ComctlLib.Node)
      If IsExpanded Then Exit Sub
      MsgBox "TreeView1_Expand"
      IsExpanded = True
   End Sub

   Private Sub TreeView1_KeyDown(KeyCode As Integer, Shift As Integer)
      If Not TreeView1.SelectedItem.Expanded Then Exit Sub
      If KeyCode = 13 Then TreeView1_Expand TreeView1.SelectedItem
   End Sub
				

When you run the project, the KeyDown event of the TreeView control determines if the ENTER key was pressed. If the ENTER key was pressed, code in the KeyDown event calls the Expand event of the TreeView control. The IsExpanded flag variable is used so that the Expand event code is not executed more than once.