VB6将XML数据传入TreeView控件

转载 2007年09月18日 09:29:00
由于XML文档是以树形结构为格式,所以通常采用TreeView控件显示它们。以下码段说明了如何在Visual Basic 6将XML文档传入一个TreeView控件。

  首先,建立一个新的带有窗体的Visual Basic 6工程,然后在窗体中添加一个TreeView控件,并添加一个引用到微软XML解析器。

  接着,在Form_Load事件中添加如下的代码:




Private Sub Form_Load()
Dim objDOM As DOMDocument

Set objDOM = New DOMDocument
Call objDOM.loadXML( _
"<Doc><Node1></Node1><Node2><ChildNode/></Node2></Doc>")

Call AddNode(objDOM.documentElement, Nothing)

Set objDOM = Nothing
End Sub

  以上代码建立并传入XML,然后调用AddNode方法。它包含两个变量:添加的XML节点,添加的TreeView节点。AddNode方法第一次被调用,"Nothing"被传递到TreeNode变量。

Private Sub AddNode(ByRefXMLNode As IXMLDOMNode, ByRefTreeNode As Node)
 Dim objNode As Node
 Dim xmlNodeList As IXMLDOMNodeList
 Dim lngNodeIndex As Long

 On Error GoTo ERR_HANDLER

 If TreeNode Is Nothing Then
  Set objNode = TreeView1.Nodes.Add
 Else
  Set objNode = TreeView1.Nodes.Add(TreeNode, tvwChild)
 End If

 objNode.Text = XMLNode.nodeName
 objNode.Expanded = True

 == Add child nodes
 Set xmlNodeList = XMLNode.childNodes
 For lngNodeIndex = 0 To xmlNodeList.length - 1
  Call AddNode(xmlNodeList.Item(lngNodeIndex), objNode)
 Next lngNodeIndex

 ERR_HANDLER:
  If Err.Number <> 0 Then
   MsgBoxErr.Description
  End If
End Sub

  首先AddNode方法添加一个新的节点到树形控件,然后将节点的文本传递给XML节点的名称。如果XML节点包含有子节点,AddNode方法则递进地添加子节点,直到所有子节点被传递。

 

VB6控件TreeView的使用

【实验名称】VB6控件TreeView的使用【实验原理】在FormLoad事件的时候,以TreeView中显示数据库中数据表的结构信息。【实验步骤】1.使用SQL Server2000数据库建立两个数...
  • zhs1931
  • zhs1931
  • 2009年10月20日 18:17
  • 2638

读取XML文件动态绑定TreeView控件练习题

题目三:读取XML文件动态绑定TreeView控件 一、语言和环境 A、实现语言  C# B、环境要求  Visual Studio 2012 二、功能要求 现使用....
  • baidu_36074048
  • baidu_36074048
  • 2017年03月12日 16:18
  • 970

C#TreeView控件与XML相关操作

在C#的应用开发中,TreeView控件是一种比较常用的控件,主要反映了父子节点之间的关系,由于TreeView控件与XML文件的组织结构比较类似,可以把TreeView控件与XML文件结合使用。Tr...
  • pengshupan
  • pengshupan
  • 2016年02月29日 15:44
  • 2459

TreeView (树视图)遍历数据库的方法

TreeView (树视图)遍历数据库的方法多数从事数据库编程人员都经历过,对新接触的数据库技术无论是低版本Foxbase、Access97-2000还是支持网络环境高版本的Sql Server200...
  • neder2
  • neder2
  • 2006年04月02日 19:25
  • 2368

VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭

在窗体上方一个Treeview,四个command     Option   Explicit         Private   Sub   Command1_Click()     Static ...
  • eqiang8271
  • eqiang8271
  • 2008年05月12日 21:32
  • 3932

TreeView控件的加载,遍历递归的应用

       看了许多TREEVIEW的使用方法,发现没有一个适合初次接触.NET中的TREEVIEW的例子,由于以前在VB6中加载TREEVIEW的结构树很简单,只是一个ADD()方法而已,在方法中...
  • yumanqing
  • yumanqing
  • 2006年10月12日 11:44
  • 2110

VB6 操作XML

需要添加Microsoft XML,version2.0的引用或更高版本一 创建XMLDim xmlDocum As MSXML2.DOMDocument    Dim xmlRoot As MSXM...
  • guyehanxinlei
  • guyehanxinlei
  • 2008年04月11日 13:01
  • 9433

c#解析xml绑定treeview控件实现

向web端的api发送http请求,得到的结果是xml格式的节点信息,id标识节点号,
  • u014787464
  • u014787464
  • 2014年09月14日 21:58
  • 924

VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭

===================VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭在窗体上方一个Treeview,四个command     Option   ...
  • xuexijiaoliu
  • xuexijiaoliu
  • 2010年01月01日 12:48
  • 5224

利用TreeView控件 从数据库中动态载入数据

//*************************  aspx  *************************//               AutoPostBack="True">   ...
  • hqt
  • hqt
  • 2005年04月18日 13:05
  • 1678
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB6将XML数据传入TreeView控件
举报原因:
原因补充:

(最多只允许输入30个字)