Henry的VB.NET之旅（十三）—标准事件处理程序

Henry的VB.NET之旅（十三）—标准事件处理程序

y的VB.NET之旅（十三）—标准事件处理程序

韩睿

“感兴趣就好！”大李微微点点头，然后问我道，“你知道程序是怎么知道哪些对象可以引发何种事件，以及怎么样把事件和事件处理程序关联起来？”

见到我迷茫的眼神，大李用鼠标点击打开被Region合起来的“Windows 窗体设计器生成的代码”，指着中间的一句自动生成的代码：

Friend WithEvents Button1 As System.Windows.Forms.Button

“当你在设计窗口往窗体上添加了一个按钮后，会自动在代码中加入这句代码，Friend 关键字授予对一个或多个所声明的编程元素的友元访问权限。那么WithEvent是干什么的？”

我立刻在帮助中查找，有了：

WithEvents 关键字指示被声明的对象变量引用可以引发事件的类实例。

“明白了，”我也不能总傻听着，“在声明对象的时候用WithEvents来进行标识，再在事件处理程序中的过程声明结尾处使用 Handles 关键字将就可以处理由使用 WithEvents 关键字声明的对象变量所引发的事件了。”

“没错，你看来我写一段代码，使用的就是WithEvent-Handles的方法来处理事件。类名为CHenry吧，它内含一个事件EventHR。”

Module Module1

Public Class CHenry

Public Event EventHR() @# 声明一个事件

Sub CauseSomeEvent()

RaiseEvent EventHR() @# 引发事件

End Sub

End Class

WithEvents Obj As New CHenry() @#模块或类级别的声明