《扩展控件实例教程.ppt

2.1 TreeView控件 （7） 在【添加系】按钮的单击事件过程中加入以下代码： Dim mNode As Node 声明节点对象变量 若省略Add方法的第一个参数，则在所有顶层节点之后 添加一个新的顶层节点，同时忽略Add方法的第二个参数。 下面一行语句中的1,2为ImageList控件中的图片索引。 Set mNode = TreeView1.Nodes.Add(, , , X系, 1, 2) 添加节点并为变量赋值 mNode.Selected = True 选中新节点 使新节点标签处于编辑状态以便用户修改 TreeView1.StartLabelEdit Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2.1 TreeView控件 （8） 在【添加班级】按钮的单击事件过程中加入以下代码： 若控件中无节点退出此过程 If TreeView1.Nodes.Count = 0 Then Exit Sub Dim mNode As Node 声明节点对象变量 Dim iIndex As Integer 若未选择节点将出错，转错误处理语句 On Error GoTo NodeErr 取当前选定节点的索引 iIndex = TreeView1.SelectedItem.Index Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2.1 TreeView控件 （9） 若选定的节点是系节点(无父节点)则添加子节点， 否则添加兄弟节点 If TreeView1.Nodes(iIndex).Parent Is Nothing Then Set mNode = TreeView1.Nodes.Add(iIndex, _ tvwChild, , X级X班, 3, 4) Else Set mNode = TreeView1.Nodes.Add(iIndex, _ tvwLast, , X级X班, 3, 4) End If mNode.EnsureVisible 使新节点可见 mNode.Selected = True 选中新节点 使新节点标签处于编辑状态以便用户修改 TreeView1.StartLabelEdit Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2.1 TreeView控件 （10） Exit Sub NodeErr: 处理错误 MsgBox 请先选择一个系。, vbExclamation, 提示 程序运行效果如图 6和图 7所示。 图 6 添加系 图 7 添加班级 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2.1 TreeView控件 （11） 3. 删除和清空节点 Nodes集合的Remove方法和Clear方法分别用于删除和清空节点。 【例 7】扩展例 6的功能，使之能够删除和清空节点。 在例 6中添加两个按钮，Caption分别为“删除”和“清空”。在“删除”按钮的单击事件过程中加入以下代码： Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 2.1 TreeView控件 （12） 若控件中无节点退出此过程 If TreeView1.Nodes.Count = 0 Then Exit Sub Dim iIndex As Integer 取当前选定节点的索引 iIndex = TreeView1.SelectedItem.Index 删除选定节点及其子节点 TreeView1.Nod