' No Double-Click
Protected bDoubleClick as boolean
Private Sub treStructure_BeforeExpand(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles treStructure.BeforeExpand
If bDoubleClick Then
bDoubleClick = False
e.Cancel = True
End If
End Sub
Private Sub treStructure_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles treStructure.MouseDown
Dim xNode As TreeNode
If e.Button = MouseButtons.Left Then
xNode = treStructure.GetNodeAt(e.X, e.Y)
If Not xNode Is Nothing Then
If Not xNode.IsExpanded And xNode.GetNodeCount(False) > 0 Then
If e.Clicks = 2 Then
bDoubleClick = True
End If
End If
End If
End If
End Sub
Enter your message below
Sign in or Join us (it's free).