vb.net 灵活注册事件，达到可以有条件调用事件的目的

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        AddHandler Button1.Click, AddressOf Dosomething   
    End Sub
    Private Sub Dosomething(sender As Object, e As EventArgs)
        MsgBox("hell")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim obj As New clsCAL
        obj.A = 1
        obj.B = 5
        MsgBox(obj.C)

        obj.A = 2
        MsgBox(obj.C)
    End Sub
End Class

 

 

 

1     AddHandler Button1.Click, AddressOf Dosomething    这行代码的含义是，当完成了Button1的单击后，自动调用Dosomething函数。由于注册事件的代码是在窗体加载的过程中完成的，所以就达到了有条件调用事件的响应代码的目的

2   Button1单击后，事件的调用顺序为    Button1_Click(----->  Dosomething