Imports System.IO
Imports System.Xml.Serialization
Imports System.Environment
Imports Microsoft.Win32
 
 
<Serializable()> Public Class UserSettings
    Public Oberfläche As optOberfläche
    Public Benennung As optBenennung
 
    Public DBPrüfen As Boolean = True
 
    Public Sub New()
        Oberfläche = New optOberfläche
        Benennung = New optBenennung
        Edit = New optEdit
    End Sub
End Class
 
Public Class SettingManager
    Public Shared Function Save(ByVal mySettings As UserSettings, ByVal _
      FileName As String) As Boolean
        Dim configFile As Stream = Nothing
        Try
            'Verzeichnis erstellen, falls nicht vorhanden...
            Dim d As New DirectoryInfo(Path.GetDirectoryName(FileName))
            d.Create()
 
            Dim xs As New XmlSerializer(GetType(UserSettings))
            If IO.File.Exists(FileName) Then IO.File.Delete(FileName)
            configFile = IO.File.Open(FileName, FileMode.Create, _
              FileAccess.Write)
            xs.Serialize(configFile, mySettings)
 
            Return True
        Catch ex As Exception
            Return False
        Finally
            If Not IsNothing(configFile) Then configFile.Close()
        End Try
    End Function
    Public Shared Function Load(ByVal FileName As String) As UserSettings
        Dim configFile As Stream = Nothing
        Dim mSetting As UserSettings = Nothing
        Try
            'Verzeichnis erstellen, falls nicht vorhanden...
            Dim d As New DirectoryInfo(Path.GetDirectoryName(FileName))
            d.Create()
 
            If IO.File.Exists(FileName) Then
                Dim xs As New XmlSerializer(GetType(UserSettings))
                configFile = IO.File.Open(FileName, FileMode.Open, _
                  FileAccess.Read)
                mSetting = DirectCast(xs.Deserialize(configFile), UserSettings)
            Else
                mSetting = New UserSettings
            End If
 
            Return mSetting
        Catch ex As Exception
            mSetting = New UserSettings
            Return mSetting
        Finally
            If Not IsNothing(configFile) Then configFile.Close()
        End Try
    End Function
End Class
 
Public Class optBenennung
    Public Files() As String
    Public iFiles As Integer = 0
    Public Splitter As List(Of String)
 
    Friend Sub Reset()
        ReDim Files(0 To 8)
        Files(0) = "%i - %t"
        Files(1) = "%i - %r - %t"
        Files(2) = "%cd%r - %i - %t"
        Files(3) = "%r - %t"
        Files(4) = "%i - %lfdnr %t"
        Files(5) = "%i - %t %lfdnr"
        Files(6) = "%i - %r %t"
        Files(7) = "%i - %cd%r %t"
        Files(8) = "%cd%r %i - %t"
        iFiles = 9
 
        Splitter = New List(Of String)
        With Splitter
            .Clear()
            .Add(" CD")
            .Add(" DVD")
            .Add(" Disk")
            .Add(" Disc")
        End With
    End Sub
    Public Sub New()
        Reset()
    End Sub
End Class
 
Public Class optOberfläche
    Public Color_Found_DB As Integer = Color.Green.ToArgb
    Public Color_Not_Found_DB As Integer = Color.Red.ToArgb
End Class