扩展控件实例教程.ppt

2.1TreeView控件（7）在【添加系】按钮的单击事件过程中加入以下代码：DimmNodeAsNode声明节点对象变量若省略Add方法的第一个参数，则在所有顶层节点之后添加一个新的顶层节点，同时忽略Add方法的第二个参数。下面一行语句中的1,2为ImageList控件中的图片索引。SetmNode=TreeView1.Nodes.Add(,,,X系,1,2)添加节点并为变量赋值mNode.Selected=True选中新节点使新节点标签处于编辑状态以便用户修改TreeView1.StartLabelEdit2.1TreeView控件（8）在【添加班级】按钮的单击事件过程中加入以下代码：若控件中无节点退出此过程IfTreeView1.Nodes.Count=0ThenExitSubDimmNodeAsNode声明节点对象变量DimiIndexAsInteger若未选择节点将出错，转错误处理语句OnErrorGoToNodeErr取当前选定节点的索引2.1TreeView控件（9）若选定的节点是系节点(无父节点)则添加子节点，否则添加兄弟节点IfTreeView1.Nodes(iIndex).ParentIsNothingThenSetmNode=TreeView1.Nodes.Add(iIndex,_ tvwChild,,X级X班,3,4)ElseSetmNode=TreeView1.Nodes.Add(iIndex,_ tvwLast,,X级X班,3,4)EndIfmNode.EnsureVisible使新节点可见mNode.Selected=True选中新节点使新节点标签处于编辑状态以便用户修改TreeView1.StartLabelEdit2.1TreeView控件（10）ExitSubNodeErr:处理错误MsgBox请先选择一个系。,vbExclamation,提示程序运行效果如图6和图7所示。图6添加系图7添加班级2.1TreeView控件（11）3.删除和清空节点在例6中添加两个按钮，Caption分别为“删除”和“清空”。在“删除”按钮的单击事件过程中加入以下代码：Nodes集合的Remove方法和Clear方法分别用于删除和清空节点。【例7】扩展例6的功能，使之能够删除和清空节点。2.1TreeView控件（12）若控件中无节点退出此过程IfTreeView1.Nodes.Count=0ThenExitSubDimiIndexAsInteger取当前选定节点的索引iIndex=TreeView1.SelectedItem.Index删除选定节点及其子节点TreeView1.Nodes.RemoveiIndex在“清空”按钮的单击事件过程中加入以下代码：TreeView1.Nodes.Clear清除所有节点2.1TreeView控件（13）4.响应节点的单击事件在TreeView中选择节点时将触发节点单击事件NodeClick。该事件过程的Node参数代表被选择的节点对象。例如，在例7中添加一个标签，然后为节点单击事件编写如下代码，程序运行时选择某一节点即可在标签中显示该节点的完整路径(FullPath属性)：NodeAsMSComctlLib.Node)EndSubPrivateSubTreeView1_NodeClick(ByVal_Label1.Caption=“选定节点：”_Node.FullPath123452.2ListView控件（1）ListView控件可使用大图标、小图标、列表和报表（详细资料）四种不同视图显示列表项。Windows资源管理器的右窗格就是ListView控件的典型例子。ListView控件的四种视图ListView控件的View属性决定它的视图显示方式，有4种取值。将该属性值设为常数lvwIcon或0为大图标，lvwSmallIcon或1为小图标，lvwList或2为列表，lvwReport或3为详细资料。四种视图显示模式如图8～图11所示。01022.2ListView控件（2）图8大图标视图