root/lang/vb2005/TenageM/trunk/TenageM/Setting/SettingBase.vb @ 32813

<Serializable()> _
Public Class SettingBase
    Private Shared _instance As SettingBase

    Protected Shared Function LoadSettings(ByVal Path As String, ByVal Type As Type) As Object
        Using fs As New IO.FileStream(Path, IO.FileMode.Open, IO.FileAccess.Read)
            Dim xs As New Xml.Serialization.XmlSerializer(Type)
            Return xs.Deserialize(fs)
        End Using
    End Function

    Protected Shared Sub SaveSettings(ByVal Path As String, ByVal Instance As Object, ByVal Type As Type)
        Using fs As New IO.FileStream(Path, IO.FileMode.Create, IO.FileAccess.Write)
            Dim xs As New Xml.Serialization.XmlSerializer(Type)
            xs.Serialize(fs, Instance)
        End Using
    End Sub

    Protected Shared Function GetSettingFilePath() As String
        Return IO.Path.Combine(Environment.GetFolderPath( _
                                    Environment.SpecialFolder.ApplicationData), _
                                "TenageM\TenageM.config")
    End Function

    <Xml.Serialization.XmlIgnore()> _
    Public Shared Property Instance() As SettingBase
        Get
            If _instance Is Nothing Then
                _instance = New AccountSettings
            End If
            Return _instance
        End Get
        Set(ByVal value As SettingBase)
            _instance = value
        End Set
    End Property
End Class