如何从具有多个子节点的 XML 文件填充树视图？
How to populate a treeview from a XML file with multiple child nodes?
我正在尝试从 XML 文件中填充 VB.NET 中的 TreeView 组件。这是一个很大的 XML 文件，我将它切碎以便让你们了解它的结构。我是 VB.NET 的新手，所以我很难弄清楚这一点。下面是我希望此数据在 TreeView 中显示的顺序的图像，并且我添加了一些箭头，以便您可以了解数据在 XML 结构中的来源。
我找到并尝试改编我从 Microsoft 教程中获得的代码，但它基于更简单的 XML 结构并且不适用于我的文件。
图片中的箭头显示与 XML 标签和节点不同步，但我的目标是避免箭头和矩形相互重叠导致图片不可读。
当我们有一个名为 "Cutter" 的节点时，它是一种不同类型的组件，并且当前 "Cutter" 或 "Holder" 节点中可能包含多个组件，因此它们是由 "Reference" 标签分隔。如果它被命名为 "Holder"，那么它是工具堆栈上的另一种组件类型...每个新工具都以一个名为 "Tool" 的元素开始。
图片下方是我在代码中尝试执行的操作：
Private Sub btnSearchTLS_Click(sender As Object, e As EventArgs) Handles btnSearchTLS.Click
Try
' SECTION 1. Create a DOM Document and load the XML data into it.
Dim dom As New XmlDocument()
dom.Load(txtFileOpenTLS_2.Text)
' SECTION 2. Initialize the treeview control.
tviewToolIDs.Nodes.Clear()
tviewToolIDs.Nodes.Add(New TreeNode(dom.DocumentElement.Name))
Dim tNode As New TreeNode()
tNode = tviewToolIDs.Nodes(0)
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(dom.DocumentElement, tNode)
tviewToolIDs.ExpandAll()
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XmlNode, ByRef inTreeNode As TreeNode)
Dim xNode As XmlNode
Dim tNode As TreeNode
Dim nodeList As XmlNodeList
Dim i As Integer
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.HasChildNodes() Then
nodeList = inXmlNode.ChildNodes
For i = 0 To nodeList.Count - 1
xNode = inXmlNode.(i)
inTreeNode.Nodes.Add(New TreeNode(xNode.Name))
tNode = inTreeNode.Nodes(i)
AddNode(xNode, tNode)
Next
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.OuterXml).Trim
End If
End Sub
这是 XML 文件：
<?xml version="1.0"?>
<ToolLibrary Version="7.3">
<Tools>
<Tool ID="100004" Units="Millimeter">
<Description>100004</Description>
<Teeth>1</Teeth>
<Type>Turning</Type>
<Cutter>
<Reference ID="12140 - N123G2-0318-0008">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Torneamento - Insertos paramétricos</ToolID>
<EntityName>12140 - N123G2-0318-0008</EntityName>
<Origin>
<X>34.2</X>
<Y>0</Y>
<Z>-82.3</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>-90</Y>
<Z>0</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="12135 - C5-570-32-LF">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12135 - C5-570-32-LF</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12139 - 570-32L123G18B130A">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12139 - 570-32L123G18B130A</EntityName>
<Origin>
<X>21</X>
<Y>0</Y>
<Z>-42</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>35</X>
<Y>0</Y>
<Z>-83.1</Z>
</DrivenPoint>
<DrivenPoint ID="2">
<Type>-1</Type>
<Radius>0</Radius>
<X>31.82</X>
<Y>0</Y>
<Z>-83.1</Z>
</DrivenPoint>
<CutterCompensation ID="1">0.8</CutterCompensation>
<CutterCompensation ID="2">0.8</CutterCompensation>
</Tool>
<Tool ID="100171" Units="Millimeter">
<Description>100171</Description>
<Teeth>1</Teeth>
<Type>Turning</Type>
<Cutter>
<Reference ID="12349 - CNMG120412">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Torneamento - Insertos paramétricos</ToolID>
<EntityName>12349 - CNMG120412</EntityName>
<Origin>
<X>-35.8</X>
<Y>0</Y>
<Z>-291.8</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>-5</Y>
<Z>0</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="11977 - C6-390.410-100-110A">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11977 - C6-390.410-100-110A</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="11978 - C6-570-2C-60-148-40L">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11978 - C6-570-2C-60-148-40L</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-110</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="11979 - SL-PCLNL-40-12HP">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11979 - SL-PCLNL-40-12HP</EntityName>
<Origin>
<X>-10</X>
<Y>0</Y>
<Z>-258</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>-37</X>
<Y>0</Y>
<Z>-293</Z>
</DrivenPoint>
<DrivenPoint ID="2">
<Type>-1</Type>
<Radius>0</Radius>
<X>-37</X>
<Y>0</Y>
<Z>-293</Z>
</DrivenPoint>
<CutterCompensation ID="1">1.2</CutterCompensation>
<CutterCompensation ID="2">1.2</CutterCompensation>
</Tool>
<Tool ID="100178" Units="Millimeter">
<Description>100178</Description>
<Teeth>8</Teeth>
<Type>Milling</Type>
<Cutter>
<Reference ID="10084 - R90MT-12-05-RM">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>44</X>
<Y>0</Y>
<Z>-614</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM1">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>31.112698</X>
<Y>-31.112698</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>-45</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM11">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>31.112698</X>
<Y>31.112698</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>45</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM12">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>0</X>
<Y>-44</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>-90</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM13">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>0</X>
<Y>44</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>90</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM14">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>-31.112698</X>
<Y>31.112698</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>135</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM15">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>-44</X>
<Y>0</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>180</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>-31.1127</X>
<Y>-31.1127</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>-135</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="11974 - C8-390.410-100 120A">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11974 - C8-390.410-100 120A</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12001 - C8-391.01-80 065">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12001 - C8-391.01-80 065</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-120</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12001 - C8-391.01-80 065">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12001 - C8-391.01-80 065</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-185</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12002 - C8-391.05-CD-32-320">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12002 - C8-391.05-CD-32-320</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-250</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10707 - FCM-D100-32-11">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>10707 - FCM-D100-32-11</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-570</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>0</X>
<Y>0</Y>
<Z>-620</Z>
</DrivenPoint>
<DrivenPoint ID="2">
<Type>-1</Type>
<Radius>0</Radius>
<X>0</X>
<Y>0</Y>
<Z>-620</Z>
</DrivenPoint>
<CutterCompensation ID="1">50</CutterCompensation>
<CutterCompensation ID="2">50</CutterCompensation>
</Tool>
<Tool ID="100192" Units="Millimeter">
<Description>100192</Description>
<Teeth>1</Teeth>
<Type>Milling</Type>
<Cutter>
<Reference ID="10087 - 880-05-03-05H-C-GM">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10087 - 880-05-03-05H-C-GM</EntityName>
<Origin>
<X>-7.9</X>
<Y>0</Y>
<Z>-233.5</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>180</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10088 - 880-05 03 W05H-P-GM">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10088 - 880-05 03 W05H-P-GM</EntityName>
<Origin>
<X>12</X>
<Y>0</Y>
<Z>-233.5</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="12007 - C4-390.410-100-090A">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12007 - C4-390.410-100-090A</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12033 - 880-D2500C4-04">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12033 - 880-D2500C4-04</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-90</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>0</X>
<Y>0</Y>
<Z>-234</Z>
</DrivenPoint>
</Tool>
<Tool ID="801154" Units="Millimeter">
<Description>801154</Description>
<Teeth>1</Teeth>
<Type>Turning</Type>
<Cutter>
<Reference ID="11325 - MKI-176807-13_4.4">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Torneamento - Insertos 3D</ToolID>
<EntityName>11325 - MKI-176807-13_4.4</EntityName>
<Origin>
<X>-5.18</X>
<Y>0</Y>
<Z>-225</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="12016 - 392.410-100-ASHL-32">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12016 - 392.410-100-ASHL-32</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="11328 - MKS-366807-18">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11328 - MKS-366807-18</EntityName>
<Origin>
<X>-8</X>
<Y>0</Y>
<Z>-55</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="2">
<Type>-1</Type>
<Radius>0</Radius>
<X>-2.980037</X>
<Y>0</Y>
<Z>-225</Z>
</DrivenPoint>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>-7.380037</X>
<Y>0</Y>
<Z>-225</Z>
</DrivenPoint>
<CutterCompensation ID="1">1.5</CutterCompensation>
<CutterCompensation ID="2">1.5</CutterCompensation>
</Tool>
</Tools>
</ToolLibrary>
我必须在上面的代码中做什么（考虑到它是正确的代码 - 请随意想出一种新方法）才能使我的 TreeView 像图中所示那样填充？
很抱歉要求提供可能已经涵盖的内容，我进行了搜索，但找不到适合我的 XML 示例的内容。
提前致谢，
丹尼尔
我添加了一些过滤。为此，我将 XmlDocument 更改为 linq XDocument。我在代码中提取了一堆对象，但没有将它们全部放入树视图中。留给你了。
Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Imports System.Text.Encoding
Public Class Form1
Const FILENAME As String = "c:\temp\test.xml"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' SECTION 1. Create a DOM Document and load the XML data into it
Dim reader As New StreamReader(FILENAME, System.Text.Encoding.UTF8)
Dim dom As XDocument = XDocument.Load(reader) ' SECTION 2. Initialize the treeview control.
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(New TreeNode(dom.Root.Name.LocalName))
Dim tNode As New TreeNode()
tNode = TreeView1.Nodes(0)
Dim tools As XElement = dom.Descendants("Tools").FirstOrDefault()
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(tools, tNode)
TreeView1.ExpandAll()
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XElement, ByRef inTreeNode As TreeNode)
Dim elements As List(Of XElement)
Dim tNode As TreeNode
Dim nodeList As XmlNodeList
Dim i As Integer
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.Descendants.Count > 0 Then
elements = inXmlNode.Descendants("Tool").ToList()
For Each element As XElement In elements
Dim ID As String = element.Attribute("ID").Value
Dim Description As String = element.Element("Description").Value
Dim Teeth As String = element.Element("Teeth").Value
Dim Type As String = element.Element("Type").Value
Dim CutterReference As XElement = element.Element("Cutter").Element("Reference")
Dim Cutter_ID As String = CutterReference.Attribute("ID")
Dim HolderReference As XElement = element.Element("Holder").Element("Reference")
Dim Holder_ID As String = HolderReference.Attribute("ID")
Dim newNode As TreeNode = inTreeNode.Nodes.Add(Description)
newNode.Nodes.Add("Cutter :" & Cutter_ID)
newNode.Nodes.Add("Holder :" & Holder_ID)
Next element
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.ToString()).Trim
End If
End Sub
End Class
我改进了输出。请参阅下面的代码
Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Imports System.Text.Encoding
Public Class Form1
Const FILENAME As String = "c:\temp\test.xml"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' SECTION 1. Create a DOM Document and load the XML data into it
Dim reader As New StreamReader(FILENAME, System.Text.Encoding.UTF8)
Dim dom As XDocument = XDocument.Load(reader) ' SECTION 2. Initialize the treeview control.
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(New TreeNode(dom.Root.Name.LocalName))
Dim tNode As New TreeNode()
tNode = TreeView1.Nodes(0)
Dim tools As XElement = dom.Descendants("Tools").FirstOrDefault()
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(tools, tNode)
TreeView1.CollapseAll()
ExpandToLevel(TreeView1.Nodes, 1)
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XElement, ByRef inTreeNode As TreeNode)
Dim elements As List(Of XElement)
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.Descendants.Count > 0 Then
elements = inXmlNode.Descendants("Tool").ToList()
For Each element As XElement In elements
Dim ID As String = element.Attribute("ID").Value
Dim Description As String = element.Element("Description").Value
Dim Teeth As String = element.Element("Teeth").Value
Dim Type As String = element.Element("Type").Value
Dim newNode As TreeNode = inTreeNode.Nodes.Add(ID & " (" & String.Join(", ", {Description, "Teeth : " & Teeth, "Type : " & Type}) & ")")
If Not element.Element("Cutter") Is Nothing Then
Dim Cutters As List(Of XElement) = element.Element("Cutter").Elements("Reference").ToList()
Dim CutterBranch As TreeNode = newNode.Nodes.Add("Cutter")
For Each Cutter As XElement In Cutters
Dim Cutter_ID As String = Cutter.Attribute("ID")
CutterBranch.Nodes.Add(Cutter_ID)
Next Cutter
End If
If Not element.Element("Holder") Is Nothing Then
Dim Holders As List(Of XElement) = element.Element("Holder").Elements("Reference").ToList()
Dim HolderBranch As TreeNode = newNode.Nodes.Add("Holder")
For Each Holder As XElement In Holders
Dim Holder_ID As String = Holder.Attribute("ID")
HolderBranch.Nodes.Add(Holder_ID)
Next Holder
End If
Next element
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.ToString()).Trim
End If
End Sub
Sub ExpandToLevel(nodes As TreeNodeCollection, level As Integer)
If level > 0 Then
For Each node As TreeNode In nodes
node.Expand()
ExpandToLevel(node.Nodes, level - 1)
Next node
End If
End Sub
Sub treeView1_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterExpand
If Not e.Node.Parent Is Nothing Then
e.Node.ExpandAll()
End If
End Sub
End Class
我在代码中添加了一个排序器。以前从来没有这样做过。认为它可能会使它更容易使用。我按刀具类型（车削、铣削）和齿数排序
Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Imports System.Text.Encoding
Public Class Form1
Const FILENAME As String = "c:\temp\test.xml"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' SECTION 1. Create a DOM Document and load the XML data into it
Dim reader As New StreamReader(FILENAME, System.Text.Encoding.UTF8)
Dim dom As XDocument = XDocument.Load(reader) ' SECTION 2. Initialize the treeview control.
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(New Tool(dom.Root.Name.LocalName, Tool.NType.Root))
Dim tNode As New Tool(False)
tNode = TreeView1.Nodes(0)
Dim tools As XElement = dom.Descendants("Tools").FirstOrDefault()
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(tools, tNode)
TreeView1.TreeViewNodeSorter = NodeSorter.DefaultSorter
TreeView1.Sort()
TreeView1.CollapseAll()
ExpandToLevel(TreeView1.Nodes, 1)
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XElement, ByRef inTreeNode As Tool)
Dim elements As List(Of XElement)
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.Descendants.Count > 0 Then
elements = inXmlNode.Descendants("Tool").ToList()
For Each element As XElement In elements
Dim newTool As New Tool(Tool.NType.Tool)
newTool.ID = element.Attribute("ID").Value
newTool.Description = element.Element("Description").Value
newTool.Teeth = element.Element("Teeth").Value
newTool.Type = element.Element("Type").Value
newTool.Text = newTool.ID & " (" & String.Join(", ", {newTool.Description, "Type : " & newTool.Type, "Teeth : " & newTool.Teeth}) & ")"
inTreeNode.Nodes.Add(newTool)
If Not element.Element("Cutter") Is Nothing Then
Dim Cutters As List(Of XElement) = element.Element("Cutter").Elements("Reference").ToList()
Dim newCutter As Tool = New Tool("Cutter", Tool.NType.Type)
newTool.Nodes.Add(newCutter)
For Each Cutter As XElement In Cutters
Dim Cutter_ID As String = Cutter.Attribute("ID")
newCutter.Nodes.Add(New Tool(Cutter_ID, Tool.NType.Part))
Next Cutter
End If
If Not element.Element("Holder") Is Nothing Then
Dim Holders As List(Of XElement) = element.Element("Holder").Elements("Reference").ToList()
Dim newHolder As Tool = New Tool("Holder", Tool.NType.Type)
newTool.Nodes.Add(newHolder)
For Each Holder As XElement In Holders
Dim Holder_ID As String = Holder.Attribute("ID")
newHolder.Nodes.Add(New Tool(Holder_ID, Tool.NType.Part))
Next Holder
End If
Next element
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.ToString()).Trim
End If
End Sub
Sub ExpandToLevel(nodes As TreeNodeCollection, level As Integer)
If level > 0 Then
For Each node As TreeNode In nodes
node.Expand()
ExpandToLevel(node.Nodes, level - 1)
Next node
End If
End Sub
Sub treeView1_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterExpand
If Not e.Node.Parent Is Nothing Then
e.Node.ExpandAll()
End If
End Sub
End Class
Public Class Tool
Inherits TreeNode
Enum NType
Root
Tool
Type
Part
End Enum
Public NodeType As NType
Sub New(type As NType)
NodeType = type
End Sub
Sub New(text As String, type As NType)
NodeType = Type
Me.Text = text
End Sub
Private m_ID As String = ""
Public Property ID As String
Get
Return m_ID
End Get
Set(value As String)
m_ID = value
End Set
End Property
Private m_Teeth As String = ""
Public Property Teeth As String
Get
Return m_Teeth
End Get
Set(value As String)
m_Teeth = value
End Set
End Property
Private m_Type As String
Public Property Type As String
Get
Return m_Type
End Get
Set(value As String)
m_Type = value
End Set
End Property
Private m_Description
Public Property Description As String
Get
Return m_Description
End Get
Set(value As String)
m_Description = value
End Set
End Property
Public Function Add(text As String) As Tool
Me.Text = text
Return Me
End Function
End Class
Public Class NodeSorter
Implements IComparer
Public Shared ReadOnly DefaultSorter As New NodeSorter
'Create a node sorter that implements the IComparer interface.
'Compare the length of the strings, or the strings
'themselves, if they are the same length.
Public Function Compare(x As Object, y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim tx As Tool = CType(x, Tool)
Dim ty As Tool = CType(y, Tool)
If tx.NodeType = Tool.NType.Tool And ty.NodeType = Tool.NType.Tool Then
'Compare the length of the strings, returning the difference.
If tx.Type.Length <> ty.Type.Length Then
Return tx.Text.Length - ty.Text.Length
End If
'If they are the same length, call Compare.
If tx.Type = ty.Type Then
Return String.Compare(tx.Teeth, ty.Teeth)
Else
Return String.Compare(tx.Type, ty.Type)
End If
Else
If tx.NodeType = Tool.NType.Part And ty.NodeType = Tool.NType.Part Then
Return String.Compare(tx.Text, ty.Text)
Else
Return 0
End If
End If
End Function
End Class
使用这个。
Const FILENAME As String = "C:\joy\Web.config.xml"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
尝试
' 第 1 节。创建 DOM 文档并将 XML 数据加载到其中
Dim reader As New StreamReader(FILENAME, System.Text.Encoding.UTF8)
Dim dom As XDocument = XDocument.Load(reader) ' SECTION 2. Initialize the treeview control.
Dim rootNode As New TreeNode(dom.Root.Name.LocalName)
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(rootNode)
Dim ch = dom.Root.Elements()
For Each obj As XElement In ch
Dim chNode As New TreeNode(obj.Name.LocalName)
addNode(obj, chNode, rootNode)
Next
rootNode.ExpandAll()
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Public Sub addNode(xmlParent As XElement, node As TreeNode, parentNode As TreeNode)
parentNode.Nodes.Add(node)
For Each item In xmlParent.Elements()
Dim chNode As New TreeNode(item.Name.LocalName)
If item.NodeType = XmlNodeType.Element Then
For Each attr In item.Attributes
chNode.Nodes.Add(New TreeNode(attr.Name.ToString() + " = " + attr.Value))
Next
End If
addNode(item, chNode, node)
Next
End Sub
我正在尝试从 XML 文件中填充 VB.NET 中的 TreeView 组件。这是一个很大的 XML 文件，我将它切碎以便让你们了解它的结构。我是 VB.NET 的新手，所以我很难弄清楚这一点。下面是我希望此数据在 TreeView 中显示的顺序的图像，并且我添加了一些箭头，以便您可以了解数据在 XML 结构中的来源。
我找到并尝试改编我从 Microsoft 教程中获得的代码，但它基于更简单的 XML 结构并且不适用于我的文件。
图片中的箭头显示与 XML 标签和节点不同步，但我的目标是避免箭头和矩形相互重叠导致图片不可读。
当我们有一个名为 "Cutter" 的节点时，它是一种不同类型的组件，并且当前 "Cutter" 或 "Holder" 节点中可能包含多个组件，因此它们是由 "Reference" 标签分隔。如果它被命名为 "Holder"，那么它是工具堆栈上的另一种组件类型...每个新工具都以一个名为 "Tool" 的元素开始。
图片下方是我在代码中尝试执行的操作：
Private Sub btnSearchTLS_Click(sender As Object, e As EventArgs) Handles btnSearchTLS.Click
Try
' SECTION 1. Create a DOM Document and load the XML data into it.
Dim dom As New XmlDocument()
dom.Load(txtFileOpenTLS_2.Text)
' SECTION 2. Initialize the treeview control.
tviewToolIDs.Nodes.Clear()
tviewToolIDs.Nodes.Add(New TreeNode(dom.DocumentElement.Name))
Dim tNode As New TreeNode()
tNode = tviewToolIDs.Nodes(0)
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(dom.DocumentElement, tNode)
tviewToolIDs.ExpandAll()
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XmlNode, ByRef inTreeNode As TreeNode)
Dim xNode As XmlNode
Dim tNode As TreeNode
Dim nodeList As XmlNodeList
Dim i As Integer
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.HasChildNodes() Then
nodeList = inXmlNode.ChildNodes
For i = 0 To nodeList.Count - 1
xNode = inXmlNode.(i)
inTreeNode.Nodes.Add(New TreeNode(xNode.Name))
tNode = inTreeNode.Nodes(i)
AddNode(xNode, tNode)
Next
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.OuterXml).Trim
End If
End Sub
这是 XML 文件：
<?xml version="1.0"?>
<ToolLibrary Version="7.3">
<Tools>
<Tool ID="100004" Units="Millimeter">
<Description>100004</Description>
<Teeth>1</Teeth>
<Type>Turning</Type>
<Cutter>
<Reference ID="12140 - N123G2-0318-0008">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Torneamento - Insertos paramétricos</ToolID>
<EntityName>12140 - N123G2-0318-0008</EntityName>
<Origin>
<X>34.2</X>
<Y>0</Y>
<Z>-82.3</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>-90</Y>
<Z>0</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="12135 - C5-570-32-LF">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12135 - C5-570-32-LF</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12139 - 570-32L123G18B130A">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12139 - 570-32L123G18B130A</EntityName>
<Origin>
<X>21</X>
<Y>0</Y>
<Z>-42</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>35</X>
<Y>0</Y>
<Z>-83.1</Z>
</DrivenPoint>
<DrivenPoint ID="2">
<Type>-1</Type>
<Radius>0</Radius>
<X>31.82</X>
<Y>0</Y>
<Z>-83.1</Z>
</DrivenPoint>
<CutterCompensation ID="1">0.8</CutterCompensation>
<CutterCompensation ID="2">0.8</CutterCompensation>
</Tool>
<Tool ID="100171" Units="Millimeter">
<Description>100171</Description>
<Teeth>1</Teeth>
<Type>Turning</Type>
<Cutter>
<Reference ID="12349 - CNMG120412">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Torneamento - Insertos paramétricos</ToolID>
<EntityName>12349 - CNMG120412</EntityName>
<Origin>
<X>-35.8</X>
<Y>0</Y>
<Z>-291.8</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>-5</Y>
<Z>0</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="11977 - C6-390.410-100-110A">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11977 - C6-390.410-100-110A</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="11978 - C6-570-2C-60-148-40L">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11978 - C6-570-2C-60-148-40L</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-110</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="11979 - SL-PCLNL-40-12HP">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11979 - SL-PCLNL-40-12HP</EntityName>
<Origin>
<X>-10</X>
<Y>0</Y>
<Z>-258</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>-37</X>
<Y>0</Y>
<Z>-293</Z>
</DrivenPoint>
<DrivenPoint ID="2">
<Type>-1</Type>
<Radius>0</Radius>
<X>-37</X>
<Y>0</Y>
<Z>-293</Z>
</DrivenPoint>
<CutterCompensation ID="1">1.2</CutterCompensation>
<CutterCompensation ID="2">1.2</CutterCompensation>
</Tool>
<Tool ID="100178" Units="Millimeter">
<Description>100178</Description>
<Teeth>8</Teeth>
<Type>Milling</Type>
<Cutter>
<Reference ID="10084 - R90MT-12-05-RM">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>44</X>
<Y>0</Y>
<Z>-614</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM1">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>31.112698</X>
<Y>-31.112698</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>-45</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM11">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>31.112698</X>
<Y>31.112698</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>45</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM12">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>0</X>
<Y>-44</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>-90</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM13">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>0</X>
<Y>44</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>90</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM14">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>-31.112698</X>
<Y>31.112698</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>135</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM15">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>-44</X>
<Y>0</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>180</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10084 - R90MT-12-05-RM">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10084 - R90MT-12-05-RM</EntityName>
<Origin>
<X>-31.1127</X>
<Y>-31.1127</Y>
<Z>-614</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>-135</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="11974 - C8-390.410-100 120A">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11974 - C8-390.410-100 120A</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12001 - C8-391.01-80 065">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12001 - C8-391.01-80 065</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-120</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12001 - C8-391.01-80 065">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12001 - C8-391.01-80 065</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-185</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12002 - C8-391.05-CD-32-320">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12002 - C8-391.05-CD-32-320</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-250</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10707 - FCM-D100-32-11">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>10707 - FCM-D100-32-11</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-570</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>0</X>
<Y>0</Y>
<Z>-620</Z>
</DrivenPoint>
<DrivenPoint ID="2">
<Type>-1</Type>
<Radius>0</Radius>
<X>0</X>
<Y>0</Y>
<Z>-620</Z>
</DrivenPoint>
<CutterCompensation ID="1">50</CutterCompensation>
<CutterCompensation ID="2">50</CutterCompensation>
</Tool>
<Tool ID="100192" Units="Millimeter">
<Description>100192</Description>
<Teeth>1</Teeth>
<Type>Milling</Type>
<Cutter>
<Reference ID="10087 - 880-05-03-05H-C-GM">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10087 - 880-05-03-05H-C-GM</EntityName>
<Origin>
<X>-7.9</X>
<Y>0</Y>
<Z>-233.5</Z>
</Origin>
<Rotation>
<X>0</X>
<Y>0</Y>
<Z>180</Z>
</Rotation>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="10088 - 880-05 03 W05H-P-GM">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Rotativas - Insertos Paramétricos</ToolID>
<EntityName>10088 - 880-05 03 W05H-P-GM</EntityName>
<Origin>
<X>12</X>
<Y>0</Y>
<Z>-233.5</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="12007 - C4-390.410-100-090A">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12007 - C4-390.410-100-090A</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="12033 - 880-D2500C4-04">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12033 - 880-D2500C4-04</EntityName>
<Origin>
<X>0</X>
<Y>0</Y>
<Z>-90</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>0</X>
<Y>0</Y>
<Z>-234</Z>
</DrivenPoint>
</Tool>
<Tool ID="801154" Units="Millimeter">
<Description>801154</Description>
<Teeth>1</Teeth>
<Type>Turning</Type>
<Cutter>
<Reference ID="11325 - MKI-176807-13_4.4">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Torneamento - Insertos 3D</ToolID>
<EntityName>11325 - MKI-176807-13_4.4</EntityName>
<Origin>
<X>-5.18</X>
<Y>0</Y>
<Z>-225</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Cutter>
<Holder>
<Reference ID="12016 - 392.410-100-ASHL-32">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>12016 - 392.410-100-ASHL-32</EntityName>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
<Reference ID="11328 - MKS-366807-18">
<FileName>TBT_MASTER_LIBRARY.tls</FileName>
<ToolID>Holders & Acessorios</ToolID>
<EntityName>11328 - MKS-366807-18</EntityName>
<Origin>
<X>-8</X>
<Y>0</Y>
<Z>-55</Z>
</Origin>
<NoSpin>0</NoSpin>
<Alternate>Off</Alternate>
</Reference>
</Holder>
<DrivenPoint ID="2">
<Type>-1</Type>
<Radius>0</Radius>
<X>-2.980037</X>
<Y>0</Y>
<Z>-225</Z>
</DrivenPoint>
<DrivenPoint ID="1">
<Type>-1</Type>
<Radius>0</Radius>
<X>-7.380037</X>
<Y>0</Y>
<Z>-225</Z>
</DrivenPoint>
<CutterCompensation ID="1">1.5</CutterCompensation>
<CutterCompensation ID="2">1.5</CutterCompensation>
</Tool>
</Tools>
</ToolLibrary>
我必须在上面的代码中做什么（考虑到它是正确的代码 - 请随意想出一种新方法）才能使我的 TreeView 像图中所示那样填充？
很抱歉要求提供可能已经涵盖的内容，我进行了搜索，但找不到适合我的 XML 示例的内容。
提前致谢，
丹尼尔
我添加了一些过滤。为此，我将 XmlDocument 更改为 linq XDocument。我在代码中提取了一堆对象，但没有将它们全部放入树视图中。留给你了。
Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Imports System.Text.Encoding
Public Class Form1
Const FILENAME As String = "c:\temp\test.xml"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' SECTION 1. Create a DOM Document and load the XML data into it
Dim reader As New StreamReader(FILENAME, System.Text.Encoding.UTF8)
Dim dom As XDocument = XDocument.Load(reader) ' SECTION 2. Initialize the treeview control.
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(New TreeNode(dom.Root.Name.LocalName))
Dim tNode As New TreeNode()
tNode = TreeView1.Nodes(0)
Dim tools As XElement = dom.Descendants("Tools").FirstOrDefault()
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(tools, tNode)
TreeView1.ExpandAll()
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XElement, ByRef inTreeNode As TreeNode)
Dim elements As List(Of XElement)
Dim tNode As TreeNode
Dim nodeList As XmlNodeList
Dim i As Integer
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.Descendants.Count > 0 Then
elements = inXmlNode.Descendants("Tool").ToList()
For Each element As XElement In elements
Dim ID As String = element.Attribute("ID").Value
Dim Description As String = element.Element("Description").Value
Dim Teeth As String = element.Element("Teeth").Value
Dim Type As String = element.Element("Type").Value
Dim CutterReference As XElement = element.Element("Cutter").Element("Reference")
Dim Cutter_ID As String = CutterReference.Attribute("ID")
Dim HolderReference As XElement = element.Element("Holder").Element("Reference")
Dim Holder_ID As String = HolderReference.Attribute("ID")
Dim newNode As TreeNode = inTreeNode.Nodes.Add(Description)
newNode.Nodes.Add("Cutter :" & Cutter_ID)
newNode.Nodes.Add("Holder :" & Holder_ID)
Next element
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.ToString()).Trim
End If
End Sub
End Class
我改进了输出。请参阅下面的代码
Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Imports System.Text.Encoding
Public Class Form1
Const FILENAME As String = "c:\temp\test.xml"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' SECTION 1. Create a DOM Document and load the XML data into it
Dim reader As New StreamReader(FILENAME, System.Text.Encoding.UTF8)
Dim dom As XDocument = XDocument.Load(reader) ' SECTION 2. Initialize the treeview control.
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(New TreeNode(dom.Root.Name.LocalName))
Dim tNode As New TreeNode()
tNode = TreeView1.Nodes(0)
Dim tools As XElement = dom.Descendants("Tools").FirstOrDefault()
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(tools, tNode)
TreeView1.CollapseAll()
ExpandToLevel(TreeView1.Nodes, 1)
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XElement, ByRef inTreeNode As TreeNode)
Dim elements As List(Of XElement)
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.Descendants.Count > 0 Then
elements = inXmlNode.Descendants("Tool").ToList()
For Each element As XElement In elements
Dim ID As String = element.Attribute("ID").Value
Dim Description As String = element.Element("Description").Value
Dim Teeth As String = element.Element("Teeth").Value
Dim Type As String = element.Element("Type").Value
Dim newNode As TreeNode = inTreeNode.Nodes.Add(ID & " (" & String.Join(", ", {Description, "Teeth : " & Teeth, "Type : " & Type}) & ")")
If Not element.Element("Cutter") Is Nothing Then
Dim Cutters As List(Of XElement) = element.Element("Cutter").Elements("Reference").ToList()
Dim CutterBranch As TreeNode = newNode.Nodes.Add("Cutter")
For Each Cutter As XElement In Cutters
Dim Cutter_ID As String = Cutter.Attribute("ID")
CutterBranch.Nodes.Add(Cutter_ID)
Next Cutter
End If
If Not element.Element("Holder") Is Nothing Then
Dim Holders As List(Of XElement) = element.Element("Holder").Elements("Reference").ToList()
Dim HolderBranch As TreeNode = newNode.Nodes.Add("Holder")
For Each Holder As XElement In Holders
Dim Holder_ID As String = Holder.Attribute("ID")
HolderBranch.Nodes.Add(Holder_ID)
Next Holder
End If
Next element
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.ToString()).Trim
End If
End Sub
Sub ExpandToLevel(nodes As TreeNodeCollection, level As Integer)
If level > 0 Then
For Each node As TreeNode In nodes
node.Expand()
ExpandToLevel(node.Nodes, level - 1)
Next node
End If
End Sub
Sub treeView1_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterExpand
If Not e.Node.Parent Is Nothing Then
e.Node.ExpandAll()
End If
End Sub
End Class
我在代码中添加了一个排序器。以前从来没有这样做过。认为它可能会使它更容易使用。我按刀具类型（车削、铣削）和齿数排序
Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Imports System.Text.Encoding
Public Class Form1
Const FILENAME As String = "c:\temp\test.xml"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' SECTION 1. Create a DOM Document and load the XML data into it
Dim reader As New StreamReader(FILENAME, System.Text.Encoding.UTF8)
Dim dom As XDocument = XDocument.Load(reader) ' SECTION 2. Initialize the treeview control.
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(New Tool(dom.Root.Name.LocalName, Tool.NType.Root))
Dim tNode As New Tool(False)
tNode = TreeView1.Nodes(0)
Dim tools As XElement = dom.Descendants("Tools").FirstOrDefault()
' SECTION 3. Populate the TreeView with the DOM nodes.
AddNode(tools, tNode)
TreeView1.TreeViewNodeSorter = NodeSorter.DefaultSorter
TreeView1.Sort()
TreeView1.CollapseAll()
ExpandToLevel(TreeView1.Nodes, 1)
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddNode(ByRef inXmlNode As XElement, ByRef inTreeNode As Tool)
Dim elements As List(Of XElement)
' Loop through the XML nodes until the leaf is reached.
' Add the nodes to the TreeView during the looping process.
If inXmlNode.Descendants.Count > 0 Then
elements = inXmlNode.Descendants("Tool").ToList()
For Each element As XElement In elements
Dim newTool As New Tool(Tool.NType.Tool)
newTool.ID = element.Attribute("ID").Value
newTool.Description = element.Element("Description").Value
newTool.Teeth = element.Element("Teeth").Value
newTool.Type = element.Element("Type").Value
newTool.Text = newTool.ID & " (" & String.Join(", ", {newTool.Description, "Type : " & newTool.Type, "Teeth : " & newTool.Teeth}) & ")"
inTreeNode.Nodes.Add(newTool)
If Not element.Element("Cutter") Is Nothing Then
Dim Cutters As List(Of XElement) = element.Element("Cutter").Elements("Reference").ToList()
Dim newCutter As Tool = New Tool("Cutter", Tool.NType.Type)
newTool.Nodes.Add(newCutter)
For Each Cutter As XElement In Cutters
Dim Cutter_ID As String = Cutter.Attribute("ID")
newCutter.Nodes.Add(New Tool(Cutter_ID, Tool.NType.Part))
Next Cutter
End If
If Not element.Element("Holder") Is Nothing Then
Dim Holders As List(Of XElement) = element.Element("Holder").Elements("Reference").ToList()
Dim newHolder As Tool = New Tool("Holder", Tool.NType.Type)
newTool.Nodes.Add(newHolder)
For Each Holder As XElement In Holders
Dim Holder_ID As String = Holder.Attribute("ID")
newHolder.Nodes.Add(New Tool(Holder_ID, Tool.NType.Part))
Next Holder
End If
Next element
Else
' Here you need to pull the data from the XmlNode based on the
' type of node, whether attribute values are required, and so forth.
inTreeNode.Text = (inXmlNode.ToString()).Trim
End If
End Sub
Sub ExpandToLevel(nodes As TreeNodeCollection, level As Integer)
If level > 0 Then
For Each node As TreeNode In nodes
node.Expand()
ExpandToLevel(node.Nodes, level - 1)
Next node
End If
End Sub
Sub treeView1_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterExpand
If Not e.Node.Parent Is Nothing Then
e.Node.ExpandAll()
End If
End Sub
End Class
Public Class Tool
Inherits TreeNode
Enum NType
Root
Tool
Type
Part
End Enum
Public NodeType As NType
Sub New(type As NType)
NodeType = type
End Sub
Sub New(text As String, type As NType)
NodeType = Type
Me.Text = text
End Sub
Private m_ID As String = ""
Public Property ID As String
Get
Return m_ID
End Get
Set(value As String)
m_ID = value
End Set
End Property
Private m_Teeth As String = ""
Public Property Teeth As String
Get
Return m_Teeth
End Get
Set(value As String)
m_Teeth = value
End Set
End Property
Private m_Type As String
Public Property Type As String
Get
Return m_Type
End Get
Set(value As String)
m_Type = value
End Set
End Property
Private m_Description
Public Property Description As String
Get
Return m_Description
End Get
Set(value As String)
m_Description = value
End Set
End Property
Public Function Add(text As String) As Tool
Me.Text = text
Return Me
End Function
End Class
Public Class NodeSorter
Implements IComparer
Public Shared ReadOnly DefaultSorter As New NodeSorter
'Create a node sorter that implements the IComparer interface.
'Compare the length of the strings, or the strings
'themselves, if they are the same length.
Public Function Compare(x As Object, y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim tx As Tool = CType(x, Tool)
Dim ty As Tool = CType(y, Tool)
If tx.NodeType = Tool.NType.Tool And ty.NodeType = Tool.NType.Tool Then
'Compare the length of the strings, returning the difference.
If tx.Type.Length <> ty.Type.Length Then
Return tx.Text.Length - ty.Text.Length
End If
'If they are the same length, call Compare.
If tx.Type = ty.Type Then
Return String.Compare(tx.Teeth, ty.Teeth)
Else
Return String.Compare(tx.Type, ty.Type)
End If
Else
If tx.NodeType = Tool.NType.Part And ty.NodeType = Tool.NType.Part Then
Return String.Compare(tx.Text, ty.Text)
Else
Return 0
End If
End If
End Function
End Class
使用这个。
Const FILENAME As String = "C:\joy\Web.config.xml" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 尝试 ' 第 1 节。创建 DOM 文档并将 XML 数据加载到其中
Dim reader As New StreamReader(FILENAME, System.Text.Encoding.UTF8)
Dim dom As XDocument = XDocument.Load(reader) ' SECTION 2. Initialize the treeview control.
Dim rootNode As New TreeNode(dom.Root.Name.LocalName)
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(rootNode)
Dim ch = dom.Root.Elements()
For Each obj As XElement In ch
Dim chNode As New TreeNode(obj.Name.LocalName)
addNode(obj, chNode, rootNode)
Next
rootNode.ExpandAll()
Catch xmlEx As XmlException
MessageBox.Show(xmlEx.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Public Sub addNode(xmlParent As XElement, node As TreeNode, parentNode As TreeNode)
parentNode.Nodes.Add(node)
For Each item In xmlParent.Elements()
Dim chNode As New TreeNode(item.Name.LocalName)
If item.NodeType = XmlNodeType.Element Then
For Each attr In item.Attributes
chNode.Nodes.Add(New TreeNode(attr.Name.ToString() + " = " + attr.Value))
Next
End If
addNode(item, chNode, node)
Next
End Sub