Event 语句

示例

定义用户自定义的事件。

语法

[Public] Event procedurename [(arglist)]

Event 语句包含下面部分：

部分 描述
Public 可选的。指定该 Event 在整个工程中都是可见的。缺省情况下 Events 类型是 Public。应注意，事件只能在所声明的模块中产生。
procedurename 必需的。事件的名称；遵循标准的变量命名约定。

arglist 参数的语法及语法的各个部分如下：

[ByVal | ByRef] varname[( )] [As type]

部分 描述
ByVal 可选的。表示该参数是按值传递的。
ByRef 可选的。表示该参数是按地址传递的。ByRef 是 Visual Basic 的缺省设置。
varname 必需的。代表要传递给过程的参数变量的名称；遵循标准的变量命名约定。
type 可选的。指传递给过程的参数的数据类型；可以是 Byte、布尔、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）、Object、Variant、用户定义类型或对象类型。

说明

事件被声明之后，就可以使用 RaiseEvent 语句来产生该事件。如果在标准模块中出现 Event 声明，就会产生语法错误。不能声明带返回值的事件。在下面的代码段中，给出了声明事件和产生事件的典型事件：

'在类模块的模块级中声明一个事件Event LogonCompleted (UserName as String)Sub
   RaiseEvent LogonCompleted("AntoineJan")
End Sub

注意 可以象声明过程的参数一样来声明事件的参数，但有以下不同：事件不能有带命名参数、Optional 参数、或者 ParamArray 参数。事件没有返回值。

　

Event 语句示例

下面的示例是在百米赛跑演示中使用事件来计时。代码说明了所有与事件相关的方法、属性和语句，包括 Event 语句。

产生事件的类是事件源，实现该事件的类则是事件吸收。一个事件源可以有多个针对其所产生的事件的漏。事件可以被每个选定出为对象的实例吸收事件的类所触发。

该示例使用了一个窗体 (Form1)，该窗体有一个按钮 (Command1)，一个标签 (Label1)，以及两个文本框 (Text1 和 Text2)。单击按钮后，第一个文本框显示 "From Now"，第二个文本框中时钟开始计时。当经过 9.84 秒（百米记录）之后，第一个文本框显示 "Until Now"，第二个则显示 "9.84"。

Form1 代码用于指定该窗体的初始状态和终止状态，也包含了事件产生后所要执行的代码。

Option ExplicitPrivate WithEvents mText As TimerStatePrivate Sub Command1_Click()
Text1.Text = "From Now"
    Text1.Refresh
    Text2.Text = "0"
    Text2.Refresh
Call mText.TimerTask(9.84)
End SubPrivate Sub Form_Load()
    Command1.Caption = "Click to Start Timer"
    Text1.Text = ""
    Text2.Text = ""
    Label1.Caption = "The fastest 100 meter run took this long:"
    Set mText = New TimerState
    End SubPrivate Sub mText_ChangeText()
    Text1.Text = "Until Now"
    Text2.Text = "9.84"
End SubPrivate Sub mText_UpdateTime(ByVal dblJump As Double)
    Text2.Text = Str(Format(dblJump, "0"))
    DoEvents
End Sub

下面是 TimerState 类模块的代码。事件产生后 Event 语句声明被初始化的过程。

Option Explicit
Public Event UpdateTime(ByVal dblJump As Double)
Public Event ChangeText()Public Sub TimerTask(ByVal Duration As Double)
    Dim dblStart As Double
    Dim dblSecond As Double
    Dim dblSoFar As Double
    dblStart = Timer
    dblSoFar = dblStart
    
    Do While Timer < dblStart + Duration
        If Timer - dblSoFar >= 1 Then
            dblSoFar = dblSoFar + 1
            RaiseEvent UpdateTime(Timer - dblStart)
        End If
    Loop
    
    RaiseEvent ChangeText
    
End Sub

　

相关基础知识：

　

工程

模块的集合。

　

模块

一组声明集合，其后为过程。

　

参数

传递给一个过程的常数、变量或表达式。

　

按值

一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。

　

按地址

一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值。除非另作说明，否则按地址传递参数。

　

过程

