Event 语句

声明用户定义的事件。

语法

[ <attrlist> ] [ accessmodifier ] _  
[ Shared ] [ Shadows ] Event eventname[(parameterlist)] _  
[ Implements implementslist ]  
' -or-  
[ <attrlist> ] [ accessmodifier ] _  
[ Shared ] [ Shadows ] Event eventname As delegatename _  
[ Implements implementslist ]  
' -or-  
 [ <attrlist> ] [ accessmodifier ] _  
[ Shared ] [ Shadows ] Custom Event eventname As delegatename _  
[ Implements implementslist ]  
   [ <attrlist> ] AddHandler(ByVal value As delegatename)  
      [ statements ]  
   End AddHandler  
   [ <attrlist> ] RemoveHandler(ByVal value As delegatename)  
      [ statements ]  
   End RemoveHandler  
   [ <attrlist> ] RaiseEvent(delegatesignature)  
      [ statements ]  
   End RaiseEvent  
End Event  

组成部分

注解

一旦声明了事件，便可使用 RaiseEvent 语句引发事件。 可以按以下片段所示声明和引发典型事件：

Public Class EventSource
    ' Declare an event.
    Public Event LogonCompleted(ByVal UserName As String)
    Sub CauseEvent()
        ' Raise an event on successful logon.
        RaiseEvent LogonCompleted("AustinSteele")
    End Sub
End Class

若要处理事件，必须使用 Handles 或 AddHandler 语句将它与事件处理程序子例程关联。 子例程和事件的签名必须匹配。 若要处理共享事件，必须使用 AddHandler 语句。

只能在模块级别使用 Event。 这意味着事件的声明上下文必须是类、结构、模块或接口，不能是源文件、命名空间、过程或块。 有关详细信息，请参阅声明上下文和默认访问级别。

在大多数情况下，可以使用本主题的“语法”部分中的第一个语法来声明事件。 但是，某些情况要求更好地控制事件的详细行为。 使用本主题“语法”部分中的最后一个语法（该语法使用 Custom 关键字）可通过使你可以定义自定义事件来提供这种控制。 在自定义事件中，可精确地指定在代码对事件添加或移除事件处理程序时，或是代码引发事件时发生的情况。 有关示例，请参阅如何：声明自定义事件以节省内存和如何：声明自定义事件以避免阻止。

示例

下面的示例使用事件从 10 秒到 0 秒进行倒计时。 代码演示了几个与事件相关的方法、属性和语句。 这包括 RaiseEvent 语句。

引发事件的类是事件源，处理事件的方法是事件处理程序。 事件源对于它生成的事件可以具有多个处理程序。 类引发事件时，会在选择用于为对象的该实例处理事件的每个类上引发该事件。

该示例还使用一个窗体 (Form1)，其中包含一个按钮 (Button1) 和一个文本框 (TextBox1)。 单击该按钮时，第一个文本框显示从 10 秒到 0 秒的倒计时。 经过了全部时间（10 秒）之后，第一个文本框会显示“Done”。

Form1 的代码指定窗体的初始和最终状态。 它还包含引发事件时执行的代码。

若要使用此示例，请打开新的 Windows 窗体项目。 然后向名为 Form1 的主窗体添加一个名为 Button1 的按钮和一个名为 TextBox1 的文本框。 右键单击该窗体，然后单击“查看代码”以打开代码编辑器。

向 Form1 类的声明部分添加一个 WithEvents 变量：

Private WithEvents mText As TimerState

将下面的代码添加到 Form1 的代码： 替换可能存在的任何重复过程，如 Form_Load 或 Button_Click。

Private Sub Form1_Load() Handles MyBase.Load
    Button1.Text = "Start"
    mText = New TimerState
End Sub
Private Sub Button1_Click() Handles Button1.Click
    mText.StartCountdown(10.0, 0.1)
End Sub

Private Sub mText_ChangeText() Handles mText.Finished
    TextBox1.Text = "Done"
End Sub

Private Sub mText_UpdateTime(ByVal Countdown As Double
  ) Handles mText.UpdateTime

    TextBox1.Text = Format(Countdown, "##0.0")
    ' Use DoEvents to allow the display to refresh.
    My.Application.DoEvents()
End Sub

Class TimerState
    Public Event UpdateTime(ByVal Countdown As Double)
    Public Event Finished()
    Public Sub StartCountdown(ByVal Duration As Double,
                              ByVal Increment As Double)
        Dim Start As Double = DateAndTime.Timer
        Dim ElapsedTime As Double = 0

        Dim SoFar As Double = 0
        Do While ElapsedTime < Duration
            If ElapsedTime > SoFar + Increment Then
                SoFar += Increment
                RaiseEvent UpdateTime(Duration - SoFar)
            End If
            ElapsedTime = DateAndTime.Timer - Start
        Loop
        RaiseEvent Finished()
    End Sub
End Class

按 F5 以运行前面的示例，然后单击标记为“Start”的按钮。 第一个文本框中开始倒计时秒数。 经过了全部时间（10 秒）之后，第一个文本框会显示“Done”。

另请参阅

• RaiseEvent 语句
• Implements 语句
• 事件
• AddHandler 语句
• RemoveHandler 语句
• 句柄数
• Delegate 语句
• 如何：声明自定义事件以节省内存
• 如何：声明自定义事件以避免阻止
• 共享
• 阴影