16-12-2014, 11:52 AM
|
#2
|
|
|
• الانـتـسـاب » Mar 2009
|
|
• رقـم العـضـويـة » 58256
|
|
• المشـــاركـات » 1,659
|
|
• الـدولـة » North Sinai
|
|
• الـهـوايـة » Writing code, Swimming, Flying
|
|
• اسـم الـسـيـرفـر » No Server
|
|
• الـجـنـس » Male
|
|
• نقـاط التقييم » 13
|
|
|
|
اولا طبعا لازم تعمل 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
|
|
|
|
|