VB.NET动态事件具体处理方式详解

开发 后端
VB.NET动态事件的操作是一个比较复杂的操作过程。我们可以通过本文介绍的内容对此进行一个详尽的了解,加深我们的印象。

VB.NET编程语言的推出为开发人员带来了非常大的好处。在这里我们将会对VB.NET动态事件的一些使用技巧进行一个详细的介绍,希望能够对初学者在学习的过程有所帮助,提高大家对这项语言的理解程度。#t#

“大李哥,”我不免为自己问了如此多的问题而不好意思起来,“您刚才所说的事件的委托是怎么回事呀?”

大李显然是明白我会提问的:“我所说过事件驱动设计中的三要素你还记得吧?”

“当然,就是指对象、事件和事件处理程序。”我流利地回答道。

“对象和事件处理程序我们已经分析过了。要想彻底了解VB.NET动态事件的驱动程序的来龙去脉,我们必须了解事件的构成。”见到我又一次茫然地摇头,他就接着说,“事件功能是由三个互相联系的元素提供的:提供事件数据的类、事件委托和引发事件的类。我说过,事件就是一个信号,它告知应用程序有重要情况要发生。那么我们可以想象一下,事件要发生,就会含有独特的信息,比如,事件发送源是什么,会发生什么样的事件。提供事件数据的类就是用于记录这些信息的。

该类必须从 System.EventArgs 派生出,这个我们已经说过了;事件的委托,这其实我也说过了,就好比是指向事件接收方的一个指针,由于指定对象的事件是独特的,所以它的委托也是事先定义好的,就比如MouseDown事件,它对应的委托就是MouseEventHandler。我们看一下你在代码窗口选Label1对象的MouseDown方法,会自动生成这段空的事件处理程序:

 

  1. Friend WithEvents Label1 As 
    System.Windows.Forms.Label  
  2. Private Sub Label1_MouseDown
    (ByVal sender As Object, ByVal e As _  
  3. System.Windows.Forms.Mouse
    EventArgs) Handles Label1.MouseDown  
  4. End Sub 

 

它其实就等同于:

 

  1. AddHandler Label1.MouseDown, 
    AddressOf Label1_MouseDown  
  2. Private Sub Label1_MouseDown
    (ByVal sender As Object, ByVal e As _  
  3. System.Windows.Forms.MouseEventArgs)  
  4. End Sub 

 

隐含的意思,就是通过先前已经声明为全局变量的VB.NET动态事件委托MouseEventHandler来实现事件处理程序参数的定义。对于MouseDown事件而言,为什么自动加上的事件数据类参量是MouseEventArgs类的,就是委托的作用了。

第三个要素是引发事件的类。该类必须提供事件的声明和引发事件的方法。其中引发事件的方法必须命名为On加上事件名的形式,比如事件是EventHR,那么引发事件的方法就一定叫OnEventHR。”

一边说着,大李开始修改起刚才用于标准事件处理程序的代码来:

 

  1. Module Module1  
  2. '事件数据类  
  3. Public Class HenryEventArgs  
  4. Inherits EventArgs  
  5. End Class  
  6. '声明委托  
  7. Public Delegate Sub HenryEvent
    Handler(ByVal sender As Object, _  
  8. ByVal e As HenryEventArgs)  
  9. Public Class CHenry  
  10. ' 声明一个事件  
  11. Public Event EventHR As 
    HenryEventHandler  
  12. Protected Overridable Sub 
    OnEventHR(ByVal e As HenryEventArgs)  
  13. '调用委托  
  14. RaiseEvent EventHR(Me, e)  
  15. End Sub  
  16. Public Sub start()  
  17. Dim e As HenryEventArgs  
  18. OnEventHR(e)  
  19. End Sub  
  20. End Class  
  21. Dim obj As New CHenry()  
  22. Sub obj_EventHR(ByVal 
    sender As Object, ByVal 
    e As HenryEventArgs)  
  23. MsgBox("事件处理器捕捉到了
    事件.") '处理事件.  
  24. End Sub  
  25. Sub Main()  
  26. AddHandler obj.EventHR, 
    AddressOf obj_EventHR  
  27. obj.start()  
  28. End Sub  
  29. End Module 

 

大李指着写好的代码对我说:“你看,这段代码与先前的不同之处有不少。首先EventHR事件我定义为一个委托类型,不再是光秃秃的一个VB.NET动态事件了。这样的话,EventHR事件就具有了承载事件信息的能力,事件发送源是Sender;事件数据是HenryEventArgs类的对象。其他的你应该都能很快就明白了,对吧?”

“嗯,还有一个问题,为什么引发事件的方法OnEventHR要用保护的方法呢?”我还是有些不解。

“这个问题问得好!”大李点了点头,“这是为了让派生类必须始终调用基类的OnEventHR方法以确保注册的委托接收到事件。你只要试一下,继承CHenry得到一个派生类进行事件处理,就会明白了。”

哦,一个VB.NET动态事件驱动程序设计方法的讲述的确让我大开眼界,打开了一扇了解VB.NET的广阔天空的大门,继续努力,我还得加油呀!

责任编辑:曹凯 来源: 豆豆网
相关推荐

2010-01-22 18:32:23

VB.NET数据并发性

2010-01-18 16:58:29

VB.NET Over

2010-01-07 17:57:22

VB.NET构造函数

2010-01-12 18:12:58

VB.NET事件

2010-01-13 09:45:53

VB.NET Arra

2009-10-12 15:44:26

VB.NET动态编码技

2010-01-11 17:40:36

VB.NET相框效果

2009-10-27 11:39:03

VB.NET事件处理程

2010-01-22 17:12:08

VB.NET访问Ifr

2010-01-20 17:41:13

VB.NET标记语句

2010-01-19 16:55:46

VB.NET声明语句

2010-01-18 19:04:29

VB.NET组件叠加

2010-01-07 14:52:41

VB.NET运算符

2010-01-12 11:55:10

VB.NET网络监控

2010-01-11 17:30:40

VB.NET播放声音

2009-10-23 17:03:18

VB.NET事件编程

2010-01-14 17:33:47

VB.NET重载事件处

2010-01-21 17:34:48

VB.NET Bool

2009-10-20 17:38:54

VB.NET Comp

2010-01-12 18:35:43

VB.NET Stru
点赞
收藏

51CTO技术栈公众号