文件名称：VB TreeView树形菜单（自定义展开菜单）.rar
文件大小：58KB
文件格式：RAR
更新时间：2022-07-30 03:24:24
VB源码-窗体界面
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"
【文件预览】：
srcfans.com
----TreeView()
--------ISHF_Ex.tlb(18KB)
--------TreeView.ctl(163KB)
--------subclass.cls(2KB)
--------cTreeViewNodes.cls(5KB)
--------timer.cls(3KB)
--------mTreeViewIOLEIPAO.bas(6KB)
--------subclass.bas(17KB)
--------Form1.frm(3KB)
--------mMain.bas(190B)
--------工程1.vbp(652B)
--------OLEGUIDS.tlb(8KB)
--------mIMalloc.bas(4KB)
--------cTreeViewNode.cls(24KB)
--------pcImageListDrag.cls(4KB)
--------MSSCCPRJ.SCC(336B)
--------TreeView.vbw(379B)
--------timer.bas(3KB)
--------isubclass.cls(1KB)
--------TreeView.vbg(61B)
--------TreeView.vbp(2KB)
--------工程1.vbw(50B)
--------TreeView.ctx(786B)