事件不可思议的恋爱经历

一个事件认识另一个事件结为恋人即：addhandler   事件,addressof  事件1


一个事件与另一个事伯分手：        removehandler    事件,addressof   事件1



不可思议地是，两个事件认识居然和恋人相识一样，有下面情况。


一、媒人（第三方）介绍：

Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("2")
        RemoveHandler Button1.Click, AddressOf Button2_Click
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Button1.Click, AddressOf Button2_Click
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("1")
    End Sub
End Class

这个媒人就是form1_load

小心：看一下弹出的顺序，点button1可以看出先弹出1，再弹出2.



二、恋人中一人主动认识另一方：

Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("2")
        RemoveHandler Button1.Click, AddressOf Button2_Click
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("1")
        AddHandler Button1.Click, AddressOf Button2_Click
    End Sub
End Class

主动认识的就是button1,点击第一次只弹出1，不会弹出2，因为，他们还没“认识”，再点一次button1，会先弹1后2，说明经过前面已经结为恋人。

同理，加在button2中一样。

同样注意的是，可以通过第三方，两个事件可以平和的“分手”，当然也可决然的主动自己分手(removehandler)