ZooFlow: Admin

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -15,6 +15,15 @@ Public Class frmAdmin_Start
 
     Private DetailForm As ClassDetailForm
 
+    Public Sub New()
+        MyBase.New(My.LogConfig)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         DetailForm = New ClassDetailForm(My.LogConfig)
         AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed
@@ -200,6 +209,8 @@ Public Class frmAdmin_Start
 
                 If oPrimaryKey IsNot Nothing Then
                     DetailForm.Handle_OpenDetail(oPrimaryKey, CurrentPage, False)
+                Else
+                    Throw New ArgumentNullException("PrimaryKey")
                 End If
             End If
         Catch ex As Exception
@@ -239,7 +250,7 @@ Public Class frmAdmin_Start
         Try
             DetailForm.Handle_OpenDetail(Nothing, CurrentPage, True)
         Catch ex As Exception
-            Logger.Error(ex)
+            ShowErrorMessage(ex)
         End Try
     End Sub