Private Sub tv_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tv.MouseDown
pi = New Point(e.X, e.Y)
End Sub
Private Sub tv_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tv.DoubleClick
Dim node As TreeNode = tv.GetNodeAt(pi)
If pi.X < node.Bounds.Left Or pi.X > node.Bounds.Right Then
Me.Text = "" '不触发事件
Exit Sub
Else
Me.Text = "ggg" ‘触发事件
End If