简单问题——有关TreeView控件

Question

单击Treeview时，如何得到的时哪一条note？

Answer 1

我的意思是如何返回选定的节点（Node）
呵呵

Answer 2

Private Sub tvwReport_NodeClick(ByVal node As MSComctlLib.node)end 
vb自带事件中，这个node就是当前的node了
当然也可以遍历查询Selected属性=true的node

Answer 3

Private Sub Form_Load()
Dim nodx As Node
Set nodx = trv.Nodes.Add(, , "driver1", "É豸1")
Set nodx = trv.Nodes.Add(, , "driver2", "É豸2")
Set nodx = trv.Nodes.Add(, , "driver3", "É豸3")Set nodx = trv.Nodes.Add("driver1", 4, , "192.168.1.227")
Set nodx = trv.Nodes.Add("driver1", 4, , "192.168.1.224")
Set nodx = trv.Nodes.Add("driver1", 4, , "192.168.1.228")
nodx.EnsureVisibleSet nodx = trv.Nodes.Add("driver2", 4, , "192.168.1.163")
Set nodx = trv.Nodes.Add("driver2", 4, , "192.168.1.47")
nodx.EnsureVisibleSet nodx = trv.Nodes.Add("driver3", 4, , "192.168.1.121")
Set nodx = trv.Nodes.Add("driver3", 4, , "192.168.1.192")
Set nodx = trv.Nodes.Add("driver3", 4, , "192.168.1.133")
Set nodx = trv.Nodes.Add("driver3", 4, "É豸3", "192.168.1.131")
Set nodx = trv.Nodes.Add("driver3", 4, "aa", "123456789")
nodx.EnsureVisibleSet nodex = trv.Nodes.Add("aa", 4, , "ÕâÊÇ123456789ÏÂÃæµÄÒ»¸ö½Úµã")Private Sub trv_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Node.Text
End Sub

Answer 4

或者利用api根据鼠标位置获取

Answer 5

Dim tmpNode As Node
Private Sub Form_Load()
    TreeView1.Nodes.Add , , "key0", "a"
    TreeView1.Nodes.Add "key0", , "key1", "b"
    TreeView1.Nodes.Add "key0", , "key2", "c"
    TreeView1.Nodes.Add "key0", , "key3", "d"
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Set tmpNode = TreeView1.SelectedItem
    MsgBox tmpNode.Text
End Sub

Answer 6

    Set tmpNode = TreeView1.SelectedItem这样就够了