16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Tree_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
dim CurrentNode As TreeNode = Nothing
Dim ClickPoint As Point = New Point(e.X, e.Y)
CurrentNode = Me.GetNodeAt(ClickPoint)
If not CurrentNode Is Nothing Then
Me.SelectedNode = CurrentNode
'在这执行单击节点代码
End If
End Sub