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远程数据访问控件(netdata)

  • 2009年05月22日 23:44
  • 73KB
  • 下载

VB6 通过winsock控件数组实现客户端和服务器多对一通信

在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件使用winsock控件可以实现客户端和服务器间C/S结构的通信,如果把客户端和服务器放置于同一台电...

VB6 安装完成,添加Windows Common Controls 6.0控件,报错Object Library Not Registered

文章主要来自整理,以备不时之需。 1.我的系统为win7 专业版+sp1,在准备安装vb之前系统已经安装vs2010,+sqlserver2005 2.安装vb英文版,安装完成后重启计算机.(未进行m...

vb6生成二维码 ,纯代码,无控件。

  • 2017年10月30日 13:08
  • 13KB
  • 下载

VB6中控件窗体大小自动变化

  • 2015年09月09日 11:50
  • 15KB
  • 下载

基于VB6+OpenGL的三维数据建模实例

VB6+OpenGL,XP平台开发,实现了三维彩色数据的建模,纯数学公式生成,为3D打印提供了一种全新的方式....

VB6控件说明书

  • 2015年03月16日 11:03
  • 2.01MB
  • 下载

VB6学用控件帮助文件

  • 2010年06月23日 21:36
  • 310KB
  • 下载

VB6 实现从字节到具体数据类型的转换

对于单片机软件工程师在设计上下位机通讯时,经常会遇到这样一个问题,那就是如何传递一个float或者说是double或者是long 类型的数据,这些数据是由多个字节组成的,那么符合实现发送和在vb6中接...
  • SANTOOK
  • SANTOOK
  • 2012年04月22日 10:09
  • 5351
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB6将XML数据传入TreeView控件
举报原因:
原因补充:

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