Kiami_Desktop/Kiami_Desktop/Form2.vb

Public Class Form2
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        savesettings()
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        loadsettings()
    End Sub




    Public Sub savesettings()
        Try
            'Dim oSettings As New Mysettings()
            With oSettings

                .server = TextBox1.Text
                .loginname = TextBox2.Text
                .loginpassword = TextBox3.Text

                Dim objDatei As New System.IO.FileStream("settings.xml", IO.FileMode.Create)
                Dim objSerializer As System.Xml.Serialization.XmlSerializer
                objSerializer = New System.Xml.Serialization.XmlSerializer(oSettings.GetType)
                objSerializer.Serialize(objDatei, oSettings)
                objDatei.Close()
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub


    Public Sub loadsettings()
        If System.IO.File.Exists("settings.xml") Then

            Dim objSerializer As System.Xml.Serialization.XmlSerializer
            Dim objStream As System.IO.FileStream
            'Dim oSettings As Mysettings
            objStream = New System.IO.FileStream("settings.xml", IO.FileMode.Open)
            objSerializer = New System.Xml.Serialization.XmlSerializer(GetType(Mysettings))
            oSettings = objSerializer.Deserialize(objStream)

            With oSettings
                TextBox1.Text = .server
                TextBox2.Text = .loginname
                TextBox3.Text = .loginpassword
            End With
            objStream.Close()
        End If
    End Sub

    Public Function getSettings() As Mysettings
        getSettings = oSettings
    End Function

End Class

Public Class Mysettings
    Public server As String
    Public loginname As String
    Public loginpassword As String

    'Public Strasse As String
    'Public Plz As String
    'Public Ort As String
    'Public Infopost As String
End Class