Footer und Buttons verankert - frmNIVerknuepfungen

The `.gitignore` file was updated to include the `/.vs` directory.
This ensures that temporary and user-specific files generated
by Visual Studio are ignored by Git and not tracked in the
repository, reducing unnecessary clutter in version control.

.gitignore

@@ -164,3 +164,4 @@ $RECYCLE.BIN/
 /NIService/.vs/NIService.csproj.dtbcache.json
 /.vs/ToolCollection/v17/DocumentLayout.json
 /.vs/ToolCollection/v17/DocumentLayout.backup.json
+/.vs

ToolCollection/frmDIHauptseite.vb

@@ -60,6 +60,8 @@ Public Class frmDIHauptseite
     Private CriticalErrorInBackgroundWorker As Boolean = False
     Private manProfile As String
 
+    Private FehlerProfileListe As New List(Of String)
+    Private FehlerMsgBoxVisible As Boolean = False
 
     Private Alles_OK As Boolean = True
 
@@ -268,7 +270,7 @@ Public Class frmDIHauptseite
 #End Region
 
 #Region "*** DoWork: während der BackgroundWorker aktiv ist ***"
-    Private Sub threadDateiimport_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) 'Handles threadDateiimport.DoWork
+    Private Sub threadDateiimport_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
         Dim _TimeStart As Date
         Dim _TimeEnd As Date
         Try
@@ -283,9 +285,11 @@ Public Class frmDIHauptseite
             _TimeStart = Now
             ClassLoggerDI.Add(" Intervall: " & Me.numIntervallDurchlauf.Value, False)
             ClassLoggerDI.Add("======================================================================", False)
+
+            ' Liste für fehlerhafte Profile zurücksetzen
+            FehlerProfileListe.Clear()
+
             If _windream.Init Then
-
-
                 If Manuell = True Then
                     ClassLoggerDI.Add(">> Manueller Durchlauf", False)
                     ClassLoggerDI.Add("Profilname: " & manProfile, False)
@@ -298,42 +302,51 @@ Public Class frmDIHauptseite
                     '1. ###### Zählen der Files
                     Gesamtfiles = 0
                     Dim files_Durchlauf As ReadOnlyCollection(Of String)
-                    For Each item As ClassDIProfil In ClassDIProfile.Profile
 
+                    For Each item As ClassDIProfil In ClassDIProfile.Profile
                         Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)
 
                         'Nur die files der Aktiven Profile zählen
                         If CBool(selectedProfile.Aktiv) = True Then
-                            If Me.selectedProfile.Subdirectories = True Then
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-                            Else
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-                            End If
-                            'files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-                            Gesamtfiles += files_Durchlauf.Count
+                            Try
+                                If Me.selectedProfile.Subdirectories = True Then
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+                                Else
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                                End If
+                                Gesamtfiles += files_Durchlauf.Count
+                            Catch ex As Exception
+                                ' Profil zur Fehlerliste hinzufügen
+                                FehlerProfileListe.Add(item.OriginalProfilname)
+                                ClassLoggerDI.Add($"## FEHLER beim Zugriff auf Quellordner für Profil '{item.OriginalProfilname}': {ex.Message}", True)
+                            End Try
                         End If
-
-                        'MsgBox(files_Durchlauf.Count, MsgBoxStyle.Information, item.OriginalProfilname)
                     Next
+
                     ClassLoggerDI.Add("Gesamtanzahl der zu importierenden Dateien: " & Gesamtfiles, False)
+
                     If Gesamtfiles > 0 Then
                         '2. Jetzt das Durchlaufen jedes Profiles
                         For Each item As ClassDIProfil In ClassDIProfile.Profile
                             Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)
                             ClassLoggerDI.Add("Profilname: " & selectedProfile.Profilname, False)
+
                             ' Überprüfen ob Profil aktiv oder inaktiv
                             If CBool(selectedProfile.Aktiv) = False Then
                                 ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " ist inaktiv geschaltet", False)
                                 ClassLoggerDI.Add("", False)
+                            ElseIf FehlerProfileListe.Contains(item.OriginalProfilname) Then
+                                ' Profil überspringen, wenn es bereits als fehlerhaft markiert wurde
+                                ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " wird übersprungen (fehlerhafter Pfad)", False)
+                                ClassLoggerDI.Add("", False)
                             Else
                                 ' den Durchlaufszeitpunkt speichern
                                 selectedProfile.LastRun = Now
                                 selectedProfile.Save(False)
