Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim b As New Bitmap(100, 100) 'dessiner ici quelque chose ou récupérer depuis un picturebox par exemple b.Save("monbitmap.bmp", Imaging.ImageFormat.Bmp) Dim MonObjet As New MesZones MonObjet.ImagePath = "monbitmap.bmp" MonObjet.Add(New Rectangle(0, 0, 50, 50)) MonObjet.Add(New Rectangle(50, 0, 50, 50)) MonObjet.Add(New Rectangle(0, 50, 50, 50)) MonObjet.Add(New Rectangle(50, 50, 50, 50)) 'serialisation Using writer As New IO.StreamWriter("monxml.xml") Dim ser As New Xml.Serialization.XmlSerializer(GetType(MesZones)) ser.Serialize(writer, MonObjet) End Using End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'désérialisation Dim MonObjet As New MesZones Using reader As New IO.StreamReader("monxml.xml") Dim ser As New Xml.Serialization.XmlSerializer(GetType(MesZones)) MonObjet = CType(ser.Deserialize(reader), MesZones) End Using 'monobjet contient tous tes rectangles et le path de ton image End Sub End Class Public Class MesZones Public Zones As New List(Of Rectangle) Public ImagePath As String Sub New() End Sub Sub Add(ByVal rect As Rectangle) Zones.Add(rect) End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question