Eliminar Expand/Collapse del TreeView al hacer double click

[elmaro]

Bueno, quien no tuvo este problema? Querer hacer un doble click en un nodo y realizar una acción pero sin que el nodo se expanda?
Tuve este problema y en internet no hay ninguna solución. Entonces decidí postear la que se me ocurrió, que la verdad funciona muy bien y es muy sencilla.

Suponiendo que el treeview se llama tvTree y que ya tiene nodos agregados:

Código (vbnet) [Seleccionar] Expandir

Public cancelAction As Boolean = True

Private Sub tvTree_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles tvTree.BeforeExpand
      e.Cancel = cancelAction
End Sub

Private Sub tvTree_BeforeCollapse(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles tvTree.BeforeCollapse
       e.Cancel = cancelAction
End Sub

Private Sub tvTree_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvTree.MouseDown

Dim node as Treenode = tvTree.GetNodeAt(e.X, e.Y)
       If node.Bounds.IntersectsWith(New Rectangle(e.X, e.Y, e.X, e.Y)) Then
               cancelAction = True
       Else
cancelAction = False
       End If

End Sub

Espero les sirva.

Saludos!

#EDIT

Encontre una mejora para el codigo sitado arriba. Funciona mucho mejor y no tiene resultados indeseados. Todas las modificaciones son en tvTree_MouseDown
Se contempla si los nodos tienen imagenes o no.

Código (vbnet) [Seleccionar] Expandir

        Dim node As TreeNode = TreeView1.GetNodeAt(e.X, e.Y) 'Obtengo el nodo donde hice click

        If node Is Nothing Then Exit Sub 'Si no hay nodo, salgo

        Dim imgWid As Integer = 16 'Ancho de imagen del nodo / imgWid = 0 si no tiene imagen
        Dim rect As Rectangle = New Rectangle(node.Bounds.X - imgWid, node.Bounds.Y, node.Bounds.Width + imgWid, node.Bounds.Height)

        If rect.Contains(e.X, e.Y) Then
            cancelAction = True
        Else
            cancelAction = False
        End If

Otros saludos!