[iMido]

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

كود PHP:

 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 


كود PHP:

  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