计算机二级标准事件处理程序
发布时间：2010/1/11 17:30:29 来源：www.xue.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() ′模块或类级别的声明
sub obj_eventhr() handles obj.eventhr ′在handles之后声明事件
msgbox("事件处理器捕捉到了事件.") ′处理事件.
end sub
sub main()
obj.causesomeevent() ′调用对象去引发事件
end sub
end module
