通过

向类中添加事件

更新：2007 年 11 月

在前面的课程详细了解：了解属性、方法和事件中，您了解了程序可以对外部事件（例如，用户单击按钮）做出响应。在本课中，您将学习如何向类中添加自己的事件。

声明和引发事件

向类中添加事件时必须执行两个步骤。首先必须声明事件，然后必须引发事件。引发事件是指发出发生事件的信号。若要向类中添加事件，需要使用 Event 语句来声明它。这表明对象可以引发您指定的事件。例如，您可以向在课程对实际对象进行建模：创建您的第一个类中创建的 Persons 类添加一个 AgeCalculated 事件。然后，您可以在所创建的 CalcAge 方法中引发该事件。这样一来，当调用该方法时，只要计算了某人的年龄，便可以运行某些附加代码。

试一试！

将事件添加给类

  1. 打开在上一课中创建的 Persons 项目。如果没有保存该项目，则必须首先返回上一课向类添加方法并完成相应步骤。

  2. 在“解决方案资源管理器”中，选择“Persons.vb”，然后在“视图”菜单上单击“代码”。

  3. 在属性过程的上面添加以下代码。

    Public Event AgeCalculated(ByVal Age As Single)

  4. 在 CalcAge 方法中，用以下代码替换现有代码以引发事件。

    Private Function CalcAge(ByVal year As Integer) As Integer
    Dim Age = My.Computer.Clock.LocalTime.Year - year
    RaiseEvent AgeCalculated(Age)
    CalcAge = My.Computer.Clock.LocalTime.Year - year
End Function

  5. 在“文件”菜单上，单击“全部保存”以保存所做的工作。

后续步骤

在本课中，您学习了如何向类中添加事件以及如何在方法中引发事件。在详细了解：处理事件中您可以学习如何编写事件处理程序以便在引发事件时运行附加代码。在下一课中，您还将学习如何使用和测试所创建的类。

下一课：测试类

请参见

任务

向类添加属性

向类添加方法

其他资源

使用对象编程：使用类