包含vb.netxml用處的詞條

使用vb.net如何讀取XML文件

使用DataSet類來完成這項任務。

成都創新互聯公司主營北川羌族網站建設的網絡公司,主營網站建設方案,app軟件定制開發,北川羌族h5微信小程序搭建,北川羌族網站營銷推廣歡迎北川羌族等地區企業咨詢

DataSet對象在傳輸時，是以XML流的形式而不是以COM形式傳輸的。DataSet對象可以讀取XML數據文件或者數據流，從而將樹型結構的XML數據轉換成關系型的數據，如表(DataTable)、列(DataColumn)、行(DataRow)等。

在這個實例中，我們將XML文件命名為“xmlfile．xml”，具體內容如下：

?xml version=\"1．0\"standalone=”yes”?

Detail

Person

NameManish／Name

Age22／Age

／Person

／Detail \'用VB．NET讀寫XML文件

C1aSS WriteXML

Shared Sub main()

Dim obj DataSet As New System．Data．DataSet()

Dim strVirtualPath As String=”t．xml”

\'載入XML文件DataSet

objDataSet．ReadXml(”xmlfile．xml”)

\'通過控制器讀取XML內容

Console．Write(objDataSet．GetXml)

\'從原XML文件中得到數據

ConSOle．Write(”Enter Name：”)

Dim fname，age As String

fname=ConS01e．ReadLine

\'寫入你希望的代碼

ConS01e．Write(”Enter Age：”)

age=Console．ReadLine

ConS0le．Write(fname＆age)

Dim v(1)As String

v(0)=fname

V(1)=age

\'增加數據DataSet

objDataSet．Tables(0)．Rows．Add(V)

\'更新XML文件

objDataSet．WriteXml(”xmlfile．xml”)

Console．Write(obj DataSet．GetXml)

End Sub

End C1ass

運行該程序有兩種方式，一種是在Microso~VS．NET框架中編譯完后運行；另一種則是在仿DOS的Command窗口中運行。在第一種方式中，必須加上System、System．Data、System．xML的引用。具體方法為：先創建一個空的項目，然后加入這個文件名字；在“解決方案資源管理器”中加入引用，此時需要選擇相應的．dll文件；注意，xmlfile．xml文件應該放在工程的／bin目錄下面。我們可以輸出結果也可以用瀏覽器直接查看改變后的XML文件。在第二種方式中，選擇桌面的“程序”一“Microso~Visual Studio．NET”一“VisualStudio．NET工具”一“Visual Studio．NET命令提示”命令，在DOS命令提示框敲入命令：[Page]

vbc／r：system．d11／r：system．data．d11／r：system．xml．d11 xml．vb其中，程序名為xml．vb，這里的3個．dll文件都是必須調用的庫文件。應該在存放VB．NET文件的目錄中運行上述命令，否則找不到相應的程序，當然設置PATH也可以做到。此外，Xml_vb文件應該和XML文件放在同一目錄下面。每次運行此程序都會往文件中寫進同樣的內容，都是寫入Person／，運行一次寫一行。其實，我們只要稍微修改一下這個程序，就可以往XML中寫入我們所需要的數據。

哪位對VB操作XML文件熟悉?

利用VB操作XML數據[出處不詳]

作者 czqhh @ 2006-10-12 11:19:12

什么是XML

擴展標記語言XML是一種簡單的數據存儲語言，使用一系列簡單的標記描述數據，而這些標記可以用方便的方式建立，雖然XML占用的空間比二進制數據要占用更多的空間，但XML極其簡單易于掌握和使用。

XML與Access,Oracle和SQL Server等數據庫不同，數據庫提供了更強有力的數據存儲和分析能力，例如：數據索引、排序、查找、相關一致性等，XML僅僅是展示數據。事實上XML與其他數據表現形式最大的不同是：他極其簡單。這是一個看上去有點瑣細的優點，但正是這點使XML與眾不同。

XML的簡單使其易于在任何應用程序中讀寫數據，這使XML很快成為數據交換的唯一公共語言，雖然不同的應用軟件也支持其它的數據交換格式，但不久之后他們都將支持XML，那就意味著程序可以更容易的與Windows、Mac OS, Linux以及其他平臺下產生的信息結合，然后可以很容易加載XML數據到程序中并分析他，并以XML格式輸出結果。

XML的優點

