AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: AppStd:483042a6fb593f2decb2393dcab63d17f409483d
Branches Tags
AppStd:master AppStd:2.9.8-Release
...
compare: AppStd:2.9.8-Release
Branches Tags
AppStd:2.9.8-Release AppStd:master

9 Commits
483042a6fb ... 2.9.8-Rele

Author SHA1 Message Date
OlgunR
a92b685727 Remove NotifyIcon from frmStart and update tray handling 
Removed the NotifyIcon component and all related code/resources from frmStart. Tooltip handling is now performed using niToolcollection instead.
 2026-02-12 14:32:11 +01:00
OlgunR
beb91f6603 Add NotifyIcon to frmStart and update caption logic 
Added NotifyIcon component to frmStart, including icon and tray location in resources. Introduced CaptionForm() to centralize window caption and NotifyIcon tooltip logic, with truncation for long texts. Updated menu item sizes and reorganized status label initialization. Removed interpolated strings from designer properties. Cleaned up designer and resource references for NotifyIcon.
 2026-02-12 14:02:39 +01:00
OlgunR
57e3984c26 Reset manually_cancel flag before profile run 
Changed manually_cancel default to False and explicitly reset it before starting profile runs to prevent unintended early cancellation.
 2026-02-12 14:00:37 +01:00
OlgunR
c6c1ce4e70 Footer und Buttons verankert - frmNIVerknuepfungen 2025-12-04 09:47:25 +01:00
OlgunR
d278659c5f Instanzname in Titelleiste der Form und bei Tray-Icon eingeblendet - frmStart.Designer 2025-12-04 09:29:30 +01:00
OlgunR
0c71f75a0c Flag zur MsgBox bei fehlerhaften DIProfilen - frmDIHauptseite 2025-12-01 10:30:53 +01:00
OlgunR
3bb034439a Fehlerbehandlung bei fehlerhaften Pfaden in DI Profilen: threadDateiimport_DoWork, Profil_Durchlauf, threadDateiimport_RunWorkerCompleted optimiert - frmDIHautpseite 2025-11-27 16:59:27 +01:00
OlgunR
a038af4193 chore: Update .gitignore to exclude Visual Studio .vs directory 
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.
 2025-11-27 09:24:08 +01:00
OlgunR
1ca62e0334 Button NI-Verknüpfungen verwalten optimiert - frmNIProfileigenschaften 2025-11-13 14:02:23 +01:00
12 changed files with 175 additions and 114 deletions
Expand all files Collapse all files

1
.gitignore vendored
View File

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

BIN
.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-wal
View File

Binary file not shown.

BIN
.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-wal
View File

Binary file not shown.

118
ToolCollection/frmDIHauptseite.vb
View File

