在VB.net中结合事件

Question

我想知道是否有任何方法在VB.net中结合事件。我正在使用Windows窗体，并为每个执行不同操作的按钮提供三个事件。我想用一种方法把所有三个事件都放进去，但是在做这件事时遇到了麻烦。以下是其中一个按钮的示例。为了简化问题，我删除了每个子内部的所有代码。

Private Sub btnRightPos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRightPos.Click 

End Sub 

Private Sub btnRightPos_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnRightPos.MouseDown 

End Sub 

Private Sub btnRightPos_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnRightPos.MouseUp 

End Sub 

Answer 1

MouseUp和MouseDown可以说Handles btnRightPos.MouseDown, btnRightPos.MouseUp这样的组合。

Private Sub btnRightPos_MouseDownAndDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnRightPos.MouseDown, btnRightPos.MouseUp 

End Sub 

但Button.Click不能与其他两个组合，因为它的事件处理程序具有不同的签名。

关于重用代码的事情，可以将公共逻辑分离为一个单独的函数，只需从事件处理程序中调用该函数即可。

Answer 2

您可以轻松地做到这一点使用

AddHandler obj.OnEvent, AddressOf MyEventHandler 

因此，例如

private Default_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) 

然后

AddHandler btnRightPos.MouseUp, AddressOf Default_MouseUp 
AddHandler btnLeftPos.MouseUp, AddressOf Default_MouseUp 

Answer 3

这要看情况。你关心这些争论吗？你需要sender和e吗？你可以合并其中的两个，如果你不关心这些论点，你可以将三者结合起来。原因是Click的签名是不同的。由于上下共享相同的签名，他们可以结合这样的：

Private Sub btnRightPos_UpAndDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnRightPos.MouseDown, btnRightPos.MouseUp 

End Sub 

如果要合并所有三个：

Private Sub btnRightPos_All() Handles btnRightPos.Click, btnRightPos.MouseUp, btnRightPos.MouseDown 

End Sub 

VB.NET有一个有趣的功能，让这项工作，在那里您可以使用无参数方法来处理任何事件;有效地说：“我不关心签名，使其工作”。

Answer 4

这似乎是审慎的做法。如果一件事情有点不同，那么修复起来更容易。只是因为他们今天是相同的......

Private Sub btnRightPos_Click(sender As Object, _ 
           ByVal e As System.EventArgs) _ 
          Handles btnRightPos.Click 
    btnRightPosCommon(sender, e, "C") 
End Sub 

Private Sub btnRightPos_MouseDown(ByVal sender As System.Object, _ 
            ByVal e As System.Windows.Forms.MouseEventArgs) _ 
           Handles btnRightPos.MouseDown 
    btnRightPosCommon(sender, e, "D") 
End Sub 

Private Sub btnRightPos_MouseUp(ByVal sender As System.Object, _ 
           ByVal e As System.Windows.Forms.MouseEventArgs) _ 
          Handles btnRightPos.MouseUp 
    btnRightPosCommon(sender, e, "U") 
End Sub 

'common 
Private Sub btnRightPosCommon(ByVal sender As System.Object, _ 
           ByVal e As System.Object, Optional id As String = "") 

    Debug.WriteLine("{0} {1} {2}", sender.GetType, e.GetType, id) 
End Sub