Mega Code Archive

 

Categories / VB.Net by API / System Xml

 

XmlDocument CreateElement

Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Collections Imports System.Data Imports System.Windows.Forms Public Class MainClass          Shared Sub Main()         Dim FakeQuantity As Integer         Dim Doc As New XmlDocument()         Dim newAtt As XmlAttribute         Dim TempNode As XmlElement         Dim dec As XmlDeclaration = Doc.CreateXmlDeclaration("1.0", _                                          Nothing, Nothing)         Doc.AppendChild(dec)         Dim DocRoot As XmlElement = Doc.CreateElement("Orders")         Doc.AppendChild(DocRoot)         Dim x As Integer         For x = 0 To 11             Dim Order As XmlNode = Doc.CreateElement("Order")             newAtt = Doc.CreateAttribute("Quantity")             FakeQuantity = 10 * x + x             newAtt.Value = FakeQuantity.ToString()             Order.Attributes.Append(newAtt)             DocRoot.AppendChild(Order)         Next         Doc.Save("OutDocument.xml")     End Sub End Class