@@ -60,6 +60,8 @@ Public Class frmDIHauptseite
Private CriticalErrorInBackgroundWorker As Boolean = False Private CriticalErrorInBackgroundWorker As Boolean = False
Private manProfile As String Private manProfile As String
Private FehlerProfileListe As New List(Of String)
Private FehlerMsgBoxVisible As Boolean = False
Private Alles_OK As Boolean = True Private Alles_OK As Boolean = True
@@ -268,7 +270,7 @@ Public Class frmDIHauptseite
#End Region #End Region
#Region "*** DoWork: während der BackgroundWorker aktiv ist ***" #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 _TimeStart As Date
Dim _TimeEnd As Date Dim _TimeEnd As Date
Try Try
@@ -283,9 +285,11 @@ Public Class frmDIHauptseite
_TimeStart = Now _TimeStart = Now
ClassLoggerDI.Add(" Intervall: " & Me.numIntervallDurchlauf.Value, False) ClassLoggerDI.Add(" Intervall: " & Me.numIntervallDurchlauf.Value, False)
ClassLoggerDI.Add("======================================================================", False) ClassLoggerDI.Add("======================================================================", False)
' Liste für fehlerhafte Profile zurücksetzen
FehlerProfileListe.Clear()
If _windream.Init Then If _windream.Init Then
If Manuell = True Then If Manuell = True Then
ClassLoggerDI.Add(">> Manueller Durchlauf", False) ClassLoggerDI.Add(">> Manueller Durchlauf", False)
ClassLoggerDI.Add("Profilname: " & manProfile, False) ClassLoggerDI.Add("Profilname: " & manProfile, False)
@@ -298,42 +302,51 @@ Public Class frmDIHauptseite
'1. ###### Zählen der Files '1. ###### Zählen der Files
Gesamtfiles = 0 Gesamtfiles = 0
Dim files_Durchlauf As ReadOnlyCollection(Of String) 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) Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)
'Nur die files der Aktiven Profile zählen 'Nur die files der Aktiven Profile zählen
If CBool(selectedProfile.Aktiv) = True Then If CBool(selectedProfile.Aktiv) = True Then
If Me.selectedProfile.Subdirectories = True Then Try
files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*") If Me.selectedProfile.Subdirectories = True Then
Else files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*") Else
End If files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
'files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*") End If
Gesamtfiles += files_Durchlauf.Count 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 End If
'MsgBox(files_Durchlauf.Count, MsgBoxStyle.Information, item.OriginalProfilname)
Next Next
ClassLoggerDI.Add("Gesamtanzahl der zu importierenden Dateien: " & Gesamtfiles, False) ClassLoggerDI.Add("Gesamtanzahl der zu importierenden Dateien: " & Gesamtfiles, False)
If Gesamtfiles > 0 Then If Gesamtfiles > 0 Then
'2. Jetzt das Durchlaufen jedes Profiles '2. Jetzt das Durchlaufen jedes Profiles
For Each item As ClassDIProfil In ClassDIProfile.Profile For Each item As ClassDIProfil In ClassDIProfile.Profile
Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname) Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)
ClassLoggerDI.Add("Profilname: " & selectedProfile.Profilname, False) ClassLoggerDI.Add("Profilname: " & selectedProfile.Profilname, False)
' Überprüfen ob Profil aktiv oder inaktiv ' Überprüfen ob Profil aktiv oder inaktiv
If CBool(selectedProfile.Aktiv) = False Then If CBool(selectedProfile.Aktiv) = False Then
ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " ist inaktiv geschaltet", False) ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " ist inaktiv geschaltet", False)
ClassLoggerDI.Add("", 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 Else
' den Durchlaufszeitpunkt speichern ' den Durchlaufszeitpunkt speichern
selectedProfile.LastRun = Now selectedProfile.LastRun = Now
selectedProfile.Save(False) selectedProfile.Save(False)
'Und nun das PRofil durchlaufen 'Und nun das Profil durchlaufen
ClassLoggerDI.Add("- Start des Profildurchlaufes ", False) ClassLoggerDI.Add("- Start des Profildurchlaufes ", False)
Profil_Durchlauf() Profil_Durchlauf()
End If End If
Next Next
End If End If
End If End If
@@ -342,10 +355,9 @@ Public Class frmDIHauptseite
End If End If
'### '###
Catch ex As Exception Catch ex As Exception
' 'MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei threadDateiimport_DoWork:")
ClassLoggerDI.Add(" ## Fehler bei thread_DI_DoWork: " & ex.Message, False) ClassLoggerDI.Add(" ## Fehler bei thread_DI_DoWork: " & ex.Message, False)
' Resume Next
End Try End Try
_TimeEnd = Now _TimeEnd = Now
Dim seconds As Integer = (_TimeEnd - _TimeStart).TotalSeconds Dim seconds As Integer = (_TimeEnd - _TimeStart).TotalSeconds
@@ -358,8 +370,6 @@ Public Class frmDIHauptseite
Else Else
ClassLoggerDI.Add(" Dauer: " & (seconds / 60).ToString & " Minuten", False) ClassLoggerDI.Add(" Dauer: " & (seconds / 60).ToString & " Minuten", False)
End If End If
End Sub End Sub
Public Function func_check_file_use(ByVal filename) As Boolean Public Function func_check_file_use(ByVal filename) As Boolean
filename = filename.Replace(My.Settings.vWLaufwerk, "\\windream\objects") filename = filename.Replace(My.Settings.vWLaufwerk, "\\windream\objects")
@@ -426,11 +436,22 @@ Public Class frmDIHauptseite
Dim oFileAusschlussList As New ArrayList Dim oFileAusschlussList As New ArrayList
'Variable für das "Letzte Subdirectory" 'Variable für das "Letzte Subdirectory"
Dim oLastFolderinFiles As String = "" Dim oLastFolderinFiles As String = ""
If Me.selectedProfile.Subdirectories = True Then
Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*") Try
Else If Me.selectedProfile.Subdirectories = True Then
Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*") Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
End If 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 oError As Boolean = False
Dim DT_TBTC_DI_REGEX_MATCH As DataTable Dim DT_TBTC_DI_REGEX_MATCH As DataTable
Try Try
@@ -872,9 +893,7 @@ Public Class frmDIHauptseite
#End Region #End Region
#Region "*** BackgroundWorker wurde beendet ***" #Region "*** BackgroundWorker wurde beendet ***"
Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
' This event fires when the DoWork event completes
Try Try
Dim result As String = "" 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") 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 Else
Me.progressImport.Value = 100 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("\"))) ' Fehlermeldung für fehlerhafte Profile anzeigen
'If Me.selectedProfile.VerzeichnisLöschen Then ' NUR wenn keine MessageBox bereits angezeigt wird
' Try If FehlerProfileListe.Count > 0 AndAlso Not FehlerMsgBoxVisible Then
' If Me.txtQuellordner.Text <> "" Then ' Flag setzen BEVOR die MessageBox angezeigt wird
' My.Computer.FileSystem.DeleteDirectory(Me.txtQuellordner.Text, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty) FehlerMsgBoxVisible = True
' End If
' Catch ex As Exception Dim fehlerMessage As New System.Text.StringBuilder()
' 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:") fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:")
' End Try fehlerMessage.AppendLine()
'End If
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 ' 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 ' -> sonst wird das letzte Element nicht richtig (nur zur Hälfte) angezeigt

3
ToolCollection/frmNIHauptseite.vb
View File

@@ -29,7 +29,7 @@ Public Class frmNIHauptseite
Private _fulltext As clsNIFulltext Private _fulltext As clsNIFulltext
Private manuallyRun As Boolean = False Private manuallyRun As Boolean = False
Private manually_cancel As Boolean = True Private manually_cancel As Boolean = False
'#### Variablen für das Profil '#### Variablen für das Profil
Private myNIDatatable As DataTable Private myNIDatatable As DataTable
Private myNIArrayIndexe() As String = Nothing ' zum Speichern der Indexe Private myNIArrayIndexe() As String = Nothing ' zum Speichern der Indexe
@@ -794,6 +794,7 @@ Public Class frmNIHauptseite
Me.ProgressBar1.Value = 0 Me.ProgressBar1.Value = 0
Me.Refresh() Me.Refresh()
manually_cancel = False
Me.startProfileDurchlauf() Me.startProfileDurchlauf()
Else Else
_Logger.Warn("Attention: ClassNIProfile.Profile IsNothing") _Logger.Warn("Attention: ClassNIProfile.Profile IsNothing")

103
ToolCollection/frmNIProfileigenschaften.Designer.vb generated
View File

@@ -24,15 +24,15 @@ Partial Class frmNIProfileigenschaften
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften)) 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 TreeNode1 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 TreeNode2 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 TreeNode3 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 TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3})
Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode13}) Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode4})
Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode14}) Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode5})
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode15}) Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6})
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode16}) Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7})
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode17}) 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.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton() Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton() Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
@@ -557,14 +557,15 @@ Partial Class frmNIProfileigenschaften
' '
'btnVerknüpfungen 'btnVerknüpfungen
' '
Me.btnVerknüpfungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.btnVerknüpfungen.Anchor = System.Windows.Forms.AnchorStyles.Right
Or System.Windows.Forms.AnchorStyles.Left) _ Me.btnVerknüpfungen.Image = Global.ToolCollection.My.Resources.Resources.link
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnVerknüpfungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnVerknüpfungen.Location = New System.Drawing.Point(746, 26) Me.btnVerknüpfungen.Location = New System.Drawing.Point(791, 30)
Me.btnVerknüpfungen.Name = "btnVerknüpfungen" 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.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.UseVisualStyleBackColor = True
Me.btnVerknüpfungen.Visible = False Me.btnVerknüpfungen.Visible = False
' '
@@ -733,10 +734,11 @@ Partial Class frmNIProfileigenschaften
' '
'lblSave 'lblSave
' '
Me.lblSave.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.lblSave.AutoSize = True Me.lblSave.AutoSize = True
Me.lblSave.BackColor = System.Drawing.Color.Yellow 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.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.Name = "lblSave"
Me.lblSave.Size = New System.Drawing.Size(261, 17) Me.lblSave.Size = New System.Drawing.Size(261, 17)
Me.lblSave.TabIndex = 76 Me.lblSave.TabIndex = 76
@@ -771,7 +773,7 @@ Partial Class frmNIProfileigenschaften
Me.TabControl1.Location = New System.Drawing.Point(3, 222) Me.TabControl1.Location = New System.Drawing.Point(3, 222)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 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 Me.TabControl1.TabIndex = 78
' '
'TabPage1 'TabPage1
@@ -784,7 +786,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 0
Me.TabPage1.Text = "Typ und Quelle" Me.TabPage1.Text = "Typ und Quelle"
Me.TabPage1.UseVisualStyleBackColor = True 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.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.Location = New System.Drawing.Point(407, 210)
Me.grbxLDAP.Name = "grbxLDAP" 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.TabIndex = 79
Me.grbxLDAP.TabStop = False Me.grbxLDAP.TabStop = False
Me.grbxLDAP.Text = "Indexierung gegen Active Directory:" 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.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.Location = New System.Drawing.Point(568, 18)
Me.grbxVolltext.Name = "grbxVolltext" 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.TabIndex = 78
Me.grbxVolltext.TabStop = False Me.grbxVolltext.TabStop = False
Me.grbxVolltext.Text = "Indexierung gegen den Volltext" 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.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 1
Me.TabPage2.Text = "Kennzeichnung und Active Directory" Me.TabPage2.Text = "Kennzeichnung und Active Directory"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@@ -996,7 +998,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 2
Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)" Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
@@ -1283,7 +1285,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4" Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) 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.TabIndex = 3
Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)" Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
@@ -1323,31 +1325,31 @@ Partial Class frmNIProfileigenschaften
Me.TreeViewOrdnerVererbung.ImageList = Me.ImageList1 Me.TreeViewOrdnerVererbung.ImageList = Me.ImageList1
Me.TreeViewOrdnerVererbung.Location = New System.Drawing.Point(464, 72) Me.TreeViewOrdnerVererbung.Location = New System.Drawing.Point(464, 72)
Me.TreeViewOrdnerVererbung.Name = "TreeViewOrdnerVererbung" Me.TreeViewOrdnerVererbung.Name = "TreeViewOrdnerVererbung"
TreeNode10.ImageKey = "page.png" TreeNode1.ImageKey = "page.png"
TreeNode10.Name = "Knoten3" TreeNode1.Name = "Knoten3"
TreeNode10.SelectedImageIndex = 1 TreeNode1.SelectedImageIndex = 1
TreeNode10.Text = "Datei 1" TreeNode1.Text = "Datei 1"
TreeNode11.ImageKey = "page.png" TreeNode2.ImageKey = "page.png"
TreeNode11.Name = "Knoten4" TreeNode2.Name = "Knoten4"
TreeNode11.SelectedImageIndex = 1 TreeNode2.SelectedImageIndex = 1
TreeNode11.Text = "Datei 2" TreeNode2.Text = "Datei 2"
TreeNode12.ImageKey = "page.png" TreeNode3.ImageKey = "page.png"
TreeNode12.Name = "Knoten5" TreeNode3.Name = "Knoten5"
TreeNode12.SelectedImageIndex = 1 TreeNode3.SelectedImageIndex = 1
TreeNode12.Text = "Datei 3" TreeNode3.Text = "Datei 3"
TreeNode13.Name = "Knoten4" TreeNode4.Name = "Knoten4"
TreeNode13.Text = "Parent" TreeNode4.Text = "Parent"
TreeNode14.Name = "Knoten3" TreeNode5.Name = "Knoten3"
TreeNode14.Text = "-1" TreeNode5.Text = "-1"
TreeNode15.Name = "Knoten2" TreeNode6.Name = "Knoten2"
TreeNode15.Text = "-2" TreeNode6.Text = "-2"
TreeNode16.Name = "Knoten5" TreeNode7.Name = "Knoten5"
TreeNode16.Text = "-3" TreeNode7.Text = "-3"
TreeNode17.Name = "Knoten1" TreeNode8.Name = "Knoten1"
TreeNode17.Text = "-4" TreeNode8.Text = "-4"
TreeNode18.Name = "Knoten0" TreeNode9.Name = "Knoten0"
TreeNode18.Text = "Windream-/W-Laufwerk" TreeNode9.Text = "Windream-/W-Laufwerk"
Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode18}) Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode9})
Me.TreeViewOrdnerVererbung.SelectedImageIndex = 0 Me.TreeViewOrdnerVererbung.SelectedImageIndex = 0
Me.TreeViewOrdnerVererbung.Size = New System.Drawing.Size(220, 157) Me.TreeViewOrdnerVererbung.Size = New System.Drawing.Size(220, 157)
Me.TreeViewOrdnerVererbung.TabIndex = 59 Me.TreeViewOrdnerVererbung.TabIndex = 59
@@ -1449,16 +1451,17 @@ Partial Class frmNIProfileigenschaften
Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun) Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
Me.pnlProfileigenschaften.Controls.Add(Me.chkbxAktiv) Me.pnlProfileigenschaften.Controls.Add(Me.chkbxAktiv)
Me.pnlProfileigenschaften.Controls.Add(Me.Label7) 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.Location = New System.Drawing.Point(0, 22)
Me.pnlProfileigenschaften.Name = "pnlProfileigenschaften" 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 Me.pnlProfileigenschaften.TabIndex = 81
' '
'frmNIProfileigenschaften 'frmNIProfileigenschaften
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 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.pnlProfileigenschaften)
Me.Controls.Add(Me.StatusStrip1) 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)) Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIProfileigenschaften", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))

