add error handling via baseribbonform

app/DD_Clipboard_Searcher/frmAdministration.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAdministration
-    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+    Inherits DigitalData.GUIs.Common.Base.BaseRibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -1,4 +1,4 @@
-Imports DD_LIB_Standards
+Imports DigitalData.Modules.Database
 Public Class frmAdministration
     Private SelectedProcessName As String
 
@@ -15,6 +15,12 @@ Public Class frmAdministration
         End Function
     End Class
 
+    Public Sub New()
+        MyBase.New(LogConfig)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+    End Sub
+
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ' Select first tab to prevent profile textbox from being empty
         XtraTabControl3.SelectedTabPageIndex = 0
@@ -82,6 +88,7 @@ Public Class frmAdministration
 
     Sub Save_Profile()
         Try
+            Throw New Exception("LOL")
             Me.TBCW_PROFILESBindingSource.EndEdit()
             If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then
                 Me.CHANGEDWHOTextBox.Text = Environment.UserName
@@ -92,7 +99,8 @@ Public Class frmAdministration
                 Status_Changed("Keine Änderung")
             End If
         Catch ex As Exception
-            MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            ShowErrorMessage(ex)
+            'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
         End Try
     End Sub
 
@@ -626,8 +634,6 @@ Public Class frmAdministration
                 TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
                 Status_Changed("Daten-Suche gespeichert")
             End If
-        Catch ex As NoNullAllowedException
-            MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
         Catch ex As Exception
             MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try