-                                'Und nun das PRofil durchlaufen
+                                'Und nun das Profil durchlaufen
                                 ClassLoggerDI.Add("- Start des Profildurchlaufes ", False)
                                 Profil_Durchlauf()
                             End If
-
                         Next
                     End If
                 End If
@@ -342,10 +355,9 @@ Public Class frmDIHauptseite
             End If
             '###
         Catch ex As Exception
-            '    'MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei threadDateiimport_DoWork:")
             ClassLoggerDI.Add(" ## Fehler bei thread_DI_DoWork: " & ex.Message, False)
-            '    Resume Next
         End Try
+
         _TimeEnd = Now
         Dim seconds As Integer = (_TimeEnd - _TimeStart).TotalSeconds
 
@@ -358,8 +370,6 @@ Public Class frmDIHauptseite
         Else
             ClassLoggerDI.Add(" Dauer: " & (seconds / 60).ToString & " Minuten", False)
         End If
-
-
     End Sub
     Public Function func_check_file_use(ByVal filename) As Boolean
         filename = filename.Replace(My.Settings.vWLaufwerk, "\\windream\objects")
@@ -426,11 +436,22 @@ Public Class frmDIHauptseite
         Dim oFileAusschlussList As New ArrayList
         'Variable für das "Letzte Subdirectory"
         Dim oLastFolderinFiles As String = ""
-        If Me.selectedProfile.Subdirectories = True Then
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-        Else
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-        End If
+
+        Try
+            If Me.selectedProfile.Subdirectories = True Then
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+            Else
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+            End If
+        Catch ex As Exception
+            ' Profil zur Fehlerliste hinzufügen, falls noch nicht vorhanden
+            If Not FehlerProfileListe.Contains(Me.selectedProfile.OriginalProfilname) Then
+                FehlerProfileListe.Add(Me.selectedProfile.OriginalProfilname)
+            End If
+            ClassLoggerDI.Add($"## FEHLER beim Zugriff auf Quellordner für Profil '{Me.selectedProfile.OriginalProfilname}': {ex.Message}", True)
+            Exit Sub
+        End Try
+
         Dim oError As Boolean = False
         Dim DT_TBTC_DI_REGEX_MATCH As DataTable
         Try
@@ -872,9 +893,7 @@ Public Class frmDIHauptseite
 #End Region
 
 #Region "*** BackgroundWorker wurde beendet ***"
-    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
-        ' This event fires when the DoWork event completes
-
+    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
         Try
             Dim result As String = ""
 
@@ -884,19 +903,40 @@ Public Class frmDIHauptseite
                 MsgBox("Beim Dateiimport ist ein Fehler aufgetreten. Der Vorgang wurde abgebrochen." & vbNewLine & vbNewLine & "Dateiimport: Fehlernachricht:" & vbNewLine & e.Error.Message, MsgBoxStyle.Exclamation, "Vorgang auf Grund eines Fehlers abgebrochen")
             Else
                 Me.progressImport.Value = 100
-                'MsgBox("Der Dateiimport für das Profil '" & Me.cmbProfilauswahl.SelectedItem & "' wurde erfolgreich durchgeführt.", MsgBoxStyle.Information, "Dateiimport: Vorgang erfolgreich beendet")
-            End If
 