2
ToolCollection/frmNIProfileigenschaften.resx
View File

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

6
ToolCollection/frmNIVerknuepfungen.Designer.vb generated
View File

@@ -1908,11 +1908,12 @@ Partial Class frmNIVerknuepfungen
' '
'pnlFooter '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.BackColor = System.Drawing.Color.Transparent
Me.pnlFooter.Controls.Add(Me.btnSaveAllAndClose) Me.pnlFooter.Controls.Add(Me.btnSaveAllAndClose)
Me.pnlFooter.Controls.Add(Me.btnCancelAllAndClose) Me.pnlFooter.Controls.Add(Me.btnCancelAllAndClose)
Me.pnlFooter.Controls.Add(Me.btnSaveAll) 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.Location = New System.Drawing.Point(0, 250)
Me.pnlFooter.Name = "pnlFooter" Me.pnlFooter.Name = "pnlFooter"
Me.pnlFooter.Size = New System.Drawing.Size(1265, 44) Me.pnlFooter.Size = New System.Drawing.Size(1265, 44)
@@ -1920,6 +1921,7 @@ Partial Class frmNIVerknuepfungen
' '
'btnSaveAllAndClose '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.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnSaveAllAndClose.DialogResult = System.Windows.Forms.DialogResult.OK 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)) 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 '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.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnCancelAllAndClose.DialogResult = System.Windows.Forms.DialogResult.Cancel 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)) 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 '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.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnSaveAll.Enabled = False 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)) Me.btnSaveAll.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

