15-11-23

EnvelopeGenerator.Form/frmMain.vb

@@ -114,10 +114,18 @@ Public Class frmMain
     End Sub
 
     Private Sub LoadEnvelope(pRowHandle As Integer)
-        Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(pRowHandle)
-        Dim oForm As New frmEnvelopeEditor() With {.State = State, .Envelope = oEnvelope}
-        oForm.ShowDialog()
-        GridEnvelopes.DataSource = Controller.ListEnvelopes()
+        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
+        Try
+            Dim oEnvelope As Envelope = DirectCast(ViewEnvelopes.GetRow(pRowHandle), Envelope)
+            Dim oForm As New frmEnvelopeEditor() With {.State = State, .Envelope = oEnvelope}
+            oForm.ShowDialog()
+            GridEnvelopes.DataSource = Controller.ListEnvelopes()
+
+        Catch ex As Exception
+            Logger.Error(ex)
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
+        End Try
     End Sub
 
     Private Sub DeleteEnvelope(pRowHandle As Integer)