VB6.0 自定义TreeView树形菜单(展开菜单),类似于实现多级菜单、展开菜单的功能,当然也可当作Tree树控菜单来使用。最终的功能预览图请参见测试截图所示。
Set a = TreeView1.Nodes.Add(, etvwFirst, 1, "第一个")
TreeView1.Nodes.Add a, etvwChild, 3, "第一个-1"
TreeView1.Nodes.Add a, etvwChild, 4, "第一个-2"
TreeView1.Nodes.Add a, etvwChild, 5, "第一个-3"
TreeView1.Nodes.Add a, etvwChild, 6, "第一个-4"
TreeView1.Nodes.Add a, etvwChild, 7, "第一个-5"
TreeView1.Nodes.Add a, etvwChild, 8, "第一个-6"
Set a = TreeView1.Nodes.Add(, etvwFirst, 2, "第二个")
TreeView1.Nodes.Add a, etvwChild, 9, "第二个-1"
TreeView1.Nodes.Add a, etvwChild, 10, "第二个-2"
TreeView1.Nodes.Add a, etvwChild, 11, "第二个-3"
TreeView1.Nodes.Add a, etvwChild, 12, "第二个-4"
TreeView1.Nodes.Add a, etvwChild, 13, "第二个-5"
TreeView1.Nodes.Add a, etvwChild, 14, "第二个-6"