-            ''MsgBox(filenameQuelle.Substring(0, filenameQuelle.LastIndexOf("\")))
-            'If Me.selectedProfile.VerzeichnisLöschen Then
-            '    Try
-            '        If Me.txtQuellordner.Text <> "" Then
-            '             My.Computer.FileSystem.DeleteDirectory(Me.txtQuellordner.Text, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
-            '        End If
-            '    Catch ex As Exception
-            '        MsgBox("Der Vorgang wurde abgeschlossen. Das Quellverzeichnis konnte jedoch nicht gelöscht werden, da sich in dem Ordner noch Dateien/Verzeichnisse befinden.", MsgBoxStyle.Information, "Vorgang beendet:")
-            '    End Try
-            'End If
+                ' Fehlermeldung für fehlerhafte Profile anzeigen
+                ' NUR wenn keine MessageBox bereits angezeigt wird
+                If FehlerProfileListe.Count > 0 AndAlso Not FehlerMsgBoxVisible Then
+                    ' Flag setzen BEVOR die MessageBox angezeigt wird
+                    FehlerMsgBoxVisible = True
+
+                    Dim fehlerMessage As New System.Text.StringBuilder()
+                    fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:")
+                    fehlerMessage.AppendLine()
+
+                    For Each profilname As String In FehlerProfileListe
+                        fehlerMessage.AppendLine("  • " & profilname)
+                    Next
+
+                    fehlerMessage.AppendLine()
+                    fehlerMessage.AppendLine("Bitte kontrollieren Sie die hinterlegten Quell- und Zielpfade,")
+                    fehlerMessage.AppendLine("sowie die Zugriffsberechtigungen!")
+
+                    ' MessageBox anzeigen (blockiert bis Benutzer OK klickt)
+                    MsgBox(fehlerMessage.ToString(), MsgBoxStyle.Exclamation, "Fehlerhafte Profile erkannt")
+
+                    ' Flag zurücksetzen NACHDEM die MessageBox geschlossen wurde
+                    FehlerMsgBoxVisible = False
+
+                    ' Fehler auch im Log vermerken
+                    ClassLoggerDI.Add("======================================================================", False)
+                    ClassLoggerDI.Add(" FEHLERHAFTE PROFILE: " & FehlerProfileListe.Count, True)
+                    For Each profilname As String In FehlerProfileListe
+                        ClassLoggerDI.Add(" - " & profilname, True)
+                    Next
+                    ClassLoggerDI.Add("======================================================================", False)
+                End If
+            End If
 
             ' den ersten Knoten öffnen und direkt wieder schließen, damit der letzte Knoten korrekt angezeigt wird
             '    -> sonst wird das letzte Element nicht richtig (nur zur Hälfte) angezeigt

ToolCollection/frmNIProfileigenschaften.Designer.vb

@@ -24,15 +24,15 @@ Partial Class frmNIProfileigenschaften
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften))
-        Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
-        Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
-        Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
-        Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode10, TreeNode11, TreeNode12})
-        Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode13})
-        Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode14})
-        Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode15})
-        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode16})
-        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode17})
+        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
+        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
+        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
+        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3})
+        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode4})
+        Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode5})
+        Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6})
+        Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7})
+        Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode8})
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
         Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
         Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
@@ -557,14 +557,15 @@ Partial Class frmNIProfileigenschaften
         '
         'btnVerknüpfungen
         '
-        Me.btnVerknüpfungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnVerknüpfungen.Location = New System.Drawing.Point(746, 26)
+        Me.btnVerknüpfungen.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.btnVerknüpfungen.Image = Global.ToolCollection.My.Resources.Resources.link
+        Me.btnVerknüpfungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnVerknüpfungen.Location = New System.Drawing.Point(791, 30)
         Me.btnVerknüpfungen.Name = "btnVerknüpfungen"
-        Me.btnVerknüpfungen.Size = New System.Drawing.Size(80, 23)
+        Me.btnVerknüpfungen.Size = New System.Drawing.Size(169, 28)
         Me.btnVerknüpfungen.TabIndex = 49
-        Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten ..."
+        Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten"
+        Me.btnVerknüpfungen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnVerknüpfungen.UseVisualStyleBackColor = True
         Me.btnVerknüpfungen.Visible = False
         '
@@ -733,10 +734,11 @@ Partial Class frmNIProfileigenschaften
         '
         'lblSave
         '
+        Me.lblSave.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.lblSave.AutoSize = True
         Me.lblSave.BackColor = System.Drawing.Color.Yellow
         Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSave.Location = New System.Drawing.Point(656, 71)
+        Me.lblSave.Location = New System.Drawing.Point(699, 76)
         Me.lblSave.Name = "lblSave"
         Me.lblSave.Size = New System.Drawing.Size(261, 17)
         Me.lblSave.TabIndex = 76
@@ -771,7 +773,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabControl1.Location = New System.Drawing.Point(3, 222)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(894, 481)
+        Me.TabControl1.Size = New System.Drawing.Size(978, 491)
         Me.TabControl1.TabIndex = 78
         '
         'TabPage1
@@ -784,7 +786,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(886, 455)
+        Me.TabPage1.Size = New System.Drawing.Size(970, 465)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Typ und Quelle"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -805,7 +807,7 @@ Partial Class frmNIProfileigenschaften
         Me.grbxLDAP.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.grbxLDAP.Location = New System.Drawing.Point(407, 210)
         Me.grbxLDAP.Name = "grbxLDAP"
