'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