Create XML Child Nodes with Attributes

How to create XML child nodes with attributes.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim xml As New Chilkat.Xml()

'  The Chilkat XML component is freeware.

xml.Tag = "product"

Dim xNode0 As Chilkat.Xml
xNode0 = xml.NewChild("properties","")

Dim xChild As Chilkat.Xml
xChild = xNode0.NewChild("price","")
xChild.AddAttribute("SellPrice","11.99")


xChild = xNode0.NewChild("price","")
xChild.AddAttribute("BasePrice","11.99")




TextBox1.Text = TextBox1.Text & xml.GetXml() & vbCrLf
TextBox1.Refresh()

'  Prints this:
'  <product>
'     <properties>
'         <price SellPrice="11.99"></price>
'         <price BasePrice="11.99"></price>
'     </properties>
' </product>