VB 在treeview中,选中一个子节点后,在旁边显示出他所有父节点的名称,怎么写?谢谢各位了

来源:百度知道 编辑:UC知道 时间:2024/05/22 21:26:18
就是这样的形式:地球-中国-北京-海淀(点击海淀的时候)

TreeView.Nodes(TreeView.SelectedItem.Index).FullPath
TreeView路径分隔符要先设置为 "-" 哦

Private Sub Form_Load()
TreeView1.PathSeparator = "-"
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim str1 As String
'方案一
str1 = Node.FullPath
Debug.Print str1
'方案二
str1 = Node.Text
Set Node = Node.Parent
While Not Node Is Nothing
DoEvents
str1 = Node.Text & "-" & str1
Set Node = Node.Parent
Wend
Debug.Print str1
End Sub