小弟實在無法搞定,請幫幫我.

Question

Private Sub treeview1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)Set N = treeview1.HitTest(x, y)
If N Is Nothing Then
     '未击中
else
     '击中
end ifEnd Sub

Answer 1

Dim RightDown As Boolean
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 2 Then    RightDown = TrueElse    RightDown = False
    
End IfEnd SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)If RightDown = True Then    PopupMenu mnuE, 2End IfEnd Sub

Answer 2

y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆)兄,
用你的方法如何判定擊中的是哪一條呢?如何得到node.key?

Answer 3

在if RightDown =True then
下加入如下代码:
 msgbox "你击中的是第"+str(Node.Index)+"个节点"

Answer 4

dux(狗狗)　,griefforyou(为你伤心)　
我問的是用 y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆)　的方法,如何判定擊中的是哪一條,
不是說用griefforyou(为你伤心)　的方法,當然griefforyou(为你伤心)　的方法很好,不過用這種方法去判斷,小弟已經知道了.

Answer 5

Set N = treeview1.HitTest(x, y)这个N 就是那个节点啊！