[VB .NET] التعامل مع XML

[iMido]

اولا طبعا لازم تعمل import ل system.xml

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click         Dim writer As New XmlTextWriter("product.xml", System.Text.Encoding.UTF8)         writer.WriteStartDocument(True)         writer.Formatting = Formatting.Indented         writer.Indentation = 2         writer.WriteStartElement("Table")         NewNode(1, "Youssef", "S4A", writer)         NewNode(2, "Mohamed", "S4A", writer)         writer.WriteEndElement()         writer.WriteEndDocument()         writer.Close()     End Sub

Private Sub NewNode(ByVal ID As String, ByVal Name As String, ByVal pString As String, ByVal writer As XmlTextWriter)         writer.WriteStartElement("Youssefs table")         writer.WriteStartElement("ID")         writer.WriteString(ID)         writer.WriteEndElement()         writer.WriteStartElement("Name")         writer.WriteString(Name)         writer.WriteEndElement()         writer.WriteStartElement("String")         writer.WriteString(pString)         writer.WriteEndElement()         writer.WriteEndElement()     End Sub