AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2022-05-20 11:26:03 +02:00
parent 90e31c01b5
commit a0f99ba5a4
21 changed files with 432 additions and 228 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -315,7 +315,7 @@ Public Class frmFlowForm
Else
oMsg = "File-Exclusions in Folderwatch could not be created!"
End If
Dim oMsgBox As New Dialog1(oMsg, "Error", True)
Dim oMsgBox As New frmDialog(oMsg, "Error", True)
oMsgBox.ShowDialog()
End If
@@ -508,7 +508,7 @@ Public Class frmFlowForm
If My.Application.User.Language <> "de-DE" Then
oTitle = "Exit Zooflow"
End If
Dim oMsgBox As New Dialog1(omessage, oTitle, False)
Dim oMsgBox As New frmDialog(omessage, oTitle, False)
oMsgBox.ShowDialog()
If oMsgBox.DialogResult = DialogResult.OK Then
@@ -613,7 +613,7 @@ Public Class frmFlowForm
End If
If TheFormIsAlreadyLoaded("frmIndexFileList") Then
Cursor = Cursors.Default
Dim oMsgBox As New Dialog1("Please index the active file first!", "Drag 'n Drop not allowed!", True)
Dim oMsgBox As New frmDialog("Please index the active file first!", "Drag 'n Drop not allowed!", True)
oMsgBox.ShowDialog()
Exit Function
End If
@@ -917,7 +917,7 @@ Public Class frmFlowForm
If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then
Else
Dim oMsgBox As New Dialog1("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, "Drag 'n Drop not allowed!", True)
Dim oMsgBox As New frmDialog("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, "Drag 'n Drop not allowed!", True)
oMsgBox.ShowDialog()
End If