Nur 1 Datei erlaubt

Receiver-Anzeige in Haupt-Form
Abbrechen-Button

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -1,4 +1,5 @@
 Imports System.ComponentModel
+Imports System.Runtime.Remoting.Messaging
 Imports DevExpress.XtraEditors
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid
@@ -22,6 +23,13 @@ Partial Public Class frmEnvelopeEditor
     End Sub
 
     Private Sub btnNewFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNewFile.ItemClick
+
+        ' prüfen ob es schon eine Datei gibt
+        If Documents.Count > 0 Then
+            MsgBox(Resources.Envelope.Only_one_file_is_allowed, MsgBoxStyle.Information, Text)
+            Return
+        End If
+
         If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
             Dim oDocument = Controller.CreateDocument(OpenFileDialog1.FileName)
 
@@ -237,7 +245,14 @@ Partial Public Class frmEnvelopeEditor
     End Sub
 
     Private Sub btnCancel_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCancel.ItemClick
+        ' Speichern?
+        Dim oMessage = Resources.Envelope.Should_The_Envelope_Be_Saved
+        If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
+            SaveEnvelope(False)
+        End If
 
+        ' Schließen
+        Me.Close()
     End Sub
 
     Private Sub btnEditData_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditData.ItemClick