还是关于TREEVIEW的问题（在线等待）

[isaacw]

选定的项返回在那里？

[laoyang]

选定一个节点会触发_NodeClick 事件,
private sub tvwSample_NodeClick(byval Node as node)
参数Node就是当前选中的节点.

[junwhj]

Private Sub Command1_Click()
Dim NodeX As Node
Set NodeX = TreeView1.SelectedItem
If Not NodeX Is Nothing Then
Debug.Print NodeX.Text
Else
Debug.Print "没有选定"
End If
End Sub

[wgy081]

up

[winnerwang]

一下是返回特定选项的代码：(先用右键单击treeview控件，选择属性，在通用栏中将treeview的线条样式改为1-tvwRootLines)

Private Sub Form_Click()
Dim nodex As Node
TreeView1.Sorted = True
With TreeView1.Nodes
Set nodex = .Add(, , , "weeewr")
nodex.Sorted = True
.Add 1, tvwChild, , "www"
.Add 1, tvwChild, , "dsfds"
Set nodex = .Add(1, tvwChild, "ww", "dsfds")
nodex.Sorted = True
.Add "ww", tvwChild, , "dsfdsfwe2344"
.Add "ww", tvwChild, "ee", "123213"
.Add "ww", tvwChild, , "23423"
.Add "ee", tvwChild, , "dfds"
.Add "ee", tvwChild, , "23232"
End With
End Sub

'下面的事件是当你选定特定项时发生
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Node '此处你可以换成你想要的代码。
End Sub

看看现在是不是已经实现你想要功能了呢,有什么问题可以继续提出来大家讨论，共同进步嘛！！！！
see it?

[Ranma_True]

同意winnerwang(彷徨)