我們談到XML長于在不同的應用程序之間交換數據，XML文件也便于構建小的數據庫，不久以前，軟件都使用INI文件存儲配置信息、用戶參數以及其他信息，后來微軟引入了系統注冊表，接作微軟告訴我們不應該再使用INI文件了，從那時起Visual Basic對INI文件的支持被削弱了。但不幸的是注冊表有幾個致命的缺點：不是簡單的文本文件，難于讀寫、可能會變得龐大和緩慢、如果注冊表不知何故出現問題，將有可能造成系統死機。

將配置信息放在XML文件中可以避免這些問題，甚至可以將XML文件設置為一個共享文件，這樣在不同的計算機上的用戶就可以共享數據，這是注冊表所不能比擬的。

在被稱為下一代ASP的ASP.NET中可以在WEB頁中直接使用XML，你可以使用數據綁定控件直接綁定數據并自動顯示。

當然也可以不選擇XML，使用文本文件、注冊表、數據庫都可以完成XML所能完成的任務，XML只是你在數據存儲和恢復的另一種工具而已。

XML語法簡介

XML的語法非常的簡單，XML文檔由節點組成，使用打開和關閉節點描述標記，在格式上與HTML標記非常相似，它們之間最大的不同是：XML中可以自由定義標記名。比如下面的標記就描述了一個電話號碼：

＜Phone＞987-654-3210＜/Phone＞

而且不用聲明標記名就可以使用。

開始和結束標記必須相同，XML是識別大小寫的，所以標記的大小寫也必須相同。比如上面的例子中以＜Phone＞標記開始就必須以＜/Phone＞標記結束，而不能是＜/phone＞或＜/PHONE＞

節點標記中可以包含屬性，比如下面的代碼中Phone節點包含屬性Type，其值為WorkFax:

＜Phone Type="WorkFax"＞987-654-3210＜Phone＞

如果不愿意在節點中包含一個值，那么可以不需要結束標記，可以用在開始標記的后面加一個斜線來結束節點，在下面的例子中，Phone標記的Number屬性就存儲了一個電話號碼，所以就不需要一個結束標記：

＜Phone Type="WorkFax" Number="987-654-3210" /＞

XML文檔的結構是一個樹形等級結構。文檔必須有一個唯一的根結點，根節點包含所有其它節點。下面我們舉一個較為完整的例子：

＜Addresses＞

＜Entry Type="Personal"＞

＜FirstName＞Andy＜/FirstName＞

＜LastName＞Fickle＜/LastName＞

＜Street＞1234 Programmer Place＜/Street＞

＜City＞Bugsville＜/City＞

＜State＞CO＜/State＞

＜Zip＞82379＜/Zip＞

＜Phone Type="Home"＞354-493-9489＜/Phone＞

＜/Entry＞

＜Entry Type="Work"＞

＜FirstName＞Betty＜/FirstName＞

＜LastName＞Masterson＜/LastName＞

＜Phone Type="Work"＞937-878-4958＜/Phone＞

＜Phone Type="WorkFax"＞937-878-4900＜/Phone＞

＜/Entry＞

...

＜/Addresses＞

注意相似的節點不需要包含相同的信息，例如第一個Entry節點包含了地址信息和家庭電話號碼，第二個Entry節點包含了Work和WorkFax電話號碼，而沒有包含第一個Entry節點包含的信息。

XML工具

如前面的例子顯示，XML語法是如此的簡單以至于你可以在很短的時間作一個XML解析器，幸運的是你不必這樣做，因為XML工具可以運行在各種平臺上，包括可以安裝了Visual Basic的Windows。

正是這些L工具而不是XML本身使XML變得更強大和復雜。不同的解析器使你可以某一時刻加載整個XML文檔或只加載某個節點，與此相反，XML Writer 可以同時創建一個XML文檔和節點。

DOM解析器使我們能夠很方便的加載、復制、排序、修改和存儲XML文件，遍歷節點獲得名稱或屬性，并給結果排序。雖然他們的功能沒有真正的關系數據庫強大，但DOM的這些特點依然非常有用。

XSD可以定義XML文檔的格式，XSL擴展樣式單定義了怎樣將XML文檔轉換成其他可以在WEB瀏覽器中瀏覽的文件格式，比如HTML文件。

這些工具實際上比XML本身更復雜，所以所有講解XML的書籍都花了很大的篇幅解釋這些XML工具。但這超出了本文的范圍，有興趣的讀者可以參考有關資料。

