对象还有一个重要的特性：事件

根据需要调用指定的功能，与对象交互作用。即：在运行过程中某动作发生后，给对象提供通知

对象引发自己的事件，通过这个机制通知客户端代码执行了重要的操作或事件。

VB.net中，可用Net委托机制提供事件支持。

1、事件处理

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

             一、Handles   Button1.Click          表明这个方法应处理Button1中的Click事件。

                     Handles的目的就是把这个方法与Button类中的Click事件关联起来。

             二、两个参数。这是因为控件类定义了这些参数（参数的个数、类型）。如果参数不对将引发错误。

      方法名Button1_Click，这无关痛痒，可以是其它名，例如：

Private Sub AAAAAXXXXX(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       所以更改方法名，只要后面的参数及Handles正确，一样正常。

2、处理多个事件

      Handles关键字提供了灵活的关联，它可以关联多个事件，这多个事件可用逗号隔开，每个事件都会导致方法运行。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click,Button2.Click

       要注意的是方法可以由多个事件引发，一个事件也可以引发多个方法。

3、WithEvents

      WithEvents告诉VB.net，要处理对象所引发的任何事件。如果不带这个关键字，那么这个对象即使有事件，也不会引发。这正如英文的意思一样。

     另一种情况，如果对象本身定义中不能引发事件，如果强行用WithEvents将会引发语法错误。

      VB.net通过检查接口，编译器可以确定哪些类引发事件，哪些类不引发事件。任何引发事件的类都会将该事件声明

      为接口的一部分。因此，用了WithEvents，就意味着使用Event（它将在类中声明哪些是事件）

4、触发事件

      我们使用事件的目的，就是触发事件。因此，我们之前应做好事件的定义、引发、接收等事件前期工作。

      首先应在类中定义好事件：用Event说明哪个是事件，用RaiseEvent来激发事件。

      在客户端使用好事件：用WithEvents来说明要用这个事件，用Hanldes来接收、响应事件。如图：

      在定义中相当于定义警铃一样，1、定义事件（哪个是警铃，是否带参数）

      然后，在方法处理中激活事件（激响警铃）

      在客户使用中，用WithEvents来说明要用警铃了，再用hanldes关联到一个方法中。

      所以RaiseEvent引发事件的，用hanldes关联的方法作为接收器来接收事件。

       Handles就是一件货物打了标签一样，到死都是这个标签，不能更改。因此，只要关联某方法后，就会一直关联。

       另外，如果接收的方法不止一个时，每次将一个事件传到一个接收器中，默认下，不能预测预测接收器接收事件的顺序。

        但，事件必须传递到所有处理程序中。这是一个连续且同步的过程，若一旦调用RaiseEvents，将无法干涉终止这个过程。

5、声明、触发定制事件

      默认下，无法控制事件的触发方式。

      为了突破这个限制，使用一种更加显式的事件声明形式，而不再用简单的Event来声明。这就是定制事件。

      委托，生活中常见的委托人，委托某人办某事，就是此意。

      委托，委托，就是你办不了事情，委托别人去办... 对计算机来说，计算机线程外的东西，是没办法直接被线程调用的

        下面是各部分的代码，先定义一个事件的委托，然后定义一个变量用来跟踪侦听的变量，然后定制事件存储与触发（结构）

Public Delegate Sub WalkedEventHandler(ByVal distance As Int32)



Private mWalkedHandlers As WalkedEventHandler



Public Custom Event Walked As WalkedEventHandler



    AddHandler(ByVal value As WalkedEventHandler)

        mWalkedhandlers = CType([delegate].combine(mWalkedhandlers, value), _WalkedEventHandler)

    End AddHandler



    RemoveHandler(ByVal value As WalkedEventHandler)

        mwalkedhandlers = CType([delegate].remove(mWalkedHandlers, value), WalkedEventHandler)

    End RemoveHandler



    RaiseEvent(ByVal distance As Integer)

        If mWalkedHandlers isnot Nothing thdn

            mWalkedHandlers.invoke(distance)

        End If

    End RaiseEvent



End Event

          上面AddHandler用于添加一个新处理程序。

                  RemoveHandler用于停止接收事件的某个事件处理程序

                  RaiseEvent 触发调用事件。

6、WithEvents

      它声明要接收该对象引发的任何事件。如果没有用WithEvents不会出错，但不会接收该对象中的事件。

7、动态的增加接收事件和取消事件

     前面的WithEvents和Handles就象难兄弟一样，成对出现，而且他们是死结，一旦出现无法取消，就象死咒一样。

     为了适应灵活的情况，可以不用上面，而使用另一对灵动的兄弟AddHanlder和RemoveHanlder。

      AddHanlder可以动态地添加事件处理程序，RemoveHanlder可以动态地删除事件处理程序。

       因为这种链接是在运行时建立的，能够更多地控制过程（比如加入判断，达到要求就可建立链接，否则没有链接

Public Class Form1

 Private mobjPerson As Person



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        mobjPerson = New Person()

        AddHandler mobjPerson.Walked, AddressOf OnWalk '动态加入事件(作用与withEvents与Handles链接类似）

    End Sub



    Private Sub OnWalk(ByVal Distance As Integer)

        MessageBox.Show("Person walked " & Distance)

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        mobjPerson.Walk(42)

    End Sub



End Class





Public Class Person

    Private mintTotalDistance As Integer

    Public Event Walked(ByVal Distance As Integer)



    Public Sub Walk(ByVal Distance As Integer)

        mintTotalDistance += Distance

        RaiseEvent Walked(Distance)

    End Sub



End Class

           注意：如果不将事件处理程序与事件分离（RemoveHanlder），对象将保留在内存中，即使上面mobjPerson不再指向对象，每个事件仍有对象的一个引用。

                       所以AddHandler与RemoveHandler必须成对出现，不然易出现内存泄露。而WithEvents会自动处理这些细节。

              下面是不同情况加入不同的链接：

同样，分离这种关系时，也应对应着分离：

    If Micro
soft.VisualBasic.Command = "nodisplay" Then

        RemoveHandler mobjPerson.Walked, AddressOf LongOnWalk

    Else

        RemoveHandler mobjPerson.Walked, AddressOf OnWalk

    End If

    mobjPerson = New Person

8、构造函数

      这个C++老讲，不再说了。

      VB.net用New做构造函数，在对象产生时进行初始化，对每个对象它只运行一次。

      不带参数的New：

 Public Sub New()

   Phone("home") = "555-1234"

   Phone("work") = "555-5678"

 End Sub

        带参数的New：

  Public Sub New(ByVal Name As String, ByVal BirthDate As Date)

    mstrName = Name

    mdtBirthDate = BirthDate

    Phone("home") = "555-1234"

    Phone("work") = "555-5678"

  End Sub

       类中可以有几个New构造函数，它们可以重载。当使用时智能会提示有几个New函数，如下面提示有2个

9、释放对象

       释放对象前面用过Nothing来解除这个引用或指针。

       对于.Net来说，尽管已经解除了所有引用有关联，但并不是立即执行释放，而是由垃圾回收机制来释放，因此，

       无法预测准确的释放对象的时间。

      释放对象有几种方法：

      一、Nothing

       二、赋予新的对象，以删除对前面对象的引用。比如已经存在mPerson对象，然后用下面分配一个新的引用

                    mPerson=New Person     '这样前面的引用就被解除了

               尽管没显式说明释放前面的对象，但这个执行后，会自动删除前面的引用。

               因为每个变量只能指向一个对象。改变指向后，前一个就失效了。

       三、走出作用域后，自动释放。如下面，方法结束后，myPerson自动释放。