命名的语句序列，可作为单元来执行。例如，Function、Property和 Sub 都是过程类型。总是在模块级别定义过程的名称，所有可执行的代码必须包含在过程内，一过程不能套在其它过程中。

　

数据类型

变量的特性，用来决定可保存何种数据。数据类型包括 Byte、Boolean、Integer、Long、Currency、Decimal、Single、Double、Date、String、Object、Variant ( 默认 ) 和用户定义类型等。

　

Byte 数据类型

一种范围为正整型 0–255 的数据类型，以单精度来存储，即无符号的 8 位 (1 个字节) 数字。

　

Boolean 数据类型

只有两种值的数据类型，这两种值分别为 True(-1) 或 False(0)。布尔变量是以 16 位 ( 2 字节 ) 数字存储的。

　

Integer 数据类型

一种数据类型，将整型变量作为 2 字节整数存储起来，范围是 -32,768 到 32,767 之间的数字。Integer 数据类型也可表示列举值。在 Visual Basic 可用百分比符号 (%) 的类型声明字符来表示一个 Integer。

　

Long 数据类型

�4 字节的整型值，取值范围从 -2,147,483,648 到 2,147,483,647。在 Visual Basic中可用符号 (&) 的类型声明字符来表示 Long。

　

Currency 数据类型

范围从 -922,337,203,685,477.5808到 922,337,203,685,477.5807 的数据类型。用可用这一数据类型来做财务运算和精确度要求高的运算。在 Visual Basic 可用 @ 声明字符来表示 Currency。

　

Single 数据类型

数据类型，将单精度浮点变量存储为 32 位 (4 字节) 浮点数，对于负数，其范围为 -3.402823E38 到 -1.401298E-45；对于正数，其范围为 1.401298E-45 到 3.402823E38。在 Visual Basic 中可用类型声明字符 (!) 表示 Single。

　

Double 数据类型

保存双精度的 64 位浮点数的数据类型。对于负数，其范围为 -1.79769313486232E308 到 -4.94065645841247E-324；对于正数，其范围为 4.94065645841247E-324 到 1.79769313486232E308。在 Visual Basic中，数字符号 (#) 为表示 Double 的类型声明字符。

　

Decimal 数据类型

包含小数数值的数据类型。对于没有小数点的数字，其范围是 +/-79,228,162,514,264,337,593,543,950,335。对于有 28 个小数位的数而言，其范围是 +/-7.9228162514264337593543950335。Decimal 的最小非零数值可表示为 0.0000000000000000000000000001。

注意，此时 Decimal 数据类型只可以在 Variant 内使用。不能将变量声明为 Decimal 类型。但是，可创建一个 Variant ，其子类型为使用 Cdec 函数的 Decimal。

　

Date 数据类型

将日期和时间当作实数来存储的数据类型。以 64 位 (8 个字节) 数字来存储Date 变量。小数点左方为日期，小数点右方为时间。

　

String 数据类型

包含一连串字符的数据类型，而且它们表示字符本身，而不表示它们的数值。字符串可以包括字母、数字、空白和标点符号。String 数据类型可以存储从 0 到 63K 固定长度的字符串，也可存储从 0 到约 2 兆字符长度的动态字符串。在 Visual Basic 中可用符号 ($) 的类型声明字符来表示一字符串

　

Variant 数据类型

一种特殊的数据类型，可以包含数值、字符串或日期数据，还包含自定义类型和特殊数值 Empty 和 Null。Variant 数据类型有 16 字节的数值存储大小，可以包含的数据可达 Decimal 的范围，或 22- 字节( 加上字符串长度 ) 的字符存储大小，而且可存储任何字符文本。VarType 函数定义了如何处理 Variant 中的数据。对所有变量，如果没有明确声明它们是其它数据类型，则它们都变成 Variant 数据类型。

　

用户定义类型

用 Type 语句定义的数据类型。用户定义的数据类型可包含一个或多个任意数据类型的元素。用 Dim 语句创建用户定义的数组和其它数据类型。用户定义类型可包括任何类型的数组。

　

标准模块

只包含过程、类型以及数据的声明和定义的模块。在标准模块中，模块级别声明和定义都被默认为 Public。在 Visual Basic 的早期版本中将标准模块看作代码模块。