VB中viewlist 左边列表右边显示窗口问题

Question

最近在写一个VB的记事本，想把记事本里面加些资料，用到了tree view 可是不知道怎样在viewlist 左边列表右边显示窗口？

Answer 1

内容添加：最近一直在研发VB记事本，想在里面加一些技术方面的资料，想到了用 treeview list 但不知道怎么实现在左边显示列表，点击列表右边就会在窗口中显示内容？
在窗体中有一个treeview list控件和一个文本框
下面是我在treeview 中写的代码
Private Sub Form_Load()
   TreeView1.LineStyle = tvwRootLines
   TreeView1.Style = tvwTreelinesPlusMinusPictureText
 
  TreeView1.ImageList = ImageList1 '链接图像列
    
    TreeView1.Nodes.Add , , "R", "路由器,", 1
    TreeView1.Nodes.Add "R", tvwChild, "C1", "常用命令"
    TreeView1.Nodes.Add "R", tvwChild, "C2", "路由基础"
    TreeView1.Nodes.Add "R", tvwChild, "C3", "RIP协议"
    TreeView1.Nodes.Add "R", tvwChild, "C4", "OSPF协议"
    TreeView1.Nodes.Add "R", tvwChild, "C5", "IS-IS"
    TreeView1.Nodes.Add "R", tvwChild, "C6", "EIGRP"
    TreeView1.Nodes.Add "R", tvwChild, "C7", "Redistribute"
    TreeView1.Nodes.Add "R", tvwChild, "C8", "BGP"
    TreeView1.Nodes.Add "R", tvwChild, "C9", "IPv6"
    TreeView1.Nodes.Add "R", tvwChild, "C10", "组播"
    TreeView1.Nodes.Add "R", tvwChild, "C11", "帧中继"
    TreeView1.Nodes.Add "R", tvwChild, "C12", "DHCP"
    TreeView1.Nodes.Add "R", tvwChild, "C13", "NAT"
    TreeView1.Nodes.Add "R", tvwChild, "C14", "HSRP"
    TreeView1.Nodes.Add "R", tvwChild, "C15", "PPP"
    TreeView1.Nodes.Add "R", tvwChild, "C16", "ACL"
        TreeView1.Nodes.Add , , "S", "交换机,", 2
    TreeView1.Nodes.Add "S", tvwChild, "S1", "CDP"
    TreeView1.Nodes.Add "S", tvwChild, "S2", "switch工作原理"
    TreeView1.Nodes.Add "S", tvwChild, "S3", "VLAN-VTP-Trunk"    TreeView1.Nodes.Add "S", tvwChild, "S4", "PVLAN"
    TreeView1.Nodes.Add "S", tvwChild, "S5", "STP"
    TreeView1.Nodes.Add "S5", tvwChild, "S51", "E-STP"
    TreeView1.Nodes.Add "S", tvwChild, "S6", "EtherChannel"
    TreeView1.Nodes.Add "S", tvwChild, "S7", "MLS"
    TreeView1.Nodes.Add "S", tvwChild, "S8", "冗余"    
    TreeView1.Nodes.Add , , "SA", "安全,", 3
    TreeView1.Nodes.Add "SA", tvwChild, "SA1", "AAA"
    TreeView1.Nodes.Add "SA", tvwChild, "SA2", "IPsec-VPN"
    TreeView1.Nodes.Add "SA", tvwChild, "SA3", "SSH"
    TreeView1.Nodes.Add "SA", tvwChild, "SA4", "secure"
    TreeView1.Nodes.Add "SA", tvwChild, "SA5", "二层安全"
    
    
    TreeView1.Nodes.Add , , "O", "其它"
    TreeView1.Nodes.Add "O", tvwChild, "O1", "QOS"
    TreeView1.Nodes.Add "O", tvwChild, "O2", "QOS2"
    TreeView1.Nodes.Add "O", tvwChild, "O3", "VOIP"
    TreeView1.Nodes.Add "O", tvwChild, "O4", "MPLS-VPN"
    TreeView1.Nodes.Add "O", tvwChild, "O5", "DSL"
    
   TreeView1.Nodes.Add , , "Z", "杂七杂八"
   TreeView1.Nodes.Add "Z", tvwChild, "Z1", "TCP负载均衡"
   TreeView1.Nodes.Add "Z", tvwChild, "Z2", "寄存器值"
   TreeView1.Nodes.Add "Z", tvwChild, "Z3", "CISCO密码恢复"
   TreeView1.Nodes.Add "Z", tvwChild, "Z4", "排除IOS启动故障"
   TreeView1.Nodes.Add "Z", tvwChild, "Z5", "ICMP详解"
   TreeView1.Nodes.Add "Z", tvwChild, "Z6", "ARP详解"
   TreeView1.Nodes.Add "Z", tvwChild, "Z7", "IRDP详解"
   TreeView1.Nodes.Add "Z", tvwChild, "Z8", "ODR详解"
   TreeView1.Nodes.Add "Z", tvwChild, "Z9", "反向telnet"
   TreeView1.Nodes.Add "Z", tvwChild, "Z10", "Frame-relay"
   TreeView1.Nodes.Add "Z", tvwChild, "Z11", "交换路由升级"
      TreeView1.Nodes.Add , , "TL", "特殊牢记命令"
   TreeView1.Nodes.Add "TL", tvwChild, "TL1", "特殊命令"
   TreeView1.Nodes.Add "TL", tvwChild, "TL2", "牢记命令"
   TreeView1.Nodes.Add , , "NP", "网络协议"
   TreeView1.Nodes.Add "NP", tvwChild, "NP1", "rip"