Visual Basic.Net提供了使用XML、XSL以及其他XML工具的完整工具。但不用等待VB.NET，微軟XML核心服務（MSXML）版本4.0提供了從Visual Basic6.0加載和存儲XML文檔的工具。

在msdn.microsoft.com/xml/default.asp中下載最新版本的MSXML，并安裝在計算機上。在Visual Basic 6.0中使用Microsoft XML V4.0象引用其他對象一樣，首先在工程菜單中選擇引用菜單項，選擇Microsoft V4.0,單擊OK,一切完成后就現在就可以在VB應用程序中添加XML對象了。

DOMDocument 類

文檔對象模型(DOM)使用了一系列相應的對象描述了XML文檔的等級狀態，DOMDocument類是一個描繪XML文檔的DOM結構的MSXML類。

DOMDocument類僅僅提供了很少的幾個有用的屬性和方法。Load方法載入一個xml文件，loadxml方法將字符串作為xml數據添加到對象中。例如，下面的代碼就將一個小的xml文件添加到名為xml_document的文檔中。

Dim xml_document As New DOMDocument

xml_document.loadXML _

"＜Person＞" vbCrLf _

" ＜FirstName＞Rod＜/FirstName＞" vbCrLf _

" ＜LastName＞Stephens＜/LastName＞" vbCrLf _

"＜/Person＞"

DOMDocument的xml屬性返回文檔的xml描述，可以顯示這些返回值看看這些文檔究竟是什么樣子，也可以將它存儲為一個文件，但這完全不必要，因為DOMDocument對象的save方法已經自動將他們存儲了。

DOMDocument對象的documentElement屬性表示文檔數據的根結點，通常情況下操作XML文檔都從這里開始。

DOMDocument提供了幾種創建新節點的方法。CreateElement方法為文檔創建一個新的元素節點，其他創建節點的方法有createAttribute, createProcessingInstruction, 和 createTextNode，在這里就不一一介紹了。

IXMLDOMNode類

IXMLDOMNode類描述了一個節點，該類提供了一系列用于搜索和操縱XML文檔的屬性和方法。

selectSingleNode 方法用于搜索指定節點的后代，用于搜索指定節點路徑的語言稱為XPATH，XPATH非常棘手，本文就不詳細說明其規范了。下面我們將介紹兩個對搜索子節點有特別有用并且簡單的方法。

在給selectsingleNode方法中輸入子節點的名字，該方法將在節點的子節點進行精確匹配搜索。如果在輸入的字符串前面加上".//"，那么將搜索節點的全部后代。

' Search for a child node named "LastName."

Set last_name_node = address_node.selectSingleNode("LastName")

' Search for any descendant named "LastName."

Set last_name_node = address_node.selectSingleNode(".//LastName")

下面列出了IXMLDOMNode對象的部分非常有用的屬性：

attributes.節點屬性集合

nodeName.節點的標記名

nodeTypeString.節點的類型

ownerDocument.返回DOMDocument對象包含的節點

text.表示節點包含的文本內容。如果該節點包含其他節點，那么text代表了所有節點的文本內容的組合。

xml.給出了節點的xml內容，例如："＜FirstName＞Rod＜/FirstName＞".

ChildNodes集合包含了節點的子節點。要給節點增加一個子節點，首先必須給使用DOMDocument對象的節點創建方法，然后將這個新建的節點加入到父節點的childNodes集合中。下面的代碼展示了創建一個新的子節點的子程序，并使用父節點的appendChild方法將其加入到父節點中：

' Add a new node to the indicated parent node.

Private Sub CreateNode(ByVal indent As Integer, _

ByVal parent As IXMLDOMNode, ByVal node_name As String, _

ByVal node_value As String)

Dim new_node As IXMLDOMNode

' Create the new node.

Set new_node = parent.ownerDocument.createElement(node_name)

' Set the node's text value.

new_node.Text = node_value

' Add the node to the parent.

parent.appendChild new_node

End Sub

SaveValues 程序

現在我們可以使用XML創建一個簡單的程序（如圖1），其值存儲到XML文件中，在程序開始運行時，程序從VALUE.XML文件中加載數據，在程序運行結束時，將程序中的現行值存入VALUE.XML文件中。

下面的代碼是顯示了VALUE.XML文件的結構:

＜Values＞

＜FirstName＞Rod＜/FirstName＞

