在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