TreeView1.Nodes.Add "NP", tvwChild, "NP2", "bgp"
TreeView1.Nodes.Add "NP", tvwChild, "NP3", "ospf"
TreeView1.Nodes.Add "NP", tvwChild, "NP4", "eigrp"
TreeView1.Nodes.Add "NP", tvwChild, "NP5", "ad"
TreeView1.Nodes.Add "NP", tvwChild, "NP6", "DHCP"
TreeView1.Nodes.Add "NP", tvwChild, "NP7", "IPV6"
TreeView1.Nodes.Add "NP", tvwChild, "NP8", "FR"
TreeView1.Nodes.Add "NP", tvwChild, "NP9", "ISDN"
TreeView1.Nodes.Add "NP", tvwChild, "NP10", "I-MLS"
TreeView1.Nodes.Add "NP", tvwChild, "NP11", "IS-IS"
TreeView1.Nodes.Add "NP", tvwChild, "NP12", "NAT"
TreeView1.Nodes.Add "NP", tvwChild, "NP13", "PPP"
TreeView1.Nodes.Add "NP", tvwChild, "NP14", "QOS"
TreeView1.Nodes.Add "NP", tvwChild, "NP15", "STP&VTP"
TreeView1.Nodes.Add "NP", tvwChild, "NP16", "VLAN"
TreeView1.Nodes.Add "NP", tvwChild, "NP17", "路由重分发"
TreeView1.Nodes.Add "NP", tvwChild, "NP18", "组播转发方式"
TreeView1.Nodes.Add "NP", tvwChild, "NP19", "ospf v3"
TreeView1.Nodes.Add , , "SY", "BENET实验记录"
TreeView1.Nodes.Add "SY", tvwChild, "SY1", "1 VTP协议"
TreeView1.Nodes.Add "SY", tvwChild, "SY2", "2 STP协议"
TreeView1.Nodes.Add "SY", tvwChild, "SY3", "3 三层交换"
TreeView1.Nodes.Add "SY", tvwChild, "SY4", "4 阶段综合实验"
TreeView1.Nodes.Add "SY", tvwChild, "SY5", "5 广域网技术"
TreeView1.Nodes.Add "SY", tvwChild, "SY6", "6 PPP协议"
TreeView1.Nodes.Add "SY", tvwChild, "SY7", "7 DSL技术"
TreeView1.Nodes.Add "SY", tvwChild, "SY8", "8 OSPDF单区域"
TreeView1.Nodes.Add "SY", tvwChild, "SY9", "9 OSPDF多区域配置"
TreeView1.Nodes.Add "SY", tvwChild, "SY10", "10 OSPDF高级配置"
TreeView1.Nodes.Add "SY", tvwChild, "SY11", "11 热备份路由协议（HSRP）"
TreeView1.Nodes.Add "SY", tvwChild, "SY12", "12 访问控制列表（ACL）"
TreeView1.Nodes.Add "SY", tvwChild, "SY13", "13 网络地址转换（NAT）"
TreeView1.Nodes.Add "SY", tvwChild, "SY14", "14 虚拟专网（VPN）"
TreeView1.Nodes.Add "SY", tvwChild, "SY15", "15 WLAN和VOIP"
TreeView1.Nodes.Add "SY", tvwChild, "SY16", "16 IPV6概述"
TreeView1.Nodes.Add "SY", tvwChild, "SY17", "综合实验1"
TreeView1.Nodes.Add "SY", tvwChild, "SY18", "综合实验2"TreeView1.Nodes.Add , , "JY", "经验总结"
  
End Sub

Answer 2

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    m_内容 = Node.Key
End Sub

Answer 3

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Text1.Text = Node.Key
End Sub

Answer 4

不会吧，那么多选项，text1.text显示哪个列表中的内容，比如 我选择了“路由器”--“常用命令”怎么让text1.text显示 相应的内容呢？

Answer 5

改 Text1.Text=Node.Text
显示的是你挑选的那一个