-        Me.grbxLDAP.Size = New System.Drawing.Size(417, 215)
+        Me.grbxLDAP.Size = New System.Drawing.Size(501, 225)
         Me.grbxLDAP.TabIndex = 79
         Me.grbxLDAP.TabStop = False
         Me.grbxLDAP.Text = "Indexierung gegen Active Directory:"
@@ -907,7 +909,7 @@ Partial Class frmNIProfileigenschaften
         Me.grbxVolltext.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.grbxVolltext.Location = New System.Drawing.Point(568, 18)
         Me.grbxVolltext.Name = "grbxVolltext"
-        Me.grbxVolltext.Size = New System.Drawing.Size(301, 201)
+        Me.grbxVolltext.Size = New System.Drawing.Size(385, 211)
         Me.grbxVolltext.TabIndex = 78
         Me.grbxVolltext.TabStop = False
         Me.grbxVolltext.Text = "Indexierung gegen den Volltext"
@@ -960,7 +962,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(977, 455)
+        Me.TabPage2.Size = New System.Drawing.Size(958, 455)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Kennzeichnung und Active Directory"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -996,7 +998,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(977, 455)
+        Me.TabPage3.Size = New System.Drawing.Size(958, 455)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
         Me.TabPage3.UseVisualStyleBackColor = True
@@ -1283,7 +1285,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage4.Location = New System.Drawing.Point(4, 22)
         Me.TabPage4.Name = "TabPage4"
         Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage4.Size = New System.Drawing.Size(977, 455)
+        Me.TabPage4.Size = New System.Drawing.Size(958, 455)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
         Me.TabPage4.UseVisualStyleBackColor = True
@@ -1323,31 +1325,31 @@ Partial Class frmNIProfileigenschaften
         Me.TreeViewOrdnerVererbung.ImageList = Me.ImageList1
         Me.TreeViewOrdnerVererbung.Location = New System.Drawing.Point(464, 72)
         Me.TreeViewOrdnerVererbung.Name = "TreeViewOrdnerVererbung"
-        TreeNode10.ImageKey = "page.png"
-        TreeNode10.Name = "Knoten3"
-        TreeNode10.SelectedImageIndex = 1
-        TreeNode10.Text = "Datei 1"
-        TreeNode11.ImageKey = "page.png"
-        TreeNode11.Name = "Knoten4"
-        TreeNode11.SelectedImageIndex = 1
-        TreeNode11.Text = "Datei 2"
-        TreeNode12.ImageKey = "page.png"
-        TreeNode12.Name = "Knoten5"
-        TreeNode12.SelectedImageIndex = 1
-        TreeNode12.Text = "Datei 3"
-        TreeNode13.Name = "Knoten4"
-        TreeNode13.Text = "Parent"
-        TreeNode14.Name = "Knoten3"
-        TreeNode14.Text = "-1"
-        TreeNode15.Name = "Knoten2"
-        TreeNode15.Text = "-2"
-        TreeNode16.Name = "Knoten5"
-        TreeNode16.Text = "-3"
-        TreeNode17.Name = "Knoten1"
-        TreeNode17.Text = "-4"
-        TreeNode18.Name = "Knoten0"
-        TreeNode18.Text = "Windream-/W-Laufwerk"
-        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode18})
+        TreeNode1.ImageKey = "page.png"
+        TreeNode1.Name = "Knoten3"
+        TreeNode1.SelectedImageIndex = 1
+        TreeNode1.Text = "Datei 1"
+        TreeNode2.ImageKey = "page.png"
+        TreeNode2.Name = "Knoten4"
+        TreeNode2.SelectedImageIndex = 1
+        TreeNode2.Text = "Datei 2"
+        TreeNode3.ImageKey = "page.png"
+        TreeNode3.Name = "Knoten5"
+        TreeNode3.SelectedImageIndex = 1
+        TreeNode3.Text = "Datei 3"
+        TreeNode4.Name = "Knoten4"
+        TreeNode4.Text = "Parent"
+        TreeNode5.Name = "Knoten3"
+        TreeNode5.Text = "-1"
+        TreeNode6.Name = "Knoten2"
+        TreeNode6.Text = "-2"
+        TreeNode7.Name = "Knoten5"
+        TreeNode7.Text = "-3"
+        TreeNode8.Name = "Knoten1"
+        TreeNode8.Text = "-4"
+        TreeNode9.Name = "Knoten0"
+        TreeNode9.Text = "Windream-/W-Laufwerk"
+        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode9})
         Me.TreeViewOrdnerVererbung.SelectedImageIndex = 0
         Me.TreeViewOrdnerVererbung.Size = New System.Drawing.Size(220, 157)
         Me.TreeViewOrdnerVererbung.TabIndex = 59
