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