知识大全 VB.NET中层次数据绑定TreeView的实现

Posted 2022-07-17 结点

篇首语：锲而舍之，朽木不折；锲而不舍，金石可镂。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 VB.NET中层次数据绑定TreeView的实现相关的知识，希望对你有一定的参考价值。

VB.NET中层次数据绑定TreeView的实现 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

提要:在VB 中常将TreeView用来表示层次数据但相关的与数据库进行交互的代码需要大量的采用手工编码;在中由于数据绑定功能的加强及语言特性的增强可以很容易的实现TreeView与层次数据的绑定本文将首先建立一个继承自TreeView的 dbTreeView 然后用一个单位(部门)的层次数据与dbTreeView进行数据绑定并提供了与数据库进行交互的代码　　从层次数据的表达方式开始　　在本例中部门表(department)中有五个字段如下表: 字段名字段类型说明 ID 自动编号 Key Code String 编码 Name String 名称 PID Int 父结点的ID CPtr boolean 是否有子结点　　　　继承自TreeNode的myTreeNode　　在myTreeNode中新增了三个属性如下表: 属性名类型说明 Value Object Key PID Object 父结点的ID CPtr Boolean 是否有子结点　　　　在Init事件中根据传入的四个参数设置这三个属性和Text属性　　将dbTreeView绑定到数据源属性名类型说明 Datasource dataview dbTreeVIew的数据源使用dataview 而不是object Value Member string值成员(数据源[dataview]的列名) Display Member string显示(在Text中)成员 Pid Member string父ID成员 CPtr Member string是否有子结点　　　　后四个属性对应myTreeNode的value text pid cptr 　　相关代码如下: Protected Property DataSource() As Object　Get　　Return mDataView　End Get　Set(ByVal Value As Object)　　If Value Is Nothing Then　　Else　　　mDataView = Value　　　cm = CType(Me BindingContext(mDataView) CurrencyManager)　　　UpdateTreeView()　　End If　End SetEnd PropertyProtected Property PidMember() As String　Get　　Return mPidMember　End Get　Set(ByVal Value As String)　　mPidMember = Value　End SetEnd PropertyProtected Property DisplayMember() As String　Get　　Return Join(mDisplayMember SplitChar)　End Get　Set(ByVal Value As String)　　mDisplayMember = Split(Value SplitChar)　End SetEnd Property 注意这几个属性都是保护成员必须在Init事件中设置:Public Sub Init(ByVal dispmember As String ByVal valuemember As String ByVal pidmember As String ByVal cptrmember As String ByVal datasource As DataView)　Me ValueMember = valuemember　Me DisplayMember = dispmember　Me PidMember = pidmember　Me CPtrMember = cptrmember　Me DataSource = datasource　取value最大值新增时将value+ 保证关健值唯一　Me mDataView Sort = Me ValueMember　Me m_MaxID = Me GetValue(Me mDataView Count )End Sub

　　设置DisplayMember属性的格式如:字段 ;字段 ;字段 …

　　在设置属性时将传来的参数转换为字符串数组mDisplayMember 在检索值时返回数据如:值值值 …

Protected Overridable Function GetDisplay(ByVal Index As Integer) As Object　Dim i As Integer　Dim temp As String = 　For i = To mDisplayMember Length 　　temp = temp & IIf(i > LinkChar ) & mDataView(Index)(mDisplayMember(i))　Next　Return tempEnd Function　　其它检索值的函数请参见源程序生成树　　UpdateTreeView调用私有方法FillTree来生成树需要注意的 FillTree只是生成指定结点的子结点并将其添加到指定结点而不是一次就将所有结点添加到树中如果未指定结点(第一次填充时) 只是添加顶层结点 Private Sub FillTree(ByRef pnode As myTreeNode Optional ByVal filter As String = )　mDataView RowFilter = filter　Dim i As Integer icol As Integer　Dim newnode As myTreeNode　RemoveHandler cm PositionChanged AddressOf cm_PositionChanged　Me BeginUpdate()　For i = To mDataView Count() 　　newnode = New myTreeNode(GetDisplay(i) GetValue(i) GetPid(i) GetCPtr(i))　　当有子结点时为这个结点添加一个空子结点　　If newnode CPtr Then　　　Dim nullnode As New myTreeNode()　　　nullnode Value = NoExpandNodeValue　　　newnode Nodes Add(nullnode)　　End If　　If pnode Is Nothing Then　　　Me Nodes Clear()　　　Me Nodes Add(newnode)　　Else　　　pnode Nodes Add(newnode)　　End If　Next　Me EndUpdate()　mDataView RowFilter = 　AddHandler cm PositionChanged AddressOf cm_PositionChangedEnd Sub　　在展开有子结点的结点前删除所有子结点再用FillTree为待展开结点新增子结点 Private Sub dbTreeView_BeforeExpand(ByVal sender As Object ByVal e As System Windows Forms TreeViewCancelEventArgs) Handles MyBase BeforeExpand　当是新增结点引起BeforeExpand事件时直接退出　If ExpandWhenAddNode Then Exit Sub　在展开结点前更新子结点　Dim currentnode As myTreeNode = CType(e Node myTreeNode)　With currentnode　　 Nodes Clear()　　FillTree(currentnode mPidMember & = & CInt( Value))　End WithEnd Sub　　实现数据与绑定控件的同步　　要实现两个方面的同步:　　其它绑定控件(如textbox等)应与TreeView当前结点所指向的记录位置一致 Private Sub dbTreeView_AfterSelect(ByVal sender As Object ByVal e As System Windows Forms TreeViewEventArgs) Handles MyBase AfterSelect　If e Node Is Nothing Then Exit Sub　定位到position　cm Position = GetPosition(CType(e Node myTreeNode) Value)　If AllowEdit Then　　oldNode = e Node　　oldPos = cm Position　End IfEnd Sub　　在其它绑定控件改变了数据源后更新树结点这个工作在触发CurrencyManager的PositionChanged事件时进行 Public Sub cm_PositionChanged(ByVal sender As Object ByVal e As System EventArgs)　If CType(Me SelectedNode myTreeNode) Value <> GetValue(cm Position) Then　　Debug WriteLine( Current node isn t correct point to currencymanager position! )　　Me SelectedNode = FindNodeByValue(GetValue(cm Position) Me Nodes)　End If　If AllowEdit Then　　If Me SelectedNode Is Nothing AndAlso cm Position = cm Count Then　　　当新增记录时新增树结点　　　If CType(cm Current DataRowView) IsNew Then　　　　Me SelectedNode = AddNode(cm Position)　　　　Exit Sub　　　End If　　End If　　If Not oldNode Is Nothing Then　　　If CType(oldNode myTreeNode) Value = GetValue(oldPos) Then　　　　更新老结点　　　　oldNode Text = GetDisplay(oldPos)　　　Else　　　End If　　End If　End IfEnd Sub

　　使用dbTreeView　　程序运行后界面如下:　　　　相关代码请参见源程序这里不做详述

cha138/Article/program/net/201311/13916