frmDocumentResultList

ZooFlow/ClassInit.vb

@@ -39,9 +39,6 @@ Public Class ClassInit
             AddHandler oInit.ProgressChanged, AddressOf ProgressChanged
             AddHandler oInit.InitCompleted, AddressOf InitCompleted
 
-            SplashScreenManager.ActivateParentOnSplashFormClosing = True
-            SplashScreenManager.ShowForm(_MainForm, GetType(frmSplash), False, False)
-
             oInit.Run()
         End If
     End Sub

ZooFlow/Config/ClassUIConfig.vb

@@ -1,12 +1,8 @@
 Public Class ClassUIConfig
     Public Property SkinName As String = "Office 2016 Colorful"
+    Public Property FlowForm As New FlowFormConfig
 
-    Public Property EditFormConfigs As New List(Of EditFormConfig)
-
-    Public Class EditFormConfig
-        Public Property SysKey As String
-
-        Public Property SplitterDistance As Integer = 700
-        Public Property SplitterHorizontal As Boolean = True
+    Public Class FlowFormConfig
+        Public Property Location As New Point(0, 0)
     End Class
 End Class

ZooFlow/frmAdmin.vb

@@ -28,6 +28,9 @@ Partial Public Class frmAdmin
         AddHandler Init.Completed, AddressOf Init_Completed
         Init.InitializeApplication()
 
+        ' === Show Splash Screen ===
+        SplashScreenManager.ShowForm(Me, GetType(frmSplash), False, False)
+
         ' === Layout and Skin ===
         UserLookAndFeel.Default.SetSkinStyle(My.UIConfig.SkinName)
 
@@ -35,6 +38,28 @@ Partial Public Class frmAdmin
         EventBus.Instance.Register(Me)
     End Sub
 
+    Private Sub Init_Completed(sender As Object, e As EventArgs)
+        ' === Initialization Complete ===
+        Loading = False
+        SplashScreenManager.CloseForm(False)
+
+        ' === Setup Timers ===
+        AddHandler TimerRefreshData.Tick, AddressOf TimerRefreshData_Tick
+        TimerRefreshData.Enabled = True
+
+        ' === Setup Flow Form ===
+        FlowForm = New frmFlowForm(My.Application.ModulesActive)
+        FlowForm.Location = My.UIConfig.FlowForm.Location
+        FlowForm.Show()
+
+        ' === Load Data ===
+        RefreshData()
+    End Sub
+
+    Private Sub frmAdmin_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        Visible = False
+    End Sub
+
     Private Sub frmMain_FormClosed(sender As Object, e As FormClosedEventArgs)
         EventBus.Instance.Unregister(Me)
     End Sub
@@ -58,31 +83,10 @@ Partial Public Class frmAdmin
         End Select
     End Sub
 
-    Private Sub Init_Completed(sender As Object, e As EventArgs)
-        ' === Initialization Complete ===
-        Loading = False
-        SplashScreenManager.CloseForm(False)
-
-        ' === Setup Timers ===
-        AddHandler TimerRefreshData.Tick, AddressOf TimerRefreshData_Tick
-        TimerRefreshData.Enabled = True
-
-        ' === Setup Flow Form ===
-        FlowForm = New frmFlowForm(My.Application.ModulesActive)
-        FlowForm.Show()
-
-        ' === Load Data ===
-        RefreshData()
-    End Sub
-
     Private Sub TimerRefreshData_Tick(sender As Object, e As EventArgs)
         RefreshData()
     End Sub
 
-    Private Sub frmMain_Shown(sender As Object, e As EventArgs)
-        WindowState = FormWindowState.Minimized
-    End Sub
-
     Private Async Sub FlowForm_ClipboardChanged(sender As Object, e As IDataObject) Handles FlowForm.ClipboardChanged
         If My.Application.ClipboardWatcher.UserProfiles.Rows.Count = 0 Then
             Logger.Warn("Clipboard Changed but no profiles configured!")
@@ -118,7 +122,7 @@ Partial Public Class frmAdmin
                                                End Function)
             oMatchingProfiles = oProfileFilter.ClearNotMatchedProfiles(oMatchingProfiles)
         Catch ex As Exception
-            MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor.", MsgBoxStyle.Critical, Text)
+            MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor." & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
             Exit Sub
         End Try
 
@@ -192,4 +196,6 @@ Partial Public Class frmAdmin
             Logger.Error(ex)
         End Try
     End Sub
+
+
 End Class