| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 
 |  Dim stm As New FileStream("test.xml", FileMode.Open)
 
                Dim stmWriter As New StreamWriter(stm)
                Dim settings As New XmlWriterSettings()
 
 
                Using writer As XmlWriter = XmlWriter.Create(stmWriter, settings)
 
 
                    writer.WriteStartDocument()
 
                    writer.WriteStartElement("recettes")
 
                    writer.WriteStartElement("recette")
 
 
                    writer.WriteAttributeString("Nom", AjoutRecette.edName.Text)
                    writer.WriteAttributeString("Type", CStr(AjoutRecette.cbType.SelectedIndex + 1))
                    writer.WriteAttributeString("Url", AjoutRecette.edUrl.Text)
                    writer.WriteAttributeString("Note", CStr(AjoutRecette.raNote.Value))
                    'writer.WriteAttributeString("img", AjoutRecette.edImage.Text)
                    writer.WriteAttributeString("Comm", AjoutRecette.edComm.Text)
                    writer.WriteAttributeString("ing1", AjoutRecette.edIng1.Text)
                    writer.WriteAttributeString("ing2", AjoutRecette.edIng2.Text)
                    writer.WriteAttributeString("ing3", AjoutRecette.edIng3.Text)
                    writer.WriteAttributeString("ing4", AjoutRecette.edIng4.Text)
                    writer.WriteAttributeString("vin", AjoutRecette.edVin.Text)
 
                    writer.WriteEndElement()
 
                    writer.WriteEndElement()
 
                    writer.Close()
 
 
                End Using | 
Partager