Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Xml
Imports System.Xml.Serialization
Public Class INIfile
    'Hier Deine Variablen, die Du in der INI einfügen möchtest, in der Struktur 
    '  deklarieren 
    Public Class IniStructure
        Public MyFarbeVAnzeigeTag As Color
        Public MyFarbeVAnzeigeNacht As Color
            End Class
 
    Private IniData As Object
    'Hier Deine Variablen nochmals deklarieren , diese werden im Objekt 
    ' öffentlich verwendet, um sie zur Runtime anpassen zu können
    Public MyFarbeVAnzeigeTag As Color
    Public MyFarbeVAnzeigeNacht As Color
        Public Sub LoadXMLClientConfig()
        Dim isf As File
        Dim isfs As FileStream
        Dim sr As StreamReader
        Dim Pfad As String = Application.StartupPath
        Try
            'Deinen  Konfigurationsdatei öffnen hier: "AppData.cfg", kannst Du 
            ' auch mit Pfadangaben eintragen, Name ist frei
            isfs = isf.OpenRead("" & Pfad & "\App.config")
            sr = New StreamReader(isfs, System.Text.Encoding.UTF8)
 
            Dim xmlser As New XmlSerializer(GetType(IniStructure))
            IniData = CType(xmlser.Deserialize(sr), IniStructure)
 
        Catch ex As Exception
            'Init Einstellungen beim ersten Aufruf
            IniData = New IniStructure
            IniData.MyFarbeVAnzeigeTag = System.Drawing.Color.LightGray
            IniData.MyFarbeVAnzeigeNacht = System.Drawing.Color.Gray           
 
        Finally
            If Not sr Is Nothing Then sr.Close()
            If Not isfs Is Nothing Then isfs.Close()
        End Try
 
        'Nach dem Einlesen noch die Daten an Deine Variablen zuweisen
        If Not IniData Is Nothing Then
            MyFarbeVAnzeigeTag = IniData.MyFarbeVAnzeigeTag
            MyFarbeVAnzeigeNacht = IniData.MyFarbeVAnzeigeNacht
                    End If
 
    End Sub
 
    Public Sub SaveXMLClientConfig()
 
        If IniData Is Nothing Then Exit Sub
 
        Dim isf As File
        Dim isfs As FileStream
        Dim sw As StreamWriter
        Dim Pfad As String = Application.StartupPath
        Try
            'Deine  Konfigurationsdatei schreiben hier: "AppData.cfg", kannst 
            ' Du auch mit Pfadangaben eintragen, Name ist frei
 
            isfs = isf.Create("" & Pfad & "\App.config")
            sw = New StreamWriter(isfs, System.Text.Encoding.UTF8)
 
            'Parametereinstellungen ermitteln für Speicherung
            'Hier Deine Variablen in der INI-Struktur speichern
            IniData.MyFarbeVAnzeigeTag = MyFarbeVAnzeigeTag
            IniData.MyFarbeVAnzeigeNacht = MyFarbeVAnzeigeNacht
 
            Dim xmlser As New XmlSerializer(GetType(IniStructure))
            xmlser.Serialize(sw, IniData)
 
        Catch ex As System.Exception
            MsgBox("Einstellungen konnten nicht gepeichert werden: " + _
              ex.Message, MsgBoxStyle.Exclamation, "ACHTUNG")
        Finally
            If Not sw Is Nothing Then sw.Close()
            If Not isfs Is Nothing Then isfs.Close()
        End Try
 
    End Sub
 
End Class
 
Public Sub Optionen_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        'Über Button oder bei Programmstart bzw FormLoad die Konfiguration lesen
               'Datei einlesen
        Configuration.LoadXMLClientConfig()
 
        'Variablen auslesen 
        FarbeVAnzeigeTag = Configuration.MyFarbeVAnzeigeTag
        FarbeVAnzeigeNacht = Configuration.MyFarbeVAnzeigeNacht
 
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        'OK geklickt
        'Über Button oder bei Programmende bzw FormClosing die Konfiguration 
        ' speichern
 
        Dim Configuration As New INIfile
        Dim FarbeVAnzeigeTag As Color
 
 
        'Variablen im IniObjekt speichern
        Configuration.MyFarbeVAnzeigeTag = FarbeVAnzeigeTag
        Configuration.MyFarbeVAnzeigeNacht = FarbeVAnzeigeNacht
 
        'Datei einlesen
        Configuration.SaveXMLClientConfig()
        End
 
    End Sub