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

MS diverses

Browse Source
This commit is contained in:
SchreiberM
2022-05-17 08:14:06 +02:00
parent 8f1ab41d64
commit c329f42cdd
23 changed files with 1467 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb
View File

@@ -46,18 +46,21 @@ Public Class ClassFilehandle
If oFileExists.Equals(Date.MinValue) Then
Return True
Else
Dim oResult As DialogResult
'Dim oResult As DialogResult
Dim oDate As String = oFileExists.ToString("d")
Dim oBoxTitle = $"GLOBIX - {ModuleTitle}"
Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
' Dim oBoxTitle = $"GLOBIX - {ModuleTitle}"
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
Dim ofrmDuplicate As New frmFileflow_Duplicate(oFilename, oDate)
If oResult = DialogResult.Yes Then
'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
End If
End If