至顶网›软件频道 ›基础软件›Windows窗体控件开发示例:扩展TreeView

Windows窗体控件开发示例:扩展TreeView

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

讲述了如何向 TreeView 控件添加数据绑定功能，它是一系列 Microsoft Windows 控件开发示例之一......

作者：佚名来源：Microsoft 2007年11月14日

关键字：

将 DataSource 转变为树

　　编写完数据绑定代码后，我可以继续添加管理分组级别的代码，相应地生成树，然后添加一些自定义事件、方法和属性。

　　管理组

　　程序员要配置组集合，就必须创建 AddGroup、RemoveGroup 和 ClearGroups 函数。每当修改组集合时，都必须重新绘制树（以反映新配置），因此我创建了一个通用过程 GroupingChanged，当情况发生变化，需要强制重建树时，它可以由控件中的各种代码调用：

Private treeGroups As New ArrayList()

Public Sub RemoveGroup(ByVal group As Group)
If Not treeGroups.Contains(group) Then
treeGroups.Remove(group)
GroupingChanged()
End If
End Sub

Public Overloads Sub AddGroup(ByVal group As Group)
Try
treeGroups.Add(group)
GroupingChanged()
Catch
End Try
End Sub

Public Overloads Sub AddGroup(ByVal name As String, _
ByVal groupBy As String, _
ByVal displayMember As String, _
ByVal valueMember As String, _
ByVal imageIndex As Integer, _
ByVal selectedImageIndex As Integer)
Dim myNewGroup As New Group(name, groupBy, _
displayMember, valueMember, _
imageIndex, selectedImageIndex)
Me.AddGroup(myNewGroup)
End Sub

Public Function GetGroups() As Group()
Return CType(treeGroups.ToArray(GetType(Group)), Group())
End Function

　　生成树

　　树的实际重建由一对过程来完成：BuildTree 和 AddNodes。由于这两个过程的代码太长，本文并未全部列出，而是尽量概括它们的行为（当然，如果愿意您可以下载完整的代码）。如前所述，程序员可以通过设置一系列组与该控件进行交互，然后在 BuildTree 中使用这些组来确定如何设置树节点。BuildTree 清除当前节点集合，然后遍历整个数据源来处理第一级分组（本文前面的示例和图解中提到的 Publisher），为每个不同的分组值添加一个节点（使用示例中的数据，为每个 pub_id 值添加一个节点），然后调用 AddNodes 来填充第一级分组下的所有节点。AddNodes 递归调用自身以处理任意多的级数，必要时可添加组节点和叶节点。使用两个基于 TreeNode 的自定义类以区别组节点和叶节点，并为两类节点提供各自相应的属性。

　　自定义 TreeView 事件

　　每当选择一个节点时，TreeView 都会引发两个事件：BeforeSelect 和 AfterSelect。但在我的控件中，我想使组节点和叶节点的事件不同，于是便添加了自己的事件 BeforeGroupSelect/AfterGroupSelect 和 BeforeLeafSelect/AfterLeafSelect，除基本事件外，还引发了自定义事件参数类：

Public Event BeforeGroupSelect _
(ByVal sender As Object, ByVal e As groupTreeViewCancelEventArgs)
Public Event AfterGroupSelect _
(ByVal sender As Object, ByVal e As groupTreeViewEventArgs)
Public Event BeforeLeafSelect _
(ByVal sender As Object, ByVal e As leafTreeViewCancelEventArgs)
Public Event AfterLeafSelect _
(ByVal sender As Object, ByVal e As leafTreeViewEventArgs)

Protected Overrides Sub OnBeforeSelect _
(ByVal e As System.Windows.Forms.TreeViewCancelEventArgs)
If TypeOf e.Node Is TreeGroupNode Then
Dim groupArgs As New groupTreeViewCancelEventArgs(e)
RaiseEvent BeforeGroupSelect(CObj(Me), groupArgs)
ElseIf TypeOf e.Node Is TreeLeafNode Then
Dim leafArgs As New leafTreeViewCancelEventArgs(e)
RaiseEvent BeforeLeafSelect(CObj(Me), leafArgs)
End If
MyBase.OnBeforeSelect(e)
End Sub

Protected Overrides Sub OnAfterSelect _
(ByVal e As System.Windows.Forms.TreeViewEventArgs)
Dim tln As TreeLeafNode
If TypeOf e.Node Is TreeGroupNode Then
tln = FindFirstLeafNode(e.Node)
Dim groupArgs As New groupTreeViewEventArgs(e)
RaiseEvent AfterGroupSelect(CObj(Me), groupArgs)
ElseIf TypeOf e.Node Is TreeLeafNode Then
Dim leafArgs As New leafTreeViewEventArgs(e)
RaiseEvent AfterLeafSelect(CObj(Me), leafArgs)
tln = CType(e.Node, TreeLeafNode)
End If

If Not tln Is Nothing Then
If cm.Position <> tln.Position Then
cm.Position = tln.Position
End If
End If
MyBase.OnAfterSelect(e)
End Sub

　　自定义节点类（TreeLeafNode 和 TreeGroupNode）和自定义事件参数类均包括在可下载代码中。

　　示例应用程序

　　要全面理解本示例控件中的所有代码，您应该了解它在应用程序中的运行情况。包含的示例应用程序使用 pubs.mdb Access 数据库，并说明 Tree 控件如何与其他数据绑定控件一起创建 Windows 应用程序。本例中，尤其值得注意的主要功能包括树与其他绑定控件的同步以及对数据源执行搜索时树节点的自动选择。