34
ToolCollection/frmStart.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmStart Partial Class frmStart
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmStart
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
@@ -29,6 +29,7 @@ Partial Class frmStart
Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel() Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripStatusLabel_LogDeleteTime = New System.Windows.Forms.ToolStripStatusLabel() Me.ToolStripStatusLabel_LogDeleteTime = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
Me.menHauptmenü = New System.Windows.Forms.MenuStrip() Me.menHauptmenü = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÜbersichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ÜbersichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -63,7 +64,6 @@ Partial Class frmStart
Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components) Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components)
Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components) Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components)
Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components) Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.menHauptmenü.SuspendLayout() Me.menHauptmenü.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@@ -128,6 +128,15 @@ Partial Class frmStart
Me.ToolStripStatusLabel_LogDeleteTime.Size = New System.Drawing.Size(270, 20) Me.ToolStripStatusLabel_LogDeleteTime.Size = New System.Drawing.Size(270, 20)
Me.ToolStripStatusLabel_LogDeleteTime.Text = "Zeitpunkt der automatischen Löschung von Logs" Me.ToolStripStatusLabel_LogDeleteTime.Text = "Zeitpunkt der automatischen Löschung von Logs"
' '
'ToolStripStatusLabel_ConnectionString
'
Me.ToolStripStatusLabel_ConnectionString.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.ToolStripStatusLabel_ConnectionString.Name = "ToolStripStatusLabel_ConnectionString"
Me.ToolStripStatusLabel_ConnectionString.Size = New System.Drawing.Size(129, 20)
Me.ToolStripStatusLabel_ConnectionString.Text = "Datenbankverbindung"
'
'menHauptmenü 'menHauptmenü
' '
Me.menHauptmenü.BackColor = System.Drawing.SystemColors.Control Me.menHauptmenü.BackColor = System.Drawing.SystemColors.Control
@@ -150,20 +159,20 @@ Partial Class frmStart
' '
Me.ÜbersichtToolStripMenuItem.Image = Global.ToolCollection.My.Resources.Resources.Auslesen1 Me.ÜbersichtToolStripMenuItem.Image = Global.ToolCollection.My.Resources.Resources.Auslesen1
Me.ÜbersichtToolStripMenuItem.Name = "ÜbersichtToolStripMenuItem" Me.ÜbersichtToolStripMenuItem.Name = "ÜbersichtToolStripMenuItem"
Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
Me.ÜbersichtToolStripMenuItem.Text = "Übersicht" Me.ÜbersichtToolStripMenuItem.Text = "Übersicht"
' '
'BeendenToolStripMenuItem 'BeendenToolStripMenuItem
' '
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem" Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
Me.BeendenToolStripMenuItem.Text = "Beenden" Me.BeendenToolStripMenuItem.Text = "Beenden"
' '
'ZeigeLogFileToolStripMenuItem 'ZeigeLogFileToolStripMenuItem
' '
Me.ZeigeLogFileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffneLogverzeichnisToolStripMenuItem}) Me.ZeigeLogFileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffneLogverzeichnisToolStripMenuItem})
Me.ZeigeLogFileToolStripMenuItem.Name = "ZeigeLogFileToolStripMenuItem" Me.ZeigeLogFileToolStripMenuItem.Name = "ZeigeLogFileToolStripMenuItem"
Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
Me.ZeigeLogFileToolStripMenuItem.Text = "Zeige Log-File" Me.ZeigeLogFileToolStripMenuItem.Text = "Zeige Log-File"
' '
'ÖffneLogverzeichnisToolStripMenuItem 'ÖffneLogverzeichnisToolStripMenuItem
@@ -425,7 +434,6 @@ Partial Class frmStart
Me.niToolcollection.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info Me.niToolcollection.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
Me.niToolcollection.ContextMenuStrip = Me.ContextMenuStrip1 Me.niToolcollection.ContextMenuStrip = Me.ContextMenuStrip1
Me.niToolcollection.Icon = CType(resources.GetObject("niToolcollection.Icon"), System.Drawing.Icon) Me.niToolcollection.Icon = CType(resources.GetObject("niToolcollection.Icon"), System.Drawing.Icon)
Me.niToolcollection.Text = "Tool Collection für windream"
' '
'ContextMenuStrip1 'ContextMenuStrip1
' '
@@ -452,15 +460,6 @@ Partial Class frmStart
' '
Me.TimerDeleteLogfiles.Interval = 1000 Me.TimerDeleteLogfiles.Interval = 1000
' '
'ToolStripStatusLabel_ConnectionString
'
Me.ToolStripStatusLabel_ConnectionString.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.ToolStripStatusLabel_ConnectionString.Name = "ToolStripStatusLabel_ConnectionString"
Me.ToolStripStatusLabel_ConnectionString.Size = New System.Drawing.Size(129, 20)
Me.ToolStripStatusLabel_ConnectionString.Text = "Datenbankverbindung"
'
'frmStart 'frmStart
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -474,7 +473,6 @@ Partial Class frmStart
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.IsMdiContainer = True Me.IsMdiContainer = True
Me.Name = "frmStart" Me.Name = "frmStart"
Me.Text = "Tool Collection für windream"
Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
Me.menHauptmenü.ResumeLayout(False) Me.menHauptmenü.ResumeLayout(False)

