关于VB.NET的事件(event)(一)

先来看一段代码:

 Public Class car Public Event star() '声明一个事件 Sub eventstar() MsgBox("引发事件过程") RaiseEvent star() '引发事件 End Sub End Class

 

在这个类中实现了一个star的事件.事件过程为eventstar.

如果想调用这个事件必须将类实例化成对象.

在模块级别写上.

WithEvents Obj As New car() '模块或类级别的声明 Sub Obj_EventHR() Handles Obj.star '在Handles之后声明事件 MsgBox("事件处理器捕捉到了事件.") '处理事件. End Sub Sub Main() Obj.eventstar() '调用事件 End Sub

在Handles中声明了一个对象的事件.

VB.NET很有意思,它还提供了一种委托的方式来触发事件

Dim obj As New car'模块级别声明了一个Obj的对象 Sub Obj_EventHR() '在Handles之后声明事件 MsgBox("事件处理器捕捉到了事件.") '处理事件. End Sub Sub Main() AddHandler Obj.star, AddressOf Obj_EventHR '使用了委托触发Obj_EventHR过程 Obj.eventstar() '调用事件 End Sub

 

我们不仅可以用委托的方式,还可以用解除委托的方式来撤消事件过程的关联.

通过在过程中添加RemoveHandler Obj.star, AddressOf Obj_EventHR

这样就可以取消委托.