Common: fix crash

2022-04-05 16:36:04 +02:00
parent b6f84c4fb8
commit a5e4274659
3 changed files with 27 additions and 20 deletions
--- a/GUIs.Common/Base/BaseErrorHandler.vb
+++ b/GUIs.Common/Base/BaseErrorHandler.vb
@@ -27,7 +27,7 @@ Namespace Base

        Public Sub ShowErrorMessage(Exception As Exception, Origin As String, Message As String)
            _Logger.Error(Exception)
-            MessageBox.Show(Message, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
+            MessageBox.Show(Message & vbNewLine & Exception?.Message, _Form.Text & Origin, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Sub

        Public Sub ShowErrorMessage(Text As String)