VB.NET未開發人員帶來了不一樣的開發方式。其中特有的各種特點和語言特性為編程人員開發程序提供了很大的幫助。我們今天就來看一段實現VB.NET讀取XML文件的VB代碼。使用了遞歸方式。#t#

VB.NET讀取XML文件代碼如下：

1. Imports System.xml  
2. Public Class Form1Class Form1  
3. Inherits System.Windows.Forms.Form  
4. #Region " Windows 窗體設計器生成的代碼 "  
5. Public Sub New()Sub New()  
6. MyBase.New()  
7. '該調用是 Windows 窗體設計器所必需的。  
8. InitializeComponent()  
9. '在 InitializeComponent() 
   調用之后添加任何初始化  
10. End Sub 

'窗體重寫 dispose 以清理組件列表。  
Protected Overloads Overrides 
Sub Dispose()Sub Dispose(ByVal 
disposing As Boolean)  
If disposing Then  
If Not (components Is Nothing) 
Then  
components.Dispose()  
End If  
End If  
MyBase.Dispose(disposing)  
End Sub 

'Windows 窗體設計器所必需的  
Private components As System.
ComponentModel.IContainer  
'注意: 以下過程是 Windows 窗體設計
器所必需的  
'可以使用 Windows 窗體設計器修改此過程。  
'不要使用代碼編輯器修改它。  
Friend WithEvents input As System.
Windows.Forms.TextBox  
Friend WithEvents outtext As System.
Windows.Forms.TextBox  
Friend WithEvents Button1 As System.
Windows.Forms.Button  
<System.Diagnostics.DebuggerStepThrough()> 
Private Sub InitializeComponent()
Sub InitializeComponent()  
Me.input = New System.Windows.
Forms.TextBox  
Me.outtext = New System.Windows.
Forms.TextBox  
Me.Button1 = New System.Windows.
Forms.Button  
Me.SuspendLayout()  
'  
'input  
'  
Me.input.Location = New System.
Drawing.Point(16, 8)  
Me.input.Name = "input" 
Me.input.Size = New System.
Drawing.Size(464, 21)  
Me.input.TabIndex = 0 
Me.input.Text = "http://127.0.0.1/
fileup/people.xml" 
'  
'outtext  
'  
Me.outtext.BackColor = System.
Drawing.SystemColors.HighlightText  
Me.outtext.BorderStyle = System.
Windows.Forms.BorderStyle.FixedSingle  
Me.outtext.Location = New 
System.Drawing.Point(0, 40)  
Me.outtext.Multiline = True 
Me.outtext.Name = "outtext" 
Me.outtext.ReadOnly = True 
Me.outtext.ScrollBars = System.
Windows.Forms.ScrollBars.Both  
Me.outtext.Size = New System.
Drawing.Size(624, 472)  
Me.outtext.TabIndex = 1 
Me.outtext.Text = "TextBox2" 
'  
'Button1  
'  
Me.Button1.Location = New 
System.Drawing.Point(504, 8)  
Me.Button1.Name = "Button1" 
Me.Button1.Size = New System.
Drawing.Size(96, 24)  
Me.Button1.TabIndex = 2 
Me.Button1.Text = "讀 取" 
'  
'Form1  
'  
Me.AutoScaleBaseSize = New 
System.Drawing.Size(6, 14)  
Me.ClientSize = New System.
Drawing.Size(632, 517)  
Me.Controls.Add(Me.Button1)  
Me.Controls.Add(Me.outtext)  
Me.Controls.Add(Me.input)  
Me.Name = "Form1" 
Me.Text = "Form1" 
Me.ResumeLayout(False)  
End Sub 

#End Region  
Private Sub Button1_Click()
Sub Button1_Click(ByVal sender 
As System.Object, ByVal e As 
System.EventArgs) Handles 
Button1.Click  
Dim doc As xmldocument = 
New xmldocument  
Dim y As String  
doc.Load(input.Text)  
Dim rootnode As XmlElement = 
doc.DocumentElement  
outtext.Text = "" 
enumeratenode(rootnode, 0)  
End Su 

Private Sub enumeratenode()
Sub enumeratenode(ByVal node 
As XmlNode, ByVal indentval 
As Integer)  
Dim type As String  
Select Case node.NodeType  
Case XmlNodeType.Element  
type = "元素" 
Case XmlNodeType.Text  
type = "文本" 
Case XmlNodeType.Comment  
type = "注釋" 
Case Else  
outtext.AppendText(".")  
End Select 

outtext.AppendText(type & "節點找到")  
Select Case node.NodeType  
Case XmlNodeType.Element  
outtext.AppendText(",name=" 
& node.Name & vbCrLf)  
Case XmlNodeType.Text  
outtext.AppendText(",content=" 
& node.Value & vbCrLf)  
Case XmlNodeType.Comment  
outtext.AppendText(",content=" 
& node.Value & vbCrLf)  
Case Else  
outtext.AppendText(".")  
End Select 

If Not node.Attributes Is Nothing Then  
If node.Attributes.Count <> 0 Then  
outtext.AppendText("此節點有屬性:")  
Dim attr As XmlAttribute  
For Each attr In node.Attributes  
outtext.AppendText(attr.Name 
& " ＝" & attr.Value & vbCrLf)  
Next  
End If  
End If 

If node.HasChildNodes Then  
outtext.AppendText
("此節點有子節點:" & vbCrLf)  
Dim child As XmlNode  
For Each child In node.ChildNodes  
enumeratenode(child, indentval + 1)  
Next  
End If  
End Sub  
End Class 

VB.NET讀取XML文件實現代碼的編寫方法如上所示。