16,722
社区成员




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