详细分析VB.NETWithEvents

VB.NET经过长时间的发展,很多用户都很了解VB.NET WithEvents了,这里我发表一下个人理解,和大家讨论讨论。VB除了可以用C#那样的方法来处理事件响应以外,还有从VB5继承下来的独特的事件处理方式——VB.NET WithEvents。

两当网站建设公司创新互联,两当网站设计制作,有大型网站制作公司丰富经验。已为两当上千余家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱,请找那个售后服务好的两当做网站的公司定做!

我喜欢称这种事件处理方式为静态的事件处理,书写响应事件的方法时就已经决定该方法响应的是哪一个事件,而C#则是在代码中绑定事件的。比如下面这个最简单的例子:

 
 
 
  1. Public Class HandlerClass  
  2. Public WithEvents MyObj As EventClass  
  3.  
  4. Private Sub MyObj_MyEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyObj.MyEvent  
  5. MsgBox("hello")  
  6. End Sub  
  7.  
  8. Public Sub New()  
  9. MyObj = New EventClass  
  10. End Sub  
  11. End Class 

代码中用到的EventClass是这样的:

 
 
 
  1. Public Class EventClass  
  2. Public Event MyEvent As EventHandler  
  3.  
  4. Protected Overridable Sub OnMyEvent(ByVal e As EventArgs)  
  5. RaiseEvent MyEvent(Me, e)  
  6. End Sub  
  7.  
  8. Public Sub Test()  
  9. OnMyEvent(New EventArgs)  
  10. End Sub  
  11. End Class 

我们来复习一下,这段代码隐式地给EventClass编写了两个方法——Add_MyEvent(EventHandler)和 Remove_MyEvent(EventHandler),实际上任何使用事件的上下文都是通过调用这两个方法来绑定事件和解除绑定的。C#还允许你书写自己的事件绑定/解除绑定的代码。

那么WithEvents是怎么工作的呢?VB.net的编译器在编译时自动将

 
 
 
  1. Public WithEvents MyObj As EventClass 

翻译成下面这个过程:

 
 
 
  1. Private _MyObj As EventClass  
  2.  
  3. Public Property MyObj() As EventClass  
  4. Get  
  5. Return _MyObj  
  6. End Get  
  7. Set(ByVal Value As EventClass)  
  8.  
  9. If Not (Me._MyObj Is Nothing) Then  
  10. RemoveHandler _MyObj.MyEvent, AddressOf MyObj_MyEvent  
  11. End If  
  12.  
  13. Me._MyObj = Value 
  14.  
  15. If Me._MyObj Is Nothing Then Exit Property  
  16.  
  17. AddHandler _MyObj.MyEvent, AddressOf MyObj_MyEvent  
  18.  
  19. End Set  
  20. End Property 

由此可见,当对VB.NET WithEvents变量赋值的时候,会自动触发这个属性以绑定事件。我们所用的大部分事件响应都是1对1的,即一个过程响应一个事件,所以这种VB.NET WithEvents静态方法是非常有用的,它可以显著增强代码可读性,同时也让VB.net中的事件处理非常方便,不像C#那样离开了窗体设计器就必须手工绑定事件。

不过在分析这段IL的时候,我也发现了VB.net在翻译时小小的问题,就是ldarg.0出现得过多,这是频繁使用Me或this的表现,所以我们在编码过程中一定要注意,除了使用到Me/this本身引用以外,使用它的成员时不要带上Me/this,比如Me.MyInt = 1就改成MyInt = 1,这样的小习惯会为你带来很大的性能收益。

文章题目:详细分析VB.NETWithEvents
标题网址:http://www.gawzjz.com/qtweb/news15/195915.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联