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