在VB6中将XML传入一个TreeView控件

2016-02-19 16:32 53 1 收藏

今天图老师小编要跟大家分享在VB6中将XML传入一个TreeView控件，精心挑选的过程简单易学，喜欢的朋友一起来学习吧！

【 tulaoshi.com - 编程语言】

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

接着，在Form_Load事件中添加如下的代码：

PrivateSubForm_Load()
　　DimobjDOMAsDOMDocument

SetobjDOM=NewDOMDocument
　　CallobjDOM.loadXML(_
　　"")

CallAddNode(objDOM.documentElement,Nothing)

SetobjDOM=Nothing
　　EndSub

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

PrivateSubAddNode(ByRefXMLNodeAsIXMLDOMNode,ByRefTreeNodeAsNode)
　　DimobjNodeAsNode
　　DimxmlNodeListAsIXMLDOMNodeList
　　DimlngNodeIndexAsLong

OnErrorGoToERR_HANDLER

IfTreeNodeIsNothingThen
　　SetobjNode=TreeView1.Nodes.Add
　　Else
　　SetobjNode=TreeView1.Nodes.Add(TreeNode,tvwChild)
　　EndIf

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

注释：==Addchildnodes
　　SetxmlNodeList=XMLNode.childNodes
　　ForlngNodeIndex=0ToxmlNodeList.length-1
　　CallAddNode(xmlNodeList.Item(lngNodeIndex),objNode)
　　NextlngNodeIndex

ERR_HANDLER:
　　IfErr.Number0Then
　　MsgBoxErr.Description
　　EndIf
　　EndSub

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

来源:https://www.tulaoshi.com/n/20160219/1612356.html

上一篇：分享技巧:你应该知道的Windows 7常用快捷键
下一篇：网页设计之字体在页面排版上的完全攻略

看过《在VB6中将XML传入一个TreeView控件》的人还看了以下文章更多>>

VB6.0设计真正实用的TreeView控件

标签： vb

TreeView是最灵活的Windows控件之一，它以分层的形式显示数据，允许用户随意扩展或折叠节点。鉴于实际生活中许多事物有着层次关系，如计算机里的文件夹、人事组织关系、地区从属关系等，TreeView的应用也极其广泛。但在实际开发中，许多人不喜欢使用TreeView，主要是由于默认的TreeView是“只读”的，不支持添加、删除、编辑、调整节点位...

用VB6创建MTS组件

标签： ASP

随便贴贴，学过VB的人都应该知道的，不好意思。 '********************************************************************************************** ' MTS VB6 COM Component Template - by Michael Gonzalez '**************...

imgedit imgadmin tiff koda vb6

imgedit imgadmin tiff koda vb6 @echo 请先插入windows 2000的安装光盘 @pause @d: @cd \i386 @expand IMGADMIN.OC_ c:\Windows\System32\IMGADMIN.OCX @expand IMGCMN.DL_ c:\Windows\System32\IMGCMN.DLL @expand IMGEDIT.OC_ c:\Windows\System32\IMGEDIT.OCX @expand IMGSCAN.OC_ c:\Windows\System32\IMGSCAN.OCX @expand IMGSHL.DL_ c:\...

用VB6读写数据库中的图片

标签： vb

很多兄弟在这里问关于VB6读写数据库中的图片的问题，在此有一例，希有所启发。 1，以人名和相关图片为例说明，数据库为Access，有如下字段：Name char,picture OLE object,FileLength Number。当为ms sql时，将picture改为lob即可。 2，示例包含control：commom dialog,picture,listbox。源码如下...

源码学习:一个简单的日历控件(6)

if(defaultDate==undefined || defaultDate==""){ var theDate=new Array(); calendar.head.innerText = calendar.today[0]+"-"+calendar.today+"-"+calendar.today; theDate[0]=calendar.today[0]; theDate=calendar.today; theDate=calendar.today; } &n...

查看更多精彩>>