MS

2022-05-19 17:23:41 +02:00
parent 0c23878301
commit 5448240b46
19 changed files with 340 additions and 161 deletions
--- a/GUIs.ZooFlow/Modules/Globix/ClassValidator.vb
+++ b/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