@@ -1449,16 +1451,17 @@ Partial Class frmNIProfileigenschaften
         Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
         Me.pnlProfileigenschaften.Controls.Add(Me.chkbxAktiv)
         Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
+        Me.pnlProfileigenschaften.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlProfileigenschaften.Location = New System.Drawing.Point(0, 22)
         Me.pnlProfileigenschaften.Name = "pnlProfileigenschaften"
-        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(900, 706)
+        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(984, 716)
         Me.pnlProfileigenschaften.TabIndex = 81
         '
         'frmNIProfileigenschaften
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(984, 711)
+        Me.ClientSize = New System.Drawing.Size(984, 738)
         Me.Controls.Add(Me.pnlProfileigenschaften)
         Me.Controls.Add(Me.StatusStrip1)
         Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIProfileigenschaften", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))

ToolCollection/frmNIProfileigenschaften.resx

@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
-        CQAAAk1TRnQBSQFMAgEBAgEAAbgBAAG4AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

ToolCollection/frmNIVerknuepfungen.Designer.vb

@@ -1908,11 +1908,12 @@ Partial Class frmNIVerknuepfungen
         '
         'pnlFooter
         '
+        Me.pnlFooter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pnlFooter.BackColor = System.Drawing.Color.Transparent
         Me.pnlFooter.Controls.Add(Me.btnSaveAllAndClose)
         Me.pnlFooter.Controls.Add(Me.btnCancelAllAndClose)
         Me.pnlFooter.Controls.Add(Me.btnSaveAll)
-        Me.pnlFooter.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlFooter.Location = New System.Drawing.Point(0, 250)
         Me.pnlFooter.Name = "pnlFooter"
         Me.pnlFooter.Size = New System.Drawing.Size(1265, 44)
@@ -1920,6 +1921,7 @@ Partial Class frmNIVerknuepfungen
         '
         'btnSaveAllAndClose
         '
+        Me.btnSaveAllAndClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSaveAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnSaveAllAndClose.DialogResult = System.Windows.Forms.DialogResult.OK
         Me.btnSaveAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1932,6 +1934,7 @@ Partial Class frmNIVerknuepfungen
         '
         'btnCancelAllAndClose
         '
+        Me.btnCancelAllAndClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnCancelAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnCancelAllAndClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
         Me.btnCancelAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1944,6 +1947,7 @@ Partial Class frmNIVerknuepfungen
         '
         'btnSaveAll
         '
+        Me.btnSaveAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSaveAll.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnSaveAll.Enabled = False
         Me.btnSaveAll.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

ToolCollection/frmStart.Designer.vb

@@ -425,7 +425,7 @@ Partial Class frmStart
         Me.niToolcollection.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
         Me.niToolcollection.ContextMenuStrip = Me.ContextMenuStrip1
         Me.niToolcollection.Icon = CType(resources.GetObject("niToolcollection.Icon"), System.Drawing.Icon)
-        Me.niToolcollection.Text = "Tool Collection für windream"
+        Me.niToolcollection.Text = $"ToolCollection - {My.Settings.vInstanceName}"
         '
         'ContextMenuStrip1
         '
@@ -474,7 +474,7 @@ Partial Class frmStart
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.IsMdiContainer = True
         Me.Name = "frmStart"
-        Me.Text = "Tool Collection für windream"
+        Me.Text = $"ToolCollection - {My.Settings.vInstanceName}"
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         Me.menHauptmenü.ResumeLayout(False)

ToolCollection/frmUebersicht.Designer.vb

@@ -249,7 +249,7 @@ Partial Class frmUebersicht
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.MainMenuStrip = Me.MenuStrip1
         Me.Name = "frmUebersicht"
-        Me.Text = "Tool Collection für windream - Profil Übersicht (beta)"
+        Me.Text = "ToolCollection - Profil Übersicht (beta)"
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         Me.SplitContainer1.Panel1.ResumeLayout(False)