1 2 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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| Using isoStore As IsolatedStorageFile = _
IsolatedStorageFile.GetUserStoreForApplication()
' Create new file
Using isoStream As IsolatedStorageFileStream = _
New IsolatedStorageFileStream("recettes.xml", _
FileMode.OpenOrCreate, isoStore)
' Write to the Isolated Storage for the user.
Dim settings As XmlWriterSettings = New XmlWriterSettings()
settings.Indent = True
' Create an XmlWriter.
Using writer As XmlWriter = XmlWriter.Create(isoStream, 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)
If AjoutRecette.raNote.Value Is Nothing Then
writer.WriteAttributeString("Note", CStr(0))
Else
writer.WriteAttributeString("Note", CStr(AjoutRecette.raNote.Value))
End If
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)
If AjoutRecette.ImgPhoto.Source IsNot Nothing Then
If SetDetailImage(AjoutRecette.Strm, isoStore, AjoutRecette.edName.Text & ".jpg") Then
writer.WriteAttributeString("img", AjoutRecette.edName.Text & ".jpg")
Else
writer.WriteAttributeString("img", "")
End If
End If
writer.WriteEndElement()
writer.WriteEndElement()
writer.WriteEndDocument()
writer.Close()
End Using
End Using |
Partager