ToolCollection/ToolCollection/frmDIProfilEigenschaften.vb

Imports System.Configuration
Imports System.Xml
Imports System.IO
Public Class frmDIProfilEigenschaften
    ' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
    Private selectedProfile As ClassDIProfil
    Dim Formloaded As Boolean = False
    'Zum Speichern der Positionen
    Dim _pos As Integer
    Dim arrProfile(1, 1) As Object
    Dim Prof_Anzahl As Integer

    Public Shared _windream As New ClassWindream_allgemein(CURR_LogConfig)
    Private Shared _Instance As frmDIProfilEigenschaften = Nothing

    Public Shared Function Instance() As frmDIProfilEigenschaften
        If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
            _Instance = New frmDIProfilEigenschaften
        End If
        _Instance.BringToFront()
        Return _Instance
    End Function
    Public Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' alle Profile in die Toolbar-Combobox eintragen
        Me.LoadProfilesInCombobox()

    End Sub
    Public Sub ReDimEx(ByRef MyArray As Object, ByVal iDimX As Integer, ByVal iDimY As Integer)

        Dim MyTempArray As Object
        Dim I As Integer
        Dim J As Integer

        MyTempArray = MyArray

        ReDim MyArray(iDimX, iDimY)

        For I = LBound(MyTempArray, 1) To UBound(MyTempArray, 1)
            For J = LBound(MyTempArray, 2) To UBound(MyTempArray, 2)
                If I <= iDimX And J <= iDimY Then
                    MyArray(I, J) = MyTempArray(I, J)
                End If
            Next J
        Next I
    End Sub
    Private Sub LoadProfilesInCombobox()
        'Schreibt die Profile in die Combobox in der Toolbar.
        'Try
        ClassDIProfile.Init()

        Me.cmbProfilauswahl.DropDownItems.Clear()
        If ClassDIProfile.Profile IsNot Nothing Then
                Dim anz As Integer = 0
                For Each item As ClassDIProfil In ClassDIProfile.Profile
                    Me.cmbProfilauswahl.DropDownItems.Add(item.Profilname)
                    ReDimEx(arrProfile, anz, 1)
                    arrProfile(anz, 0) = item.Profilname
                    arrProfile(anz, 1) = anz
                    anz = anz + 1
                Next
                Prof_Anzahl = anz
                Me.tslblAnzahl.Text = "Anzahl Profile: " & anz
            End If
        'Catch ex As Exception
        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Profile in Auswahlliste:")
        'End Try
    End Sub
    Sub Lade_Profil(ByVal profilname As String)
        ' das ausgewählte Profil in selectedProfile laden
        Me.selectedProfile = ClassDIProfile.getProfilByName(profilname)

        ' wenn das selektierte Profil gefunden wurde
        If Me.selectedProfile IsNot Nothing Then

            ' die Steuerelemente für die Profilinformationen mit den Daten füllen
            Me.txtProfilname.Text = Me.selectedProfile.Profilname
            Me.lblProfil.Text = Me.selectedProfile.Profilname
            If Me.selectedProfile.Dokumenttyp IsNot Nothing Then
                Me.cmbObjekttyp.Items.Clear()
                Me.cmbObjekttyp.ForeColor = Color.Black
                Me.cmbObjekttyp.Items.Add(Me.selectedProfile.Dokumenttyp.aName) ' den Dokumenttyp eintragen
                Me.cmbObjekttyp.SelectedIndex = 0 ' und direkt auswählen
            Else
                Me.cmbObjekttyp.Items.Clear()
                Me.cmbObjekttyp.ForeColor = Color.Red
                Me.cmbObjekttyp.Items.Add(Me.selectedProfile.DokumenttypString)
                Me.cmbObjekttyp.SelectedItem = Me.selectedProfile.DokumenttypString
            End If
            ' 
            Me.txtVerzoegerung.Text = Me.selectedProfile.Verzoegerung
            Me.txtQuellordner.Text = Me.selectedProfile.Quellordner
            Me.chkb_Subdirectories.Checked = Me.selectedProfile.Subdirectories
            If Me.chkb_Subdirectories.Checked Then
                Me.chkUVloeschen.Visible = True
                Me.chkUVloeschen.Checked = Me.selectedProfile.UVVerzeichnisLoeschen
            Else
                Me.chkUVloeschen.Visible = False
            End If
            Me.txtZielordner.Text = Me.selectedProfile.Zielordner
            Select Case Me.selectedProfile.Date_UV.ToString
                Case "True"
                    chkb_DateUV.Checked = True
                    rbUV_Date1.Checked = True
                Case "False"
                    chkb_DateUV.Checked = False
                    txtUV_Date.Text = ""
                Case ""
                    chkb_DateUV.Checked = False
                    txtUV_Date.Text = ""
                Case "YYYY-MM-DD"
                    chkb_DateUV.Checked = True
                    rbUV_Date1.Checked = True
                Case "YYYY-MM"
                    chkb_DateUV.Checked = True
                    rbUV_Date2.Checked = True
                Case "YYYY"
                    chkb_DateUV.Checked = True
                    rbUV_Date3.Checked = True
                Case Else
                    chkb_DateUV.Checked = False
                    txtUV_Date.Text = ""
            End Select
            rbBoxenenablen()

            Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup
            Me.txtBackupordner.Text = Me.selectedProfile.Backupordner
            Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
            Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen

            If CBool(Me.selectedProfile.Aktiv) = True Then
                Me.chkbxAktiv.Checked = True
                Me.chkbxAktiv.BackColor = Color.GreenYellow
            Else
                Me.chkbxAktiv.Checked = False
                Me.chkbxAktiv.BackColor = Color.Transparent
            End If
            Me.txtlastRun.Text = Me.selectedProfile.LastRun
            ' Das Profil auf gespeichert setzen, da ja keine Änderungen am Profil selbst gemacht wurden. Das Profil
            ' hat jedoch zu diesem Zeitpunkt den Status HasChanges(), da der Inhalt der Steuerelemente verändert wurde.
            Me.selectedProfile.setSaved()
        Else
            'Me.selectedProfile.Dokumenttyp
        End If

        ' das Panel mit den Profil-Steuerelementen anzeigen
        Me.pnlProfileigenschaften.Visible = True
        ' den Speichern-Button deaktivieren 
        'Me.btnSpeichern.Enabled = True
        ' den Löschen-Button deaktivieren 
        Me.btnLöschen.Enabled = True

        ' die abhängigen Steuerelemente (de-)aktivieren
        Me.lblImportoptionenBackupOrdner.Enabled = Me.chkImportoptionenBackup.Checked
        Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
        Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
        Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
        'End If
    End Sub
    Sub rbBoxenenablen()
        If txtUV_Date.Text = "" Then
            rbUV_Date1.Enabled = False
            rbUV_Date2.Enabled = False
            rbUV_Date3.Enabled = False
        Else
            rbUV_Date1.Enabled = True
            rbUV_Date2.Enabled = True
            rbUV_Date3.Enabled = True
        End If
    End Sub

    ' ++++++++++++++++++++++++++++++++++++++++++++++ Events ++++++++++++++++++++++++++++++++++++++++++++++

    ' +++ Elemente auf Toolbar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked

        If Me.selectedProfile IsNot Nothing Then
            If e.ClickedItem.Text = Me.selectedProfile.Profilname Then Exit Sub

            If selectedProfile.HasChanges Then
                Me.selectedProfile.Save(True)
            End If
        End If

        '' Wenn Änderungen am Profil vorgenommen wurden, wird gefragt ob das Profil gespeichert werden soll.
        'Dim changeProfile As Boolean = Me.AskToSaveIfNeccessary(False)

        Lade_Profil(e.ClickedItem.Text)
        For i = 0 To arrProfile.GetUpperBound(0)
            If arrProfile(i, 0) = e.ClickedItem.Text Then
                _pos = arrProfile(i, 1)
            End If
        Next

    End Sub

    Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
        ' das Formular zum Erstellen eines neuen Profil öffnen
        frmDIProfilHinzufuegen.ShowDialog()
        'frmLogin_DI.ShowDialog()
        'frmDIProfilHinzufuegen.ShowDialog()
        ' wenn das Formular geschlossen wurde, werden die Profile neu in die Combobox geladen
        Me.LoadProfilesInCombobox()
    End Sub

    Private Sub btnLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLöschen.Click

        ' Fragen ob das Profil wirklich gelöscht werden soll
        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie das Profil '" & Me.selectedProfile.OriginalProfilname & "' löschen möchten?", MsgBoxStyle.YesNo, "Profil löschen")

        ' wenn das Profil gelöscht werden soll
        If result = MsgBoxResult.Yes Then
            ' das Profil löschen
            Dim prof As String = Me.selectedProfile.OriginalProfilname
            If ClassDIProfile.DeleteProfil(Me.selectedProfile.OriginalProfilname) Then
                MsgBox("Das Profil '" & prof & "' wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung:")
                ' Panel mit Profileigenschaften schliessen
                Me.pnlProfileigenschaften.Visible = False
                ' den Speichern-Button deaktivieren 
                Me.btnSpeichern.Enabled = False
                ' den Löschen-Button deaktivieren 
                Me.btnLöschen.Enabled = False
                ' kein Profil als selektiert wählen
                Me.selectedProfile = Nothing

                Me.lblProfil.Text = "Kein Profil gewählt"
                ' die Profile neu in die Combobox laden
                Me.LoadProfilesInCombobox()
            End If
        End If
    End Sub

    Private Sub btnSpeichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpeichern.Click

        Dim originalProfilname As String = Me.selectedProfile.OriginalProfilname

        ' wenn kein Profil gewählt wurde, soll das Event abgebrochen werden
        If Me.selectedProfile Is Nothing Then Exit Sub

        ' wenn Veränderungen am Profil gemacht wurden
        If Me.selectedProfile.HasChanges Then

            If Me.txtProfilname.Text = "" Then
                MsgBox("Es wurde kein Profilname angegeben. Bitte tragen Sie einen in das Feld Profilname ein.", MsgBoxStyle.Information, "Eingabe erwartet")
                Exit Sub
            End If

            ' prüfen ob der Profilname geändert wurde
            If Not Me.selectedProfile.OriginalProfilname = Me.txtProfilname.Text Then
                ' prüfen ob der eingegebene Profilname schon vorhanden ist
                If ClassDIProfile.Profilname_Exists(Me.txtProfilname.Text) Then
                    MsgBox("Der angegebene Profilname existiert bereits. Bitte wählen Sie einen anderen Profilnamen.", MsgBoxStyle.Information, "Ungültige Eingabe")
                    Exit Sub
                Else
                    ' sonst den neuen Profilnamen vorerst einmal ändern
                    Me.selectedProfile.Profilname = Me.txtProfilname.Text
                End If
            End If

            ' prüfen ob bei aktiviertem Backup auch ein Backupordner angegeben wurde
            If Me.chkImportoptionenBackup.Checked And (Me.txtBackupordner.Text = "" Or Not My.Computer.FileSystem.DirectoryExists(Me.txtBackupordner.Text)) Then
                MsgBox("Wenn das Erstellen von Sicherheitskopien aktiviert ist, dann muss auch ein Verzeichnis angegeben werden, in dem die Sicherheitskopien abgelegt werden.", MsgBoxStyle.Information, "Eingabe erwartet")
                Exit Sub
            End If

            ' die Änderungen speichern
            If Me.selectedProfile.Save(True) = True Then    ' wenn das Speichern erfolgreich war
                ' den Speichern-Button deaktivieren 
                Me.btnSpeichern.Enabled = False
                ' die Profile neu in die Combobox der Toolbar laden (für den Fall das Profilname geändert wurde)
                Me.LoadProfilesInCombobox()
            Else
                MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils")

                Me.txtProfilname.Text = originalProfilname
                Me.txtQuellordner.Text = Me.selectedProfile.Quellordner
                Me.txtZielordner.Text = Me.selectedProfile.Zielordner
                Me.txtBackupordner.Text = Me.selectedProfile.Backupordner
                Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
                Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
                Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup
            End If

        End If
    End Sub
    Private Function Check_Aenderung()
        Try
            'Wenn Änderungen am Profil vorenommen wurden, wid gefragt, ob die Änderugnen gespeicehrt werden sollen!
            If Me.selectedProfile IsNot Nothing Then
                ' wenn es Änderungen am Profil gibt
                If Me.selectedProfile.HasChanges Then
                    ' klären wie mit den veränderten Informationen verfahren werden soll
                    Dim result As MsgBoxResult = MsgBox("Möchten Sie Ihre Änderungen vor dem Schließen speichern?", MsgBoxStyle.YesNoCancel, "Änderungen übernehmen")

                    If result = MsgBoxResult.Yes Then           ' wenn die Daten gespeichert werden sollen

                        ' die Änderungen speichern
                        If Me.selectedProfile.Save(True) = True Then    ' wenn das Speichern erfolgreich war

                            ' die Profile neu in die Combobox der Toolbar laden (für den Fall das Profilname geändert wurde)
                            Me.LoadProfilesInCombobox()

                            ' die Profileigenschaften auf diesem Panel ausblenden
                            Me.pnlProfileigenschaften.Visible = False
                            ' den Speichern-Button deaktivieren 
                            Me.btnSpeichern.Enabled = False
                            ' den Löschen-Button deaktivieren 
                            Me.btnLöschen.Enabled = False
                            ' kein selectedProfile wählen
                            Me.selectedProfile = Nothing
                            Return "Gespeichert"
                        End If

                    ElseIf result = MsgBoxResult.No Then        ' wenn die Daten verworfen werden sollen

                        ' wenn ein Profil selektiert ist: den originalen Profilnamen setzen
                        If Me.selectedProfile IsNot Nothing Then Me.selectedProfile.SetBackToOriginal()

                        ' die Profileigenschaften auf diesem Panel ausblenden
                        Me.pnlProfileigenschaften.Visible = False
                        ' den Speichern-Button deaktivieren 
                        Me.btnSpeichern.Enabled = False
                        ' den Löschen-Button deaktivieren 
                        Me.btnLöschen.Enabled = False
                        ' kein selectedProfile wählen
                        Me.selectedProfile = Nothing
                        Return "Nein"
                    ElseIf result = MsgBoxResult.Cancel Then    ' wenn die Aktion abgebrochen werden soll
                        ' die nachfolgende Aktion (das Schließen aller Fenster und das Öffnen des neuen) wird verhindert
                        Return "Abbruch"

                    End If

                Else  ' wenn keine Änderungen gemacht wurden
                    Return "keineAenderung"
                    ' wenn ein Profil selektiert ist: den originalen Profilnamen setzen
                    If Me.selectedProfile IsNot Nothing Then Me.selectedProfile.SetBackToOriginal()

                    ' die Profileigenschaften auf diesem Panel ausblenden
                    Me.pnlProfileigenschaften.Visible = False
                    ' den Speichern-Button deaktivieren 
                    Me.btnSpeichern.Enabled = False
                    ' den Löschen-Button deaktivieren 
                    Me.btnLöschen.Enabled = False

                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Überprüfen auf Änderungen an Profilen:")
        End Try

    End Function
    ' +++ Anzeige-Events +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    Private Sub frmDIProfilEigenschaften_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Check_Aenderung() = "Abbruch" Then
            e.Cancel = True
        End If
    End Sub

    Private Sub frmDIProfilEigenschaften_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Formloaded = True
    End Sub

    Private Sub frmDIProfilEigenschaften_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        If Formloaded = True Then
            If Me.Size.Height > 300 Then
                ' alle Profile in die Toolbar-Combobox eintragen
                Me.LoadProfilesInCombobox()
            Else
                ' Wenn Änderungen am Profil vorgenommen wurden, wird gefragt ob das Profil gespeichert werden soll.
                Check_Aenderung()
            End If
        End If
    End Sub
    ' +++ Buttons für Verzeichnis-Textboxen +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    Private Sub btnQuellordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellordner.Click
        Me.dlgQuellordner.SelectedPath = Me.txtQuellordner.Text

        If Me.dlgQuellordner.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.txtQuellordner.Text = Me.dlgQuellordner.SelectedPath
        End If
    End Sub

    Private Sub btnZielordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZielordner.Click

        ' den zuletzt gewählten Ordner im Folder-Dialog auswählen
        Me.dlgZielordner.SelectedPath = Me.txtZielordner.Text

        ' wenn ein Ordner ausgewählt wurde
        If Me.dlgZielordner.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim ZielTemp = Me.dlgZielordner.SelectedPath

            ' wenn sich der ausgewählte Ordner auf dem windream-Laufwerk befindet
            If ZielTemp.Substring(0, 3) = My.Settings.vWLaufwerk & ":" & "\" Then '_windream.GetWindreamDriveLetter()
                ' den neuen Ordner eintragen
                Me.txtZielordner.Text = ZielTemp
            Else
                ' sonst eine entsprechende Fehlermeldung ausgeben
                MsgBox("Das Zielverzeichnis muss sich auf dem windream-Laufwerk befinden.", MsgBoxStyle.Exclamation, "Ungültiges Zielverzeichnis")
            End If
        End If
    End Sub

    Private Sub btnBackupordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackupordner.Click

        ' den zuletzt gewählten Ordner im Folder-Dialog auswählen
        Me.dlgBackupordner.SelectedPath = Me.txtBackupordner.Text

        ' wenn ein Ordner ausgewählt wurde
        If Me.dlgBackupordner.ShowDialog = Windows.Forms.DialogResult.OK Then
            ' den neuen Ordner eintragen
            Me.txtBackupordner.Text = Me.dlgBackupordner.SelectedPath
        End If
    End Sub




    ' +++ Änderungen an Profil-Steuerelementen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    ' +++   Die Änderungen an Steuerelementen veranlassen eine Zuweisung an die entsprechenden Properties. Dadurch erhält
    ' +++   das Profil automatisch den Status HasChanges. Die Änderungen werden selbstverständlich nur durchgeführt, wenn 
    ' +++   ein Profil geladen wurde.

    Private Sub txtProfilname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtProfilname.TextChanged
        If Me.selectedProfile IsNot Nothing Then
            Me.selectedProfile.Profilname = Me.txtProfilname.Text
            CURRENT_PROFILENAME = Me.selectedProfile.Profilname
            If Not Me.txtProfilname.Text = Me.selectedProfile.OriginalProfilname Then
                Me.btnSpeichern.Enabled = True
            Else
                Me.btnSpeichern.Enabled = False
            End If
        End If
    End Sub

    Private Sub txtQuellordner_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtQuellordner.TextChanged
        If Me.selectedProfile IsNot Nothing Then
            If Directory.Exists(txtQuellordner.Text) Then
                Me.selectedProfile.Quellordner = Me.txtQuellordner.Text
                If Not Me.txtQuellordner.Text = Me.selectedProfile.OriginalQuellordner Then
                    Me.btnSpeichern.Enabled = True
                Else
                    Me.btnSpeichern.Enabled = False
                End If
            Else
                MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
            End If

        End If
    End Sub

    Private Sub txtZielordner_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtZielordner.TextChanged
        If Me.selectedProfile IsNot Nothing Then
            If Directory.Exists(txtZielordner.Text) Then
                Me.selectedProfile.Zielordner = Me.txtZielordner.Text
                If Not Me.txtZielordner.Text = Me.selectedProfile.OriginalZielordner Then
                    Me.btnSpeichern.Enabled = True
                Else
                    Me.btnSpeichern.Enabled = False
                End If
            Else
                MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
            End If

        End If
    End Sub

    Private Sub chkImportoptionenBackup_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkImportoptionenBackup.CheckedChanged
        Try
            If Me.selectedProfile IsNot Nothing Then
                Me.selectedProfile.Backup = Me.chkImportoptionenBackup.Checked

                ' abhängige Steuerelemente (de-)aktivieren
                Me.lblImportoptionenBackupOrdner.Enabled = Me.chkImportoptionenBackup.Checked
                Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
                Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
                Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
                If Not Me.chkImportoptionenBackup.Checked = Me.selectedProfile.OriginalBackup Then
                    Me.btnSpeichern.Enabled = True
                Else
                    Me.btnSpeichern.Enabled = False
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei chkImportoptionenBackup.CheckedChanged:")
        End Try

    End Sub

    Private Sub txtBackupordner_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBackupordner.TextChanged
        If Me.selectedProfile IsNot Nothing Then
            If Directory.Exists(txtBackupordner.Text) Then
                Me.selectedProfile.Backupordner = Me.txtBackupordner.Text
                If Not Me.txtBackupordner.Text = Me.selectedProfile.OriginalBackupordner Then
                    Me.btnSpeichern.Enabled = True
                Else
                    Me.btnSpeichern.Enabled = False
                End If
            Else
                MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
            End If

        End If
    End Sub

    Private Sub chkDateienUeberschreiben_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDateienUeberschreiben.CheckedChanged
        If Me.selectedProfile IsNot Nothing Then
            Me.selectedProfile.Overwrite = Me.chkDateienUeberschreiben.Checked
            If Not Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.OriginalOverwrite Then
                Me.btnSpeichern.Enabled = True
            Else
                Me.btnSpeichern.Enabled = False
            End If
        End If
    End Sub

    Private Sub chkDateienLoeschen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDateienLoeschen.CheckedChanged
        If Me.selectedProfile IsNot Nothing Then
            Me.selectedProfile.DateiLöschen = Me.chkDateienLoeschen.Checked
            If Not Me.chkDateienLoeschen.Checked = Me.selectedProfile.OriginalDateiLöschen Then
                Me.btnSpeichern.Enabled = True
            Else
                Me.btnSpeichern.Enabled = False
            End If
        End If
    End Sub

    Private Sub btnRegeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegeln.Click

        'Dim regelverwaltung As Control = New pnlDateiimportRegelverwaltung()
        ClassDIProfile.aktivesProfil = Me.selectedProfile
        ClassDIProfile.aktivesProfilAusProfileigenschaften = True
        Cursor = Cursors.WaitCursor
        Dim frm As New frmDIRegelverwaltung
        frm = frmDIRegelverwaltung.Instance
        frm.MdiParent = frmStart
        frm.Show()
        frm.BringToFront()
        Cursor = Cursors.Default
        'Dim ctnl() As Control = Me.ParentForm.Controls.Find("pnlDateiimportRegelverwaltung", False)

        'ctnl(0).Visible = True

    End Sub

    Private Sub chkb_DateUV_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkb_DateUV.CheckedChanged
        If chkb_DateUV.Checked Then
            Dim variante As String = ""
            Select Case selectedProfile.Date_UV
                Case "YYYY-MM-DD"
                    rbUV_Date1.Checked = True
                    variante = "YYYY-MM-DD"
                Case "YYYY-MM"
                    rbUV_Date2.Checked = True
                    variante = "YYYY-MM"
                Case "YYYY"
                    rbUV_Date3.Checked = True
                    variante = "YYYY"
                Case "False"
                    chkb_DateUV.Checked = False
                    variante = ""
                Case "True"
                    rbUV_Date1.Checked = True
                    variante = "YYYY-MM-DD"
                Case Else
                    rbUV_Date1.Checked = True
                    variante = "YYYY-MM-DD"
            End Select
            txtUV_Date.Text = variante
        Else
            txtUV_Date.Text = ""
        End If
        rbBoxenenablen()
        'If Not Me.txtUV_Date.Text = Me.selectedProfile.OriginalDate_UV Then
        '    Me.btnSpeichern.Enabled = True
        'Else
        '    Me.btnSpeichern.Enabled = False
        'End If
    End Sub

    Private Sub chkbxAktiv_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkbxAktiv.CheckedChanged
        If Me.selectedProfile IsNot Nothing Then
            Me.selectedProfile.Aktiv = Me.chkbxAktiv.Checked
            If Not Me.selectedProfile.Aktiv = Me.selectedProfile.OriginalAktiv Then
                Me.btnSpeichern.Enabled = True
            Else
                Me.btnSpeichern.Enabled = False
            End If
        End If
        If Me.chkbxAktiv.Checked Then
            Me.chkbxAktiv.BackColor = Color.GreenYellow
        Else
            Me.chkbxAktiv.BackColor = Color.Transparent
        End If
    End Sub

    Private Sub txtVerzoegerung_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtVerzoegerung.TextChanged
        If IsNumeric(txtVerzoegerung.Text) Then
            If Me.selectedProfile IsNot Nothing Then
                Me.selectedProfile.Verzoegerung = Me.txtVerzoegerung.Text
                If Not Me.txtVerzoegerung.Text = Me.selectedProfile.OriginalVerzoegerung Then
                    Me.btnSpeichern.Enabled = True
                Else
                    Me.btnSpeichern.Enabled = False
                End If
            End If
        Else
            MsgBox("Hier sind nur Zahlen erlaubt!", MsgBoxStyle.Critical)
            txtVerzoegerung.Text = "500"
        End If
    End Sub

    Private Sub Label6_Click(sender As System.Object, e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub tsbtnFirstProfil_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnfirst.Click
        If Me.selectedProfile IsNot Nothing Then
            If selectedProfile.HasChanges Then
                selectedProfile.Save(True)
            End If
        Else
            'Noch kein Profil geladen also das erste laden
            If arrProfile.GetUpperBound(0) >= 0 Then
                _pos = 0
                Lade_Profil(arrProfile(0, 0))
            End If
            Exit Sub
        End If

        If arrProfile.GetUpperBound(0) >= 0 Then
            Lade_Profil(arrProfile(arrProfile.GetLowerBound(0), 0))
            _pos = arrProfile.GetLowerBound(0)
        End If
    End Sub

    Private Sub tsbtnpreviousProfil_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnprevious.Click
        If Me.selectedProfile IsNot Nothing Then
            If selectedProfile.HasChanges Then
                selectedProfile.Save(True)
            End If
        Else
            'Noch kein Profil geladen also das erste laden
            If arrProfile.GetUpperBound(0) >= 0 Then
                _pos = 0
                Lade_Profil(arrProfile(0, 0))
            End If
            Exit Sub
        End If
        'Eine Position niedriger
        _pos = _pos - 1

        If arrProfile.GetLowerBound(0) <= _pos Then
            For i = 0 To arrProfile.GetUpperBound(0)
                If arrProfile(i, 1) = _pos Then
                    Lade_Profil(arrProfile(i, 0))
                End If
            Next
        Else
            'Erste Position
            _pos = arrProfile.GetLowerBound(0)
            MsgBox("Dies ist das erste Profil", MsgBoxStyle.Information, "Hinweis:")
        End If
    End Sub

    Private Sub tsbtnnextProfil_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnnext.Click
        If Me.selectedProfile IsNot Nothing Then
            If selectedProfile.HasChanges Then
                selectedProfile.Save(True)
            End If
        Else
            'Noh kein Profil geladen also das erste laden
            If arrProfile.GetUpperBound(0) > 0 Then
                _pos = 0
                Lade_Profil(arrProfile(0, 0))
            End If
            Exit Sub
        End If
        'Eine Position höher
        _pos = _pos + 1
        'MsgBox(_pos & vbNewLine & "AnzahL: " & arrProfile.GetUpperBound(0))
        If arrProfile.GetUpperBound(0) >= _pos Then
            For i = 0 To arrProfile.GetUpperBound(0)
                If arrProfile(i, 1) = _pos Then
                    Lade_Profil(arrProfile(i, 0))
                End If
            Next
        Else
            'MsgBox("letztes")
            _pos = arrProfile.GetUpperBound(0)
            MsgBox("Dies ist das letzte Profil", MsgBoxStyle.Information, "Hinweis:")
        End If
    End Sub

    Private Sub tsbtnLastProfil_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnlast.Click
        If Me.selectedProfile IsNot Nothing Then
            If selectedProfile.HasChanges Then
                selectedProfile.Save(True)
            End If
        Else
            'Noch kein Profil geladen also das erste laden
            If arrProfile.GetUpperBound(0) >= 0 Then
                _pos = arrProfile.GetUpperBound(0)
                Lade_Profil(arrProfile(arrProfile.GetUpperBound(0), 0))
            End If
            Exit Sub
        End If

        If arrProfile.GetUpperBound(0) >= 0 Then
            Lade_Profil(arrProfile(arrProfile.GetUpperBound(0), 0))
            _pos = arrProfile.GetUpperBound(0)
        End If
    End Sub

    Private Sub setAppSetting(ByVal name As String, ByVal value As String)
        Dim _folder As New IO.DirectoryInfo(System.IO.Directory.GetCurrentDirectory())
        Dim aryFi1 As IO.FileInfo() = _folder.GetFiles("*.config")
        For Each fi As FileInfo In aryFi1
            If fi.Name.StartsWith("ToolCollection.exe") Then
                Dim xmlDoc As New XmlDocument()
                xmlDoc.PreserveWhitespace = True
                xmlDoc.Load(fi.FullName)
                Dim appSettingNode As XmlNode = xmlDoc.SelectSingleNode("configuration/applicationSettings")
                Dim settingNode As XmlNode = appSettingNode.SelectSingleNode(String.Format("//setting[@name='{0}']", name))
                Dim valueNode As XmlNode = settingNode.SelectSingleNode("value")
                valueNode.InnerText = value
                xmlDoc.Save(fi.FullName)
            End If
        Next

    End Sub

    Private Sub cmbProfilauswahl_ButtonClick(sender As System.Object, e As System.EventArgs) Handles cmbProfilauswahl.ButtonClick

    End Sub

    Private Sub chkb_Subdirectories_CheckedChanged(sender As Object, e As EventArgs) Handles chkb_Subdirectories.CheckedChanged
       Try
            If Me.selectedProfile IsNot Nothing Then
                Me.selectedProfile.Subdirectories = Me.chkb_Subdirectories.Checked
                If Not Me.chkb_Subdirectories.Checked = Me.selectedProfile.OriginalSubdirectories Then
                    Me.btnSpeichern.Enabled = True
                Else
                    Me.btnSpeichern.Enabled = False
                End If
                If chkb_Subdirectories.Checked Then
                    Me.chkUVloeschen.Visible = True
                Else
                    Me.chkUVloeschen.Visible = False
                    Me.chkUVloeschen.Checked = False
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei chkb_Subdirectories.CheckedChanged:")
        End Try
    End Sub

    Private Sub chkUVloeschen_CheckedChanged(sender As Object, e As EventArgs) Handles chkUVloeschen.CheckedChanged
        If Me.selectedProfile IsNot Nothing Then
            Me.selectedProfile.UVVerzeichnisLoeschen = Me.chkUVloeschen.Checked
            If Not Me.chkUVloeschen.Checked = Me.selectedProfile.Original_UVVerzeichnisLoeschen Then
                Me.btnSpeichern.Enabled = True
            Else
                Me.btnSpeichern.Enabled = False
            End If
            If chkUVloeschen.Checked Then
                If chkDateienLoeschen.Checked = False Then
                    chkDateienLoeschen.Checked = True
                End If
            End If
        End If
    End Sub

    Private Sub rbUV_Date2_CheckedChanged(sender As Object, e As EventArgs) Handles rbUV_Date2.CheckedChanged
        If rbUV_Date2.Checked Then
            txtUV_Date.Text = "YYYY-MM"
        End If
    End Sub

    Private Sub rbUV_Date3_CheckedChanged(sender As Object, e As EventArgs) Handles rbUV_Date3.CheckedChanged
        If rbUV_Date3.Checked Then
            txtUV_Date.Text = "YYYY"
        End If
    End Sub
    Private Sub rbUV_Date1_CheckedChanged(sender As Object, e As EventArgs) Handles rbUV_Date1.CheckedChanged
        If rbUV_Date1.Checked Then
            txtUV_Date.Text = "YYYY-MM-DD"
        End If
    End Sub

    Private Sub txtUV_Date_TextChanged(sender As Object, e As EventArgs) Handles txtUV_Date.TextChanged
        If Me.selectedProfile IsNot Nothing Then
            Me.selectedProfile.Date_UV = Me.txtUV_Date.Text
            If Not Me.txtUV_Date.Text = Me.selectedProfile.OriginalDate_UV Then
                Me.btnSpeichern.Enabled = True
            Else
                Me.btnSpeichern.Enabled = False
            End If
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CURRENT_PROFILENAME = "" Then
            MsgBox("Please choose a Profile!", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        frmDIRegex.ShowDialog()
    End Sub
End Class