MS SQL Command IDB
This commit is contained in:
@@ -172,10 +172,10 @@
|
||||
<Compile Include="GridBuilder.vb" />
|
||||
<Compile Include="IBaseForm.vb" />
|
||||
<Compile Include="IResultForm.vb" />
|
||||
<Compile Include="MsgBoxEx.Designer.vb">
|
||||
<DependentUpon>MsgBoxEx.vb</DependentUpon>
|
||||
<Compile Include="NNMsgBoxEx.Designer.vb">
|
||||
<DependentUpon>NNMsgBoxEx.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="MsgBoxEx.vb">
|
||||
<Compile Include="NNMsgBoxEx.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
@@ -232,8 +232,8 @@
|
||||
<EmbeddedResource Include="frmWorkflow_Adhoc_start.resx">
|
||||
<DependentUpon>frmWorkflow_Adhoc_start.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="MsgBoxEx.resx">
|
||||
<DependentUpon>MsgBoxEx.vb</DependentUpon>
|
||||
<EmbeddedResource Include="NNMsgBoxEx.resx">
|
||||
<DependentUpon>NNMsgBoxEx.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class MsgBoxEx
|
||||
Partial Class NNMsgBoxEx
|
||||
Inherits DevExpress.XtraEditors.XtraForm
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
@@ -1,7 +1,7 @@
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class MsgBoxEx
|
||||
Public Class NNMsgBoxEx
|
||||
Public Sub New(message As String, title As String)
|
||||
Me.New(message, title, MessageBoxIcon.None)
|
||||
End Sub
|
||||
@@ -441,15 +441,15 @@ Public Class frmDocumentResultList
|
||||
Dim oDisplayName = pFile.Document.DisplayFileName
|
||||
Dim oMessage = $"Die Datei '{oDisplayName}' wurde außerhalb des Systems verändert. Wollen Sie diese Änderung als neue Version in das System übernehmen oder überschreiben?"
|
||||
|
||||
Dim oMessageBox As New MsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
|
||||
Dim oMessageBox As New NNMsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
|
||||
oMessageBox.SetButtons("Überschreiben", "Neue Version", "Abbrechen")
|
||||
oMessageBox.ShowDialog()
|
||||
|
||||
Select Case oMessageBox.Result
|
||||
Case MsgBoxEx.DialogBoxResult.Button1
|
||||
Case NNMsgBoxEx.DialogBoxResult.Button1
|
||||
Await Watcher_OverwriteFile(pFile)
|
||||
|
||||
Case MsgBoxEx.DialogBoxResult.Button2
|
||||
Case NNMsgBoxEx.DialogBoxResult.Button2
|
||||
Await Watcher_VersionFile(pFile)
|
||||
|
||||
Case Else
|
||||
|
||||
Reference in New Issue
Block a user