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

Referenzen glattgezogen und MSI Paket neu konfiguriert

Browse Source
This commit is contained in:
Developer01
2026-05-04 14:35:33 +02:00
parent 45159b9ffc
commit bc75ea0d55
24 changed files with 528 additions and 222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -57,7 +57,7 @@ Public Class frmAdministration
End Function
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
_DataASorDB = New ClassDataASorDB(modCurrent._LogConfig)
' Select first tab to prevent profile textbox from being empty
XtraTabControl3.SelectedTabPageIndex = 0
@@ -152,7 +152,7 @@ Public Class frmAdministration
Status_Changed("Keine Änderung")
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub
@@ -522,7 +522,7 @@ Public Class frmAdministration
RibbonGroup_DataSearch.Enabled = False
End Select
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -567,7 +567,7 @@ Public Class frmAdministration
Status_Changed("Daten-Suche gespeichert")
End If
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub
@@ -614,7 +614,7 @@ Public Class frmAdministration
End If
Catch ex As Exception
MsgBox("Unexpected Error while saving Document Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Logger.Error(ex)
_Logger.Error(ex)
End Try
End Sub
@@ -887,7 +887,7 @@ Public Class frmAdministration
Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -938,7 +938,7 @@ Public Class frmAdministration
Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
Catch ex As Exception
Logger.Error(ex)
_Logger.Error(ex)
MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub