我如何知道 .net 事件是否已被处理？

Question

我编写了一些代码来处理事件，如下所示：

AddHandler myObject.myEvent, AddressOf myFunction

一开始似乎一切正常，但是当我运行调试器时，我发现很多时候myFunction会在每次myObject.myEvent触发时运行几次。 我发现我允许代码添加事件处理程序多次运行，从而导致这种行为。

有没有办法我可以做这样的事情？

If myObject.myEvent is not handled Then
  AddHandler myObject.myEvent, AddressOf myFunction
End If

Answer 1

假设发布事件的不是你的代码，你不能。 这个想法是订阅者彼此隔离 - 您无法了解其他事件订阅者，自己引发事件等。

如果问题是您多次添加自己的处理程序，您应该能够通过跟踪您是否添加了处理程序来自行解决该问题。 Steven 在添加之前删除处理程序的想法是一个有趣的解决方法：即使在未订阅的情况下尝试删除处理程序也是有效的。 但是，我认为这是您的应用程序不知道它应该做什么的一种解决方法。 这是一个非常快速的短期解决方案，但我担心将其保留更长时间。

Answer 2

任何一个：

1. 不要多次添加处理程序。

2. 尝试在添加之前删除处理程序。

Answer 3

我知道这是一篇旧帖子，但只是想为那些朝这个方向寻找的人添加一个解决方案......

VB.Net 在<YourEvent>Event的模式中创建一个特殊的私有成员变量，然后您可以使用它来针对 Nothing 进行测试。

Public Event MyClick As EventHandler

Private Sub OnMyClick()
    If MyClickEvent IsNot Nothing Then
        RaiseEvent MyClick(Me, New EventArgs())
    Else
        ' No event handler has been set.
        MsgBox("There is no event handler. That makes me sad.")
    End If
End Sub

来自此处的答案： 确定是否已附加事件

Answer 4

无法判断处理程序是否已附加，但您可以在调用 AddHandler 之前安全地对事件调用 RemoveHandler。 如果还没有处理程序，RemoveHandler 将不起作用。

Answer 5

删除处理程序，然后添加它。 这样它就永远不会被复制。 如果您的对象不存在，请注意空引用错误。 我也发现了这一点，当您在创建处理程序的子程序之外删除处理程序时可能会发生这种情况。

if not myObject is nothing then RemoveHandler myObject.myEvent, AddressOf myFunction
if not myObject is nothing then AddHandler myObject.myEvent, AddressOf myFunction

Answer 6

将您的事件处理程序结果保存到数据库/会话中，然后再次读取它们以检查事件是否已被处理。

Answer 7

我知道我玩这个游戏晚了几年，但你总是可以定义一个类变量的范围，然后在事后设置它。 这不是一种完全固化的做事方式，但它比只是希望您没有某些东西或每次都重新添加它要好。 在我的情况下，我在 WinForms 应用程序中使用了它，我想添加一个处理程序来拖放到 datagridview 表面上。 如果另一个 datagridview 的一部分尚未完全填写它所依赖的内容，我想停止此功能。

所以它会是这样的：

班级

Private _handlersAdded As Boolean = False

构造函数：

Public Sub New()
  AddHandler dgv.DragEnter, AddressOf DragEnter
  _handlersAdded = True
End Sub

确定问题的方法：

Private Sub CheckRowsAreDone()
  For Each row As DataGridViewRow In dgv.Rows
    Dim num = 0

    For i = 0 To row.Cells.Count - 1
      Dim val = If(Not String.IsNullOrEmpty(row?.Cells(i)?.Value?.ToString), 1, -1)
      num += val
    Next

    If num > -(row.Cells.Count) And num < (row.Cells.Count) Then
      RemoveHandler dgv.DragEnter, AddressOf DragEnter
      _handlersAdded = False
      Exit Sub
    End If

    If Not _handlersAdded Then
      AddHandler dgv.DragEnter, AddressOf DragEnter
      _handlersAdded = True
    End If

    Next
End Sub

Answer 8

您可以使用IsHandleCreated属性来检查您的事件是否已经有一个句柄。

  If e.Control.IsHandleCreated = False Then
            AddHandler e.Control.KeyPress, AddressOf TextBox_keyPress
  End If