通过

如何：在 Visual Basic 中处理事件

  • 项目

更新：2007 年 11 月

下面的示例对调用 CauseEvent 方法时引发事件的类进行定义。此事件由一个名为 EventHandler 的事件处理程序过程进行处理。

示例

说明

若要运行此示例，请将以下代码添加到 Visual Basic Windows 应用程序项目的窗体类中，并使用整数参数调用 TestEvents 过程。

代码

Public Class Class1
    ' Declare an event for this class.
    Public Event Event1(ByVal EventNumber As Integer)
    ' Define a method that raises an event.
    Sub CauseEvent(ByVal EventNumber As Integer)
        RaiseEvent Event1(EventNumber)
    End Sub
End Class

Protected Sub TestEvents(ByVal EventNumber As Integer)
    Dim Obj As New Class1
    AddHandler Obj.Event1, AddressOf Me.EventHandler
    ' Cause the object to raise an event.
    Obj.CauseEvent(EventNumber)
End Sub

Sub EventHandler(ByVal EventNumber As Integer)
    MsgBox("Received event number " & EventNumber.ToString)
End Sub

请参见

任务

如何：编写事件处理程序

概念

事件和事件处理程序

委托和 AddressOf 运算符

AddHandler 和 RemoveHandler