Vb.net複数のテキストボックスのイベントは

Question

がどのように私は、最短の方法 おかげで、すべてのテキストボックスのMouseHoverイベントにコードを追加することができますどのようにすべてのTextBox

Private Sub TextBox1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover 
    ToolTip1.SetToolTip(TextBox1, TextBox1.Text) 
End Sub 
Private Sub TextBox2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.MouseHover 
    ToolTip1.SetToolTip(TextBox2, TextBo2.Text) 
End Sub 
Private Sub TextBox3_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.MouseHover 
    ToolTip1.SetToolTip(TextBox3, TextBox3.Text) 
End Sub 

のmausehoverイベントを変更することができます変更します。

Answer 1

ここでそれを行う方法です：

Private Sub TextBox_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover, TextBox2.MouseHover, TextBox3.MouseHover 
    Dim tbx = DirectCast(sender, TextBox) 
    ToolTip1.SetToolTip(tbx, tbx.Text) 
End Sub