Version 2.0.0.15

app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.14")>
+<Assembly: AssemblyVersion("2.0.0.15")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -1,5 +1,6 @@
 Imports System.Text.RegularExpressions
 Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Language
 Public Class frmAdministration
     Private _SelectedProcessName As String
     Private _DragDrop As ClassDragDrop
@@ -318,6 +319,8 @@ Public Class frmAdministration
     End Sub
 
     Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        XtraTabControl1.SelectedTabPage = TabPageGeneralSettings
+
         If PROFILE_IDTextBox.Text = "" Then
             Refresh_Free_Users(0)
             Refresh_Free_Groups(0)
@@ -372,7 +375,7 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
-        If txtProfileName.EditValue <> String.Empty Then
+        If Utils.NotNull(txtProfileName.EditValue, String.Empty) <> String.Empty Then
             Save_Profile()
         Else
             MsgBox("Profil kann nicht ohne Profil-Name gespeichert werden!", MsgBoxStyle.Exclamation, Text)
@@ -575,7 +578,7 @@ Public Class frmAdministration
             End If
         Catch ex As Exception
             Logger.Error(ex)
-            MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
         End Try
     End Sub
 
@@ -588,12 +591,16 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
-        If TBCW_PROF_DATA_SEARCHBindingSource.Count = MAX_DATA_SEARCHES Then
+        Try
-            MsgBox($"Es können nicht mehr als {MAX_DATA_SEARCHES} Daten-Suchen angelegt werden!", MsgBoxStyle.Exclamation, Text)
+            If TBCW_PROF_DATA_SEARCHBindingSource.Count = MAX_DATA_SEARCHES Then
-            Exit Sub
+                MsgBox($"Es können nicht mehr als {MAX_DATA_SEARCHES} Daten-Suchen angelegt werden!", MsgBoxStyle.Exclamation, Text)
-        End If
+                Exit Sub
+            End If
 
-        TBCW_PROF_DATA_SEARCHBindingSource.AddNew()
+            TBCW_PROF_DATA_SEARCHBindingSource.AddNew()
+        Catch ex As Exception
+            MsgBox("Unexpected Error while creating DataSearch: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
     End Sub
 
     Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick