事件处理程序未自行删除？

Question

在 VB .NET 函数的开头，我删除了一个事件处理程序，并在函数末尾再次添加它，因为函数的代码将触发这些事件，而我不希望它们在函数运行期间触发。这通常有效，但我遇到过一些情况，即使我已经删除了事件，事件仍然被调用。有时在函数开始时删除它两次可以修复它，但其他时候无论我删除它多少次，它仍然会触发。关于可能导致这种情况的原因有什么想法吗？

编辑

代码位于具有虚拟模式datagridview的表单中。我想运行一些操作来触发 datagridview 的 CellValueNeeded 事件，而不触发该事件（因为它会干扰）。

Public Sub DoEventRaisingStuff()
    RemoveHandler grid.CellValueNeeded, AddressOf grid_CellValueNeeded

    'Do things that would trigger CellValueNeeded

    AddHandler grid.CellValueNeeded, AddressOf grid_CellValueNeeded
End Sub

多次删除处理程序不会阻止事件触发，因此它似乎不会被意外地多次添加到其他地方。

有没有办法找出哪些事件处理程序处于活动状态？

Answer 1

如果正在调用事件处理代码，则会发生以下两种情况之一：

1. 您没有删除事件处理程序。

2. 您正在多次添加事件处理程序。这是更常见的情况。

过去，我能够发现 2. 的唯一方法是找到添加事件处理程序的所有位置（希望只有一两个）并在这些行上放置断点。然后，我在调试器下运行该应用程序，发现它中断的次数比我预期的要多。我使用调用堆栈来找出原因 - 我总是将添加代码放在错误的位置（例如，在按下按钮时而不是在表单实例化时）。

您可以对删除代码执行相同的操作。计算每个断点被击中的次数，如果它们不相同，请备份调用堆栈，看看是否可以找出原因。

Answer 2

在函数中使用类作用域标志并在事件处理程序中检查该标志。

IE：

Private RunFunction as Boolean = False

...

Private Sub MyEvent(e as system.eventargs) handles myObject.Method
   If RunFunction Then
      ...
   End If
End Sub

...

Private Sub MyFunction()
   RunFunction = False

   ...

   RunFunction = True
End Sub