MS IDB Anbindung RightClick und Events

2020-08-17 11:23:11 +02:00
parent 64d957a217
commit 1698e9cc97
21 changed files with 790 additions and 15 deletions
--- a/Modules.Messaging/EventBus.vb
+++ b/Modules.Messaging/EventBus.vb
@@ -28,7 +28,12 @@ Public Class EventBus
    End Sub

    Public Sub Unregister(ByVal listener As Object)
-        _Listeners.RemoveAll(Function(l) l.Listener = listener)
+        Try
+            _Listeners.RemoveAll(Function(l) l.Listener = listener)
+        Catch ex As Exception
+
+        End Try
+
    End Sub

    Public Sub PostEvent(ByVal e As Object)