Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Xml.Serialization
Imports System.Runtime.Serialization

Public Class ArrayKeyButtonBox

    Private Sub ArrayKeyButtonBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tempsave As New SaveImp(PConBoxInternal.Controls.Item(0))
        VSBLatBar.Visible = True
        VSBLatBar.Enabled = False
        If File.Exists("SavedKeys.bin") Then
            Dim myFileStream As Stream = File.OpenRead("SavedKeys.bin")
            'Dim deserializer As New BinaryFormatter()
            Dim deserializer As New XmlSerializer(tempsave.GetType)
            tempsave = CType(deserializer.Deserialize(myFileStream), SaveImp)
            myFileStream.Close()
        End If
        PConBoxInternal.Controls.Add(tempsave.SavePanel)
    End Sub

    Private Sub BSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSalva.Click
        MsgBox("salvato")
        Dim tempsave As New SaveImp(PConBoxInternal.Controls.Item(0))
        Dim myFileStream As Stream = File.Create("SavedKeys.bin")
        'Dim serializer As New BinaryFormatter()
        Dim serializer As New XmlSerializer(tempsave.GetType)
        serializer.Serialize(myFileStream, tempsave)
        myFileStream.Close()
    End Sub
End Class

<System.Serializable()>Public Class SaveImp
    Public SavePanel As KeyButtonBox
    Public Sub New()

    End Sub
    Public Sub New(ByVal pan As KeyButtonBox)
        SavePanel = pan
    End Sub
End Class