＜LastName＞Stephens＜/LastName＞

＜Street＞1234 Programmer Place＜/Street＞

＜City＞Bugsville＜/City＞

＜State＞CO＜/State＞

＜Zip＞80276＜/Zip＞

＜/Values＞

List1顯示了怎樣編寫SaveValues，當載入表單時，form_load事件觸發LoadValues子程序。

LoadValues創建了一個名為xml_document的DOMDocument對象，然后載入xml文件，使用selectSingleNode方法查找名為values的節點，然后使用GetNodeValue方法獲得從value節點后代中得到的值。

GetNodeValue使用value節點的selectSingleNode方法尋找目標節點，如果節點不存在函數將返回一個缺省值，如果找到這個節點GetNodeValue將返回該節點的text值。對于value.xml文件中的數據節點，text僅僅是包含在節點中的文本內容。

當窗體卸載時觸發form_unload事件，unload事件調用SaveValues子程序。程序創建一個新的DOMDocument對象，該對象創建一個新的名為value的節點，然后用文檔的appendChild方法將節點添加到文檔中。

在創建所有新的節點后，SaveValues調用DOMDocument's save方法存儲新的xml文件。

注意這個新的文件已經覆蓋了舊文件，使用DOMDocument對象無法部分改變XML文件，可以加載XML文件，然后修改其中一部分，然后保存文件，但原文件將被完全覆蓋。這是一個小的缺陷，但在這時可以使用其它程序進行修改。

List1的最后一部分是CreateNode子程序，CreateNode 為父節點創建一個新節點并同時給這個節點賦值。在這個子程序中首先引用一個DOMDocument對象，然后使用該對象的createElement方法創建一個新的節點。

createNode方法設置節點的text屬性，然后將節點作為子節點添加到父節點中。

List1:

Option Explicit

Private m_AppPath As String

Private Sub Form_Load()

' Get the application's startup path.

m_AppPath = App.Path

If Right$(m_AppPath, 1) ＜＞ "\" Then m_AppPath = m_AppPath "\"

' Load the values.

LoadValues

End Sub

Private Sub Form_Unload(Cancel As Integer)

' Save the current values.

SaveValues

End Sub

' Load saved values from XML.

Private Sub LoadValues()

Dim xml_document As DOMDocument

Dim values_node As IXMLDOMNode

' Load the document.

Set xml_document = New DOMDocument

xml_document.Load m_AppPath "Values.xml"

' If the file doesn't exist, then

' xml_document.documentElement is Nothing.

If xml_document.documentElement Is Nothing Then

' The file doesn't exist. Do nothing.

Exit Sub

End If

' Find the Values section.

Set values_node = xml_document.selectSingleNode("Values")

' Read the saved values.

txtFirstName.Text = GetNodeValue(values_node, "FirstName", "???")

txtLastName.Text = GetNodeValue(values_node, "LastName", "???")

txtStreet.Text = GetNodeValue(values_node, "Street", "???")

txtCity.Text = GetNodeValue(values_node, "City", "???")

txtState.Text = GetNodeValue(values_node, "State", "???")

txtZip.Text = GetNodeValue(values_node, "Zip", "???")

End Sub

' Return the node's value.

Private Function GetNodeValue(ByVal start_at_node As IXMLDOMNode, _

ByVal node_name As String, _

Optional ByVal default_value As String = "") As String

Dim value_node As IXMLDOMNode

Set value_node = start_at_node.selectSingleNode(".//" node_name)

If value_node Is Nothing Then

GetNodeValue = default_value

Else

GetNodeValue = value_node.Text

End If

End Function

' Save the current values.

Private Sub SaveValues()

Dim xml_document As DOMDocument

Dim values_node As IXMLDOMNode

' Create the XML document.

Set xml_document = New DOMDocument

' Create the Values section node.

Set values_node = xml_document.createElement("Values")

' Add the Values section node to the document.

xml_document.appendChild values_node

' Create nodes for the values inside the

' Values section node.

CreateNode values_node, "FirstName", txtFirstName.Text

CreateNode values_node, "LastName", txtLastName.Text

CreateNode values_node, "Street", txtStreet.Text

CreateNode values_node, "City", txtCity.Text

CreateNode values_node, "State", txtState.Text

CreateNode values_node, "Zip", txtZip.Text

' Save the XML document.

xml_document.save m_AppPath "Values.xml"

End Sub

