MS Rückruf!

EnvelopeGenerator.Form/frmMain.vb

@@ -157,8 +157,7 @@ Public Class frmMain
             If oSelectedRows.Count > 0 Then
                 Dim ofrmAbort As New frmRueckruf
                 frmRueckruf.ShowDialog()
-                MsgBox("Abort: " & frmRueckruf.Abort & vbNewLine & "Reason: " & frmRueckruf.Reject_reason)
-                If frmRueckruf.Abort = False Then
+                If frmRueckruf.Continue_Reject = True Then
                     DeleteEnvelope(oSelectedRows.First, frmRueckruf.Reject_reason)
                 End If
 

EnvelopeGenerator.Form/frmRueckruf.vb

@@ -4,7 +4,6 @@ Public Class frmRueckruf
 
     Public Continue_Reject As Boolean = False
     Public Reject_reason As String = ""
-    Public Abort As Boolean = False
     Public Sub New()
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -16,14 +15,24 @@ Public Class frmRueckruf
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnWeiter.Click
         If txtReason.Text <> "" Then
             If MsgBox(Resources.Envelope.Do_you_really_want_to_delete_this_envelope, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
-                Abort = True
                 Me.Close()
             End If
             tsstatus.Text = ""
             Continue_Reject = True
             Dim oReason = txtReason.Text
-            oReason.Replace(vbCr, "<br>").Replace(vbLf, "<br>")
-            Reject_reason = txtReason.Text
+            'If oReason.Contains(vbCrLf) Then
+            '    MsgBox("vbCrLf")
+            'ElseIf oReason.Contains(Chr(13)) Then
+            '    MsgBox("chr13")
+            'ElseIf oReason.Contains(Chr(10)) Then
+            '    MsgBox("chr10")
+            'End If
+
+            'oReason = oReason.Replace(vbLf, "<br>")
+            oReason = oReason.Replace(vbCrLf, "<br>")
+            oReason = oReason.Replace(Chr(13), "<br>")
+            oReason = oReason.Replace(Chr(10), "<br>")
+            Reject_reason = oReason
             Me.Close()
         Else
             tsstatus.Text = "Please add a reason for aborting - " & Now
@@ -31,7 +40,6 @@ Public Class frmRueckruf
     End Sub
 
     Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
-        Abort = True
         Me.Close()
     End Sub