Sender代表什么

来源：互联网发布：手机金融一体机软件编辑：程序博客网时间：2024/04/28 05:19

'Sender代表什么

'我目前的理解是，Sender代表当前实例，而不是发出事件的主体

'请验证

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Console.WriteLine(sender.ToString)

'return "System.Windows.Forms.Button(, Text) : Button1()"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Console.WriteLine(sender.ToString)

'return "System.Windows.Forms.Button(, Text) : Button2()"

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Button1_Click(sender, e)

'return "System.Windows.Forms.Button(, Text) : Button3"是Button3而并非是Button1

End Sub

'这样更直观了

Dim mStr As String = "试试"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If sender Is mStr Then MsgBox(sender.ToString)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Button1_Click(mStr, e)

End Sub