' Add a new node to the indicated parent node.

Private Sub CreateNode(ByVal parent As IXMLDOMNode, _

ByVal node_name As String, ByVal node_value As String)

Dim new_node As IXMLDOMNode

' Create the new node.

Set new_node = parent.ownerDocument.createElement(node_name)

' Set the node's text value.

new_node.Text = node_value

' Add the node to the parent.

parent.appendChild new_node

End Sub

SaveValuesIndented 程序

雖然每個人都化了很大的精力去處理xml文檔，使他們看上更容易些，但xml工具一般都忽略了那些使xml文檔結構明顯的空白和縮進，xml解析器也同樣忽略縮進和空白。

不幸的是我們例子也同樣忽略了這些縮進和空白，SaveValues創建了一個象下面那樣的xml文件，所有的代碼都在同一行中。

＜Values＞＜FirstName＞Rod＜/FirstName＞＜LastName＞Stephens＜/LastNa

me＞＜Street＞1234 Programmer Place＜/Street＞＜City＞Bugsville＜/Ci

ty＞＜State＞CO＜/State＞＜Zip＞80276＜/Zip＞＜/Values＞

VB.NET中包括了文本寫入類，可以XML文檔規定格式。但MSXML重沒有這種功能，所以如果需要以一種清晰的格式保存XML文件，只能另行添加它的格式。

List2列出了程序SaveValuesIndented使用的代碼，SaveValues子程序與上面例子中講的幾乎完全相同，但他在創建value節點后同時給XML文檔創建了一個＜value＞標記的新行。

然后SaveValues 調用CreateNode創建一個新的數據節點，但在這里它傳遞給CreateNode一個新的參數，這個參數表示這個新節點的縮進方式。

CreateNode

' Save the current values.

Private Sub SaveValues()

Dim xml_document As DOMDocument

Dim values_node As IXMLDOMNode

' Create the XML document.

Set xml_document = New DOMDocument

' Create the Values section node.

Set values_node = xml_document.createElement("Values")

' Add a new line.

values_node.appendChild xml_document.createTextNode(vbCrLf)

' Add the Values section node to the document.

xml_document.appendChild values_node

' Create nodes for the values inside the

' Values section node.

CreateNode 4, values_node, "FirstName", txtFirstName.Text

CreateNode 4, values_node, "LastName", txtLastName.Text

CreateNode 4, values_node, "Street", txtStreet.Text

CreateNode 4, values_node, "City", txtCity.Text

CreateNode 4, values_node, "State", txtState.Text

CreateNode 4, values_node, "Zip", txtZip.Text

' Save the XML document.

xml_document.save m_AppPath "Values.xml"

End Sub

' Add a new node to the indicated parent node.

Private Sub CreateNode(ByVal indent As Integer, _

ByVal parent As IXMLDOMNode, ByVal node_name As String, _

ByVal node_value As String)

Dim new_node As IXMLDOMNode

' Indent.

parent.appendChild parent.ownerDocument.createTextNode(Space$(indent))

' Create the new node.

Set new_node = parent.ownerDocument.createElement(node_name)

' Set the node's text value.

new_node.Text = node_value

' Add the node to the parent.

parent.appendChild new_node

' Add a new line.

parent.appendChild parent.ownerDocument.createTextNode(vbCrLf)

End Sub

結論

本文僅僅揭示XML編程的表面，本文的例子中的涉及只是非常簡單的XML文件，但你可以使用使用本文揭示的技術做更多的事情，比如配置設置、表單位置、以及其他信息。XML已經向前更進一步的發展了，有了更復雜的數據層次。對于更復雜的數據結構，在運行時可以更容易的使用MSXML對象來存取XML文件

有沒有人能詳細的說明vb.net 的特點，優缺點及應用領域？最好也舉個運用VB.NET的例子啊！

