GUIs.Common: Version 1.0.0.1

GUIs.Common/Constants.vb

@@ -1,3 +1,8 @@
 Public Class Constants
     Public Const NO_ROW_HANDLE = -1
+
+    Public Shared ReadOnly MESSAGE_TOO_MANY_SEARCHES = "You have more than three searches configured. This Window will only show the first three result lists!"
+    Public Shared ReadOnly MESSAGE_ERROR_IN_SEARCHES = $"An error occurred while executing searches or no searches were found!{vbNewLine}
+        Please check the SQL Queries for errors and if the correct connection was configured.{vbNewLine}{vbNewLine}
+        For more information check the Logfile."
 End Class

GUIs.Common/DataResultList/frmDataResultList.vb

@@ -94,7 +94,7 @@ Public Class frmDataResultList
                         CreateDataGrid(GridView3, oResult.Datatable)
 
                     Case Else
-                        MessageBox.Show("You have more than three searches configured. This Window will only show the first three result lists!")
+                        MessageBox.Show(Constants.MESSAGE_TOO_MANY_SEARCHES)
                         Exit For
                 End Select
             Next
@@ -108,7 +108,7 @@ Public Class frmDataResultList
                     SwitchMainContainerHorizontal.Enabled = False
                     SwitchDetailContainerHorizontal.Enabled = False
 
-                    MessageBox.Show("Es ist ein Fehler beim Ausführen der Suchen aufgetreten oder es wurden keine Suchen gefunden!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+                    MessageBox.Show(Constants.MESSAGE_ERROR_IN_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                 Case 1
                     SplitContainerControl1.SetPanelCollapsed(True)
                     SplitContainerControl2.SetPanelCollapsed(True)

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -102,7 +102,7 @@ Public Class frmDocumentResultList
                         UpdateGridHeader(index, oResult.Datatable.Rows.Count)
 
                     Case Else
-                        MessageBox.Show("You have more than three searches configured. This Window will only show the first three result lists!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+                        MessageBox.Show(Constants.MESSAGE_TOO_MANY_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                         Exit For
                 End Select
             Next
@@ -116,7 +116,7 @@ Public Class frmDocumentResultList
                     SwitchMainContainerHorizontal.Enabled = False
                     SwitchDetailContainerHorizontal.Enabled = False
 
-                    MessageBox.Show("Es ist ein Fehler beim Ausführen der Suchen aufgetreten oder es wurden keine Suchen gefunden!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+                    MessageBox.Show(Constants.MESSAGE_ERROR_IN_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                 Case 1
                     SplitContainerControl1.SetPanelCollapsed(True)
                     SplitContainerControl2.SetPanelCollapsed(True)

GUIs.Common/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("Common")>
-<Assembly: AssemblyCopyright("Copyright ©  2019")>
+<Assembly: AssemblyCopyright("Copyright ©  2020")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.0.0.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>