2
ToolCollection/frmStart.resx
View File

@@ -159,7 +159,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
FAAAAk1TRnQBSQFMAgEBCQEAAWABAwFgAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo FAAAAk1TRnQBSQFMAgEBCQEAAXABAwFwAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

18
ToolCollection/frmStart.vb
View File

@@ -131,11 +131,25 @@ Public Class frmStart
End Sub End Sub
Private Sub CaptionForm() Private Sub CaptionForm()
Dim caption As String
If String.IsNullOrWhiteSpace(My.Settings.vInstanceName) Then If String.IsNullOrWhiteSpace(My.Settings.vInstanceName) Then
Me.Text = Application.CompanyName & " - " & Application.ProductName caption = Application.CompanyName & " - " & Application.ProductName
Else Else
Me.Text = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName caption = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName
End If End If
' Fenster-Titel setzen
Me.Text = caption
Dim trayText As String = caption
If trayText.Length > 63 Then
trayText = trayText.Substring(0, 60) & "..."
End If
' Systray-Tooltip setzen
niToolcollection.Text = trayText
End Sub End Sub
Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

2
ToolCollection/frmUebersicht.Designer.vb generated
View File

@@ -249,7 +249,7 @@ Partial Class frmUebersicht
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1 Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmUebersicht" 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.ResumeLayout(False)
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False)