为什么我的事件处理程序会触发两次？

Question

我有一堆要添加到单个父面板的面板，我想将事件侦听器添加到所有面板，但直到它们全部添加到父面板之后（因为我不希望每次添加新面板时都会触发事件侦听器）。所以我使用以下代码：

   Dim temp_object As question_bar = Nothing
   For Each q As Object In review_holder.Controls
       If TypeOf q Is question_bar Then
          temp_object = q
          AddHandler temp_object.Resize, AddressOf temp_object.resize_me
       End If
   Next

   For Each q As Object In review_holder.Controls
      If TypeOf q Is question_bar Then
         temp_object = q
         temp_object.resize_me()
      End If
   Next

但我注意到 resize_me() 子例程会为每个控件触发两次。我只希望它开火一次。所以我用这段代码追踪了它

MsgBox((New System.Diagnostics.StackTrace).GetFrame(1).GetMethod.Name)

我看到每次调用它的调用方法都是这个子例程和_Lambda$_365。那是什么呀？我如何知道它来自哪里？

顺便说一句，这是一个使用 VS2012 的 winforms 应用程序。

编辑 ---------------------------------- --------------------------

Public Sub resize_me()

 MsgBox((New System.Diagnostics.StackTrace).GetFrame(1).GetMethod.Name)

 If Me.minimized = True Then
    Me.Height = 0
    Exit Sub
 End If

 number_panel.Width = my_parent.number_width
 number_text.Width = my_parent.number_width
 number_separator.Left = number_panel.Right
 question_panel.Left = number_separator.Right
 question_panel.Width = question_panel.Parent.Width * initial_question_width + (question_padding * 2)


End Sub

Answer 1

在调整大小事件中更改大小属性可以解释为什么您的代码会再次被调用。通常我会尽量避免这种情况，但这并不总是可能的。在这些情况下，一个作为标志来阻止重新进入的全局变量可以挽救这一天

Dim insideResize As Boolean

Public Sub resize_me()

 if insideResize = True Then
     Exit Sub
 End if

 insideResize = True
 Try
    If Me.minimized = True Then
       Me.Height = 0
       Exit Sub
    End If

    number_panel.Width = my_parent.number_width
    number_text.Width = my_parent.number_width
    number_separator.Left = number_panel.Right
    question_panel.Left = number_separator.Right
    question_panel.Width = question_panel.Parent.Width * initial_question_width + (question_padding * 2)
  Finally
    insideResize = False
  End Try

End Sub

为了安全起见，请记住始终使用 Try/Finally 块，以确保当您从 Resize 事件退出时，全局标志正确设置回 false。