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

2016-02-19 16:32 56 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方法则递进地添加子节点，直到所有子节点被传递。

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

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

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

走进VB6啃一块骨头

标签：编程语言网络编程

我们在玩《仙剑奇侠传》时，要是不能保存数据，那么非得挑灯夜战三昼夜才能玩完，可见数据存储之重要性。爱好编程的CFAN是不会放过数据文件的，下面跟着我驰骋吧！我们先吃一个哈密瓜，开门即来编一传统的比较有代表性的程序，不可不看的哟！程序分为一个表单cfanvb.frm，一个模块cfanvb.bas。一个表单程序。程序的表单中有五个命令按...

用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。源码如下...

创建一个带有CheckBox的TreeView

标签：编程语言网络编程

void __fastcall TForm1::FormCreate(TObject *Sender) { SetWindowLong(TreeView1-Handle,GWL_STYLE, GetWindowLong(TreeView1-Handle,GWL_STYLE) | TVS_CHECKBOXES); } //判断一个节点是否处于Checked状态 bool GetNodeChecked(TTreeNode *ANode) { TVITEM tvItem; tvItem.mask = TVIF_HANDLE | T...

查看更多精彩>>