MS

GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb

@@ -54,11 +54,7 @@ Public Class ClassFilehandle
 
             'Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
             ofrmDuplicate.ShowDialog()
-            'If My.Application.User.Language = "de-DE" Then
-            '    oResult = MsgBox($"Die Datei [{oFilename}] wurde bereits am [{oDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?", oBoxOptions, oBoxTitle)
-            'Else
-            '    oResult = MsgBox($"The file [{oFilename}] has already been processed at [{oDate}]. Do you want to process the same file again?", oBoxOptions, oBoxTitle)
-            'End If
+
 
             If ofrmDuplicate.DialogResult = DialogResult.Yes Then
                 Return True
@@ -124,11 +120,14 @@ Public Class ClassFilehandle
             End If
 
             If oTempFilePath.ToUpper.EndsWith(".LNK") Then
+                Dim oMSG As String
                 If My.Application.User.Language = "de-DE" Then
-                    MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
+                    oMSG = "Verknüpfungen können nicht abgelegt werden!"
                 Else
-                    MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "Global Indexer")
+                    oMSG = "Shortcuts cannot be droppped!"
                 End If
+                Dim oMsgBox As New Dialog1(oMSG, "", True)
+                oMsgBox.ShowDialog()
                 Return False
             End If
 

GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb

@@ -80,7 +80,9 @@ Public Class ClassFolderwatcher
             End If
         Catch ex As Exception
             Logger.Error(ex.Message)
-            MsgBox("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+
+            Dim oMsgBox As New Dialog1("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, "", True)
+            oMsgBox.ShowDialog()
         End Try
     End Function
     Public Function StartStop_FolderWatchSCAN() As Integer

GUIs.ZooFlow/Modules/Globix/ClassValidator.vb

@@ -259,6 +259,8 @@ Public Class ClassValidator
     End Function
 
     Private Sub ShowValidationMessage()
-        MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT)
+        'MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT)
+        Dim oMsgBox As New Dialog1(ClassConstants.TITLE_MISSING_INPUT & vbNewLine & ClassConstants.TEXT_MISSING_INPUT, "", True)
+        oMsgBox.ShowDialog()
     End Sub
 End Class

GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb

@@ -44,12 +44,15 @@ Public Class frmGlobixBasicConfig
                 Logger.Info(">> Unexpected error in CheckFolder: " & pMypath)
                 Logger.Error(ex.Message)
                 Logger.Info(" >> " & ex.Message)
-                If My.Application.User.Language = "de-DE" Then
-                    MsgBox("Unexpected error in ECheckFolder: " & pMypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                Else
-                    MsgBox("Error in creating Hotfolder: " & pMypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                End If
+                Dim otext As String
 
+                If My.Application.User.Language = "de-DE" Then
+                    otext = "Unexpected error in ECheckFolder: " & pMypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message
+                Else
+                    otext = "Error in creating Hotfolder: " & pMypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message
+                End If
+                Dim oMsgBox As New Dialog1("No Match- There might be an error in the RegEx!", "", True)
+                oMsgBox.ShowDialog()
                 Exit Sub
             End Try
 

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb

@@ -463,12 +463,14 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
                         oControl = oControls.AddDateTimePicker(oControlName, oControlPosition, oDataType)
 
                     Case Else
+                        Dim omsg As String
                         If My.Application.User.Language = "de-DE" Then
-                            MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:")
+                            omsg = "Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!"
                         Else
-                            MsgBox("Please check Datatype of Indexvalue!", MsgBoxStyle.Critical, "Warning:")
+                            omsg = "Please check Datatype of Indexvalue!"
                         End If
-
+                        Dim oMsgBox As New Dialog1(omsg, "", True)
+                        oMsgBox.ShowDialog()
                         Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType)
                 End Select
 
@@ -647,24 +649,30 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
 
     Private Sub frmGlobix_Index_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         If File.Exists(My.Application.Globix.CurrentWorkfile.FilePath) Then
+            Dim oMsg As String
             Select Case CancelAttempts
                 Case 0
+
                     If My.Application.User.Language = "de-DE" Then
-                        MsgBox("Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)", MsgBoxStyle.Information)
+                        oMsg = "Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)"
                     Else
-                        MsgBox("Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)", MsgBoxStyle.Information)
+                        oMsg = "Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)"
                     End If
+                    Dim oMsgBox As New Dialog1(oMsg, "", False)
+                    oMsgBox.Cancel_Button.Visible = False
+                    oMsgBox.ShowDialog()
                     CancelAttempts += 1
                     e.Cancel = True
                 Case 1
-                    Dim result As MsgBoxResult
-                    If My.Application.User.Language = "de-DE" Then
-                        result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                    Else
-                        result = MessageBox.Show("You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                    End If
 
-                    If result = MsgBoxResult.Yes Then
+                    If My.Application.User.Language = "de-DE" Then
+                        oMsg = "Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?"
+                    Else
+                        oMsg = "You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?"
+                    End If
+                    Dim oMsgBox As New Dialog1(oMsg, "", False)
+                    oMsgBox.Cancel_Button.Visible = True
+                    If oMsgBox.DialogResult = DialogResult.Yes Then
                         Dim containsfw_file As Boolean = False
                         Try
                             My.Application.Globix.ABORT_INDEXING = True