VB TreeView使用

Dim N As Node '声明
Set N = TreeView1.Nodes.Add(, , "A", "学生信息") '设置主节点
Set N = TreeView1.Nodes.Add("A", tvwChild, "X1", "班级分布") '设置子节点
Set N = TreeView1.Nodes.Add("A", tvwChild, "X2", "宿舍分布") '设置子节点
Set N = TreeView1.Nodes.Add("A", tvwChild, "X3", "学生名单") '设置子节点
Set N = TreeView1.Nodes.Add("A", tvwChild, "X4", "奖学金项") '设置子节点
Set N = TreeView1.Nodes.Add("A", tvwChild, "X5", "课程设计") '设置子节点
Set N = TreeView1.Nodes.Add(, , "B", "查询功能") '设置主节点
Set N = TreeView1.Nodes.Add("B", tvwChild, "X6", "成绩查询") '设置子节点
Set N = TreeView1.Nodes.Add("B", tvwChild, "X7", "学分查询") '设置子节点
Set N = TreeView1.Nodes.Add("B", tvwChild, "X8", "记过查询") '设置子节点
Set N = TreeView1.Nodes.Add("B", tvwChild, "X9", "警告查询") '设置子节点
Set N = TreeView1.Nodes.Add("B", tvwChild, "X10", "开除查询") '设置子节点