Visual Basic .NET Visual Basic.NET是基于微軟.NET Framework之上的面向對象的中間解釋性語言，可以看作是Visual Basic在.Net Framework平臺上的升級版本,增強了對面向對象的支持。但由于改動太大，導致VB.net對VB的向后兼容性不好，在業界引起不小的爭議。大多的VB.Net程序員使用Visual Studio .Net作為IDE（integrated development environment). SharpDevelop是另一種可用的開源的IDE。VB.Net需要在.Net Framework平臺上才能執行。 VB.NET的主頁 1 目前版本 2005年9月以來，存在三種不同版本的Visual Basic .NET. 1 Visual Basic .NET:是隨vc#和ASP.NET一起在2002年發布的最初始的VB.net版本。C#被大力宣傳為微軟對付JAVA的王牌，受到媒體極力關注。然而VB.NET(有時被稱為VB7)影響面不廣，這導致VB社區之外很少人關注它。那些試用過此版VB.NET的人在層層幕布下發現一個強大卻艱深的語言，而且還有不少弱點，比如它比VB6來有一個大了十倍的進行時(RunTime)，內存footprint也大大增加。 2 Visual Basic .NET 2003:是和.NET Framework 1.1一起發布的。新功能包括對.NET Compact Framework的支持和更好的VB升遷向導。并改進了運行狀況，IDE穩定性(尤其是后臺編譯器)，以及運行時RunTime穩定性。另外，VB.NET 2003還有一個學院版Visual Studio .NET 2003 Academic Edition (VS03AE)，它是分發給各國某些學者免費使用的版本。 3 Visual Basic 2005:VB2005是VB.Net的重大轉變，微軟決意在其軟件名稱中去掉了.NET部份。在VB2005中，微軟增加了許多新功能，以引用VB對于初學者來說的一些優點： A, Edit and Continue - 也許是從VB那里丟掉的最大的功能，允許代碼的編輯和執行立即的執行恢復。 B, Design-time expression evaluation C, My偽命名空間，提供了訪問.NET Framework特定域的不需大量編碼的簡單方式；還能動態產生類(顯然的是My.Forms)；提供了改進的VB到VB.NET轉換向導；Using 語法，簡化了需要部署pattern to free resources的對象的使用；My編碼，可隱藏由VB.NET IDE寫的模板代碼；數據源綁定，簡化了數據庫C/S開發上述功能(尤其是My)增強了VB.Net成為快速開發應用平臺的可能，并與C#進一步區別開來。參見：使用My開發通過My命名空間訪問.NET Framework 和項目 Visual Basic 2005 通過增加新功能而填補了和其它所謂更強大的.NET語言的差距。 A, 增加了.NET 2.0語言功能包括：generics和Partial類(在一個文件里定義一個類的某部份然后再添加更多的定義，這個方法在整合用戶編碼和系統自動生成編碼時尤其有用)。 B, XML注釋，可以被NDoc等工具處理而自動生成文檔 C, operator overloading D, 支持在其它語言中已經廣泛使用的unsigned integer數據類型。 E, 支持在許多C衍生編程語言已提供的復合操作符如："+=", "-=" 4, IsNot專利：If Not X Is Y表達式被轉換成If X IsNot Y。當微軟為IsNot申請專利時招致了惡名(尤其來自Real公司)。 5, Visual Basic 2005 Express：作為VS產品線上的一部份,VB2005 Express是專為業余愛好者和新手定制的免費的VS Express系列的一員。Express版本目的定位在幫助人們學習一種語言，所以他們有和標準版一致的用戶界面，只是少了一些高級功能。另外，VS 查看更多答案

記得采納啊

vb.net xml 和treeview

你的xml文字有錯誤,正確的如下: ?xml version="1.0"? grouplist group name="1" server name="1.1"/ server name="2.2"/ /group group name="2" server name="2.1"/ server name="2.2"/ /group /grouplist 以下是在vs2008下調試成功 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tvw As TreeView Dim x As New Xml.XmlDocument Dim nd As Xml.XmlNode Dim pcnd As TreeNode Dim I As Integer Dim II As Integer tvw = New TreeView tvw.Parent = Me tvw.SetBounds(10, 10, 300, 300) x.Load("該處為xml文件路徑") '如 C:\\abc.xml For I = 1 To x.DocumentElement.ChildNodes.Count nd = x.DocumentElement.ChildNodes(I - 1) pcnd = tvw.Nodes.Add("G" I.ToString, nd.Attributes(0).Value) For II = 1 To nd.ChildNodes.Count pcnd.Nodes.Add(nd.ChildNodes(II - 1).Attributes(0).Value) Next pcnd.Expand() Next End Sub End Class

希望采納

名稱欄目：包含vb.netxml用處的詞條
網址分享：http://vcdvsql.cn/article38/hspjpp.html

成都網站建設公司_創新互聯，為您提供搜索引擎優化、定制開發、網站維護、商城網站、移動網站建設、做網站