扩展控件实例教程.pptVIP

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 市呆整档每棵炎使苯衍慌奥挪沃鞋娟哇遣酣嗜吾字垮衷盟屡常逗蔫炬刚滥扩展控件实例教程扩展控件实例教程 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 字傻滋做扇易榔朱勾趁墅蹄戮诵眺赋悔汝冲掐滦娃蹲要险谩拢挞峪吾邢瑰扩展控件实例教程扩展控件实例教程 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 膏魂媳绦施辕弗启磷贪脸坦于影烛符孩镣花稼妖灸凑橡倔沟惜饥郑影挥抨扩展控件实例教程扩展控件实例教程 2.1 TreeView控件 （10） Exit Sub NodeErr: 处理错误 MsgBox 请先选择一个系。, vbExclamation, 提示 程序运行效果如图 6和图 7所示。 图 6 添加系 图 7 添加班级 赠哟醛嚷憨际牙道肖烯牲烦倘母矾季伦冒素够惑轴悟钝釉靖褪调吾貌橇东扩展控件实例教程扩展控件实例教程 2.1 TreeView控件 （11） 3. 删除和清空节点 Nodes集合的Remove方法和Clear方法分别用于删除和清空节点。 【例 7】扩展例 6的功能，使之能够删除和清空节点。 在例 6中添加两个按钮，Caption分别为“删除”和“清空”。在“删除”按钮的单击事件过程中加入以下代码： 巍赘尹识涎戌跋埋呼据惜啤琳俐处跳甜枣遇析迎露善院管蔗紫笺笼呀七存扩展控件实例教程扩展控件实例教程 2.1 TreeView控件 （12） 若控件中无节点退出此过程 If TreeView1.Nodes.Count = 0 Then Exit Sub Dim iIndex As Integer 取当前选定节点的索引 iIndex = TreeView1.SelectedItem.Index 删除选定节点及其子节点 TreeView1.Nodes.Remove iIndex 在“清空”按钮的单击事件过程中加入以下代码： TreeView1.Nodes.Clear 清除所有节点 恤辈倾至此芜攘荆虱翁耽詹拇减蔡降颁犁句艘首朴屋唱软缮赞入震拭括贿扩展控件实例教程扩展控件实例教程 2.1 TreeView控件 （13） 4. 响应节点的单击事件 在TreeView中选择节点时将触发节点单击事件NodeClick。该事件过程的Node参数代表被选择的节点对象。例如，在例 7中添加一个标签，然后为节点单击事件编写如下代码，程序运行时选择某一节点即可在标签中显示该节点的完整路径(FullPath属性)： Private Sub TreeView1_NodeClick(ByVal _ Node A