VB.netでのイベントの結合

Question

VB.netでイベントを組み合わせる方法があるかどうかは疑問でした。私は、ウィンドウフォームを使用して、別のアクションを行う各ボタンの3つのイベントがあります。 3つのイベントを1つの方法でまとめたいのですが、これを行うのに問題があります。以下は、ボタンの1つの例です。質問の容易さのために、私は各サブの中のすべてのコードを削除しました。

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は、他の2つと組み合わせることはできません。

コードを再利用するためにできることは、共通ロジックを別の関数に分けて、その関数をイベントハンドラから呼び出すことです。

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が必要ですか？ 2つを組み合わせることができます。引数を気にしない場合は、3つすべてを組み合わせることができます。 Clickのシグネチャである理由は異なります。上下が同じ署名を共有しているので、彼らはこのように組み合わせることができる：

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

End Sub 

結合したい場合は、すべて3：

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

End Sub 

VB.NETはその仕事をすることができます興味深い機能を持っています任意のイベントを処理するためにパラメータのないメソッドを使用できます。効果的に「私は署名を気にしないで、それを働かせる」と言っています。

Answer 4

これは慎重なアプローチであるようです。 1つに少しだけ違うものがあれば、修正する方が簡単です。ただ今は同じものだから...

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