VB.NET里面的Event机制（二）

现在我们看看下面的类。

Public Class Class1

    Inherits Object

    Private WithEvents MyButton As New Button

    Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs, ByRef Cancal As Boolean)

    Public Event MyExtendedEvent(ByVal sender As Object, ByVal e As EventArgs)

    Private Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click

        Dim blnCancel As Boolean = False

        RaiseEvent MyEvent(Me, New EventArgs, blnCancel)

        ExtendedCommand()

    End Sub

    Private Sub ExtendedCommand()

        RaiseEvent MyExtendedEvent(Me, New EventArgs)

    End Sub

End Class

我们定义了两个Event，一个是MyEvent，另一个是MyExtendedEvent。我们在Button.Click的时候，触发了我们的MyEvent，随后我们通过调用ExtendedCommand函数触发下一个Event。看来没有什么问题，用户在使用的时候，依照往常一样。

Public Class Test

    Inherits Object

    Private WithEvents MyClass1 As Class1

    Private Sub MyClass1_MyEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyClass1.MyEvent

        Console.WriteLine("MyEvent ... ")

    End Sub

    Private Sub MyClass1_MyExtendedEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyClass1.MyExtendedEvent

        Console.WriteLine("MyExtendedEvent ... ")

    End Sub

End Class

看来一切都没有问题。但是我们有一个蹩脚的用户有这样的要求，他希望按照一个判断，确定是否执行MyEvent的后续操作。并且如果不执行后续操作的话，也不要引发MyExtendedEvent这个事件。

现在看看我们怎么做呢？我们可以简单的实现第一个要求，就在MyClass1_MyEvent函数里面加入一些判断就可以了。

    Private Sub MyClass1_MyEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyClass1.MyEvent

        If m_blnGo = True Then

            Console.WriteLine("MyEvent ... ")

        End If

    End Sub

但是我们的第二个问题就没有办法解决了，因为无论我们在MyClass1_MyEvent下面做了多少工作，程序都回执着的回到RaiseEvent那条语句，然后执行ExtendedCommand，进而触发了MyExtendedEvent事件。所以这时候，我们应该回头看看我们的类是不是有些问题了。

我们的问题确实存在，就是我们在Button.Click后无条件的RaiseEvent了。使用者没有办法阻止这一切的发生。他们能做的就是在RaiseEvent的时候加入一些操作，但是无论如何不能修改我们原先的操作。这看来着实让人沮丧，就好像订阅短信之后无法退订一样。现在我们看看怎么来解决这个问题，就是说我们提供给使用者功能的同时，我们还应该提供给他们如何取消这些功能的办法（虽然这个功能可能很好）。

我们首先把着眼点放在了Event的参数里面，我们可以通过参数将一些信息传递给用户，自然我们也能供通过参数将用户的要求反馈回来。

我们这样修改我们的程序。

Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs, ByRef Cancel As Boolean)

现在Event通过一个ByRef Cancel As Boolean参数将用户的要求返回回来。这样我们就可以在MyClass1里面知道了用户有什么要求。如果Cancel=True的时候，表明了用户希望终止这个事件之后的所有操作。这样我们的调用函数就变成。

    Private Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click

        Dim blnCancel As Boolean = False

        RaiseEvent MyEvent(Me, New EventArgs, blnCancel)

        If blnCancel = False Then

            ExtendedCommand()

        End If

    End Sub

这样使用者使用这个事件的时候，就可以控制这个事件之后的操作了。

    Private Sub MyClass1_MyEvent1(ByVal sender As Object, ByVal e As System.EventArgs, ByRef Cancel As Boolean) Handles MyClass1.MyEvent

        If m_blnGo = True Then

            Console.WriteLine("MyEvent ... ")

        Else

            Cancel = True

        End If

    End Sub

如果用户不希望操作，那么他通过Cancel = True就可以把此后的操作都撤销掉。

这样的操作在我们制作工具控件的时候特别有用，比如我们在Button.Click的时候显示一个默认的字符串，但是用户可以修改是否显示、内容，这时候用这种方法最为合适。

我们定义一个Event，通过参数传递Cancel和Message。如果Cancel为False的时候，我们就把Msg显示出来。

Public Class ShowMessage

    Inherits Object

    Public Event ShowMessage(ByVal sender As Object, ByVal e As EventArgs, ByRef Cancel As Boolean, ByRef Message As String)

    Private Const CST_MSG As String = "This is default message."

    Private WithEvents Button1 As New Button

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

        Dim Cancel As Boolean = False

        Dim Msg As String = CST_MSG

        RaiseEvent ShowMessage(Me, New EventArgs, Cancel, Msg)

        If Cancel = False Then

            MsgBox(Msg)

        End If

    End Sub

End Class

而Cancel和Msg的内容，我们实现给定了默认值，由用户来决定。如果用户什么都不做，那么就是显示默认的内容了。

Public Class TestShowMessage

    Inherits Object

    Friend WithEvents ShowMessage1 As New ShowMessage

    Private m_blnNeedShow, m_blnCustomShow As Boolean

    Private Sub ShowMessage1_ShowMessage(ByVal sender As Object, ByVal e As System.EventArgs, ByRef Cancel As Boolean, ByRef Message As String) Handles ShowMessage1.ShowMessage

        If m_blnNeedShow = True Then

            If m_blnCustomShow = True Then

                Message = "This is custom message."

            End If

            Cancel = False

        Else

            Cancel = True

        End If

    End Sub

End Class

但是我们发现了一个新的问题，如果我们的参数很多很多，难道我们的Event就要无限的延长了么？我们这时候还是可以从参数来入手，看看.NET自己是怎么做的。