AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2022-05-31 17:14:15 +02:00
parent 8b3c425d6b
commit 9d98bf6fd5
17 changed files with 152 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
View File

@@ -592,13 +592,9 @@ Public Class frmAdmin_Globix
Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
Try
If Regex.IsMatch(REGEXTextBox.Text, txtDateinameTest.Text) Then
Dim oMsgBox As New frmDialog("The RegEx resulted in a proper match!", "Testing Regex", frmDialog.DialogType.Success)
oMsgBox.ShowDialog()
Dim oResult = FormHelper.ShowInfoMessage("The RegEx resulted in a proper match!", "Testing Regex")
Else
Dim oMsgBox As New frmDialog("No Match- There might be an error in the RegEx!", "Testing Regex", frmDialog.DialogType.Warning)
oMsgBox.ShowDialog()
Dim oResult = FormHelper.ShowWarningMessage("No Match- There might be an error in the RegEx!", "Testing Regex")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Testing Regex: ")

4
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@@ -42,8 +42,8 @@ Public Class frmAdmin_Start
Load_GridData(oDetailData)
Else
Dim oMsgBox As New frmDialog($"Could not load data for Page [{oKey}] because it does not exist!", "Error", frmDialog.DialogType.Error)
oMsgBox.ShowDialog()
Dim oResult = FormHelper.ShowWarningMessage($"Could not load data for Page [{oKey}] because it does not exist!", "Error")
End If
End If
End Sub