VB.NET事件在实际应用中有什么用

这篇文章主要介绍了VB.NET事件在实际应用中有什么用,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。

目前创新互联建站已为上1000家的企业提供了网站建设、域名、虚拟空间、网站托管运营、企业网站设计、单县网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

VB.NET中的类的构造函数是

  1. sub New()   

  2. end sub  

当然,你也可以加参数。比如Human类的构造函数:

  1. sub New(Byval Name as string, 
    byval Gender as String, byval 
    Stature as integer)   

  2. me.Name = Name 'me是VB.NET中的
    关键字,表示对象自己,如同java中   

  3. me.Gender = Gender '的this。
    java中的super在VB.NET中就是MyBase   

  4. me.Stature = Stature   

  5. end sub  

这样,我们的老王就是

  1. dim LaoWang As new Human
    ("老王", "男", 177)   

这样的话,构造Human对象的时候就必须带参数了。我们可以另加一个不带参数的New过程。这里就略过了。

对象不是死的,是活的。对象应该能够主动向外界做出一些表示。这就是事件。比如一个人生了病。这个时候我们就要把他送到医院去。我们先在Human类当中定义一个VB.NET事件:

public event FallIll

我们假设某人暴饮暴食,吃出病了。在Eat过程中写上:

  1. public sub Eat()   

  2. raiseevent FallIll 
    'raiseevent用来引发一个事件   

  3. end sub  

外界怎样来接收这个事件呢?用AddHandler。我们要在sub Main中先定义一个过程:

  1. sub GoToHospital   

  2. Console.WriteLine
    ("病人被送到医院去了。")   

  3. end sub   

然后将这个过程绑定到一个具体的对象的事件上:

  1. AddHandler LaoWang.FallIll, 
    AddressOf GoToHospital  

这样,一旦执行LaoWang.Eat,就会引发FallIll事件,这时GoToHospital过程就会执行。VB.NET事件完整的代码如下:

imports System   public module MyModule

sub Main '在sub Main中并未直接调用GoToHospital。

  1. dim LaoWang as Human   

  2. LaoWang = new Human("老王", "男", 177)   

  3. AddHandler LaoWang.FallIll,
     AddressOf GoToHospital   

  4. Console.writeline("{0}, {1}, 
    身高{2}厘米", _   

  5. LaoWang.Name, LaoWang.Gender,
     LaoWang.Stature)   

  6. LaoWang.Eat() '这里引发事件   

  7. Console.Read   

  8. end sub   

  9. sub GoToHospital   

  10. Console.WriteLine("病人被送到医院去了。")   

  11. end sub   

  12. end module   

  13. public class Human   

  14. public Name as String   

  15. public Gender as String   

  16. public Stature as integer   

  17. sub New(Byval Name as string, byval 
    Gender as String, byval Stature as integer)   

  18. me.Name = Name   

  19. me.Gender = Gender   

  20. me.Stature = Stature   

  21. end sub   

  22. sub New() '不带参数的构造函数   

  23. end sub   

  24. public event FallIll   

  25. public sub Eat()   

  26. raiseevent FallIll   

  27. end sub   

  28. public sub Sleep()   

  29. end sub   

  30. public sub SeeADoctor()   

  31. end sub   

  32. public function Born() as Human   

  33. if Gender = "女" then   

  34. return new Human("","",50)   

  35. else   

  36. return nothing   

  37. end if   

  38. end function   

  39. end class  

VB.NET事件还可以带参数。这样在事件引发的时候可以附带一个与事件有关的对象,以便事件的捕获者对其进行处理。
比方我们把FallIll的定义改为:

  1. public event FallIll
    (Byval Name as String) 

然后把Eat的内容改为:

  1. raiseevent FallIll(me.Name)
     '将病人的名字交给事件的捕获者。  

接着把GoToHospital的定义改为:

  1. sub GoToHospital(Byval Name 
    as String)
    '该过程的参数数量和种类必须与其捕获
    的event的参数相同。   

  2. Console.WriteLine(Name & 
    "被送到医院去了。")   

  3. end sub  

这时候运行我们就会看到:“老王被送到医院去了。”

感谢你能够认真阅读完这篇文章,希望小编分享的“VB.NET事件在实际应用中有什么用”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!


文章名称:VB.NET事件在实际应用中有什么用
链接地址:http://scyanting.com/article/ghcsep.html