VB TreeView使用
2020-08-11 15:54 idea555 阅读(72) 评论(0) 编辑 收藏 举报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", "开除查询") \'设置子节点