在ASPF里，整理了许多和类相关的内容

发布时间：2023-09-14 10:48:03 所属栏目：Asp教程来源：

导读：Class 对象
使用 Class 语句创建的对象。提供了对类的各种事件的访问。

说明

不允许显式地将一个变量声明为 Class 类型。在 VBScript 的上下文中，“类对象”一词指的是用 VBScript Class 语句定义

Class 对象
使用 Class 语句创建的对象。提供了对类的各种事件的访问。

说明

不允许显式地将一个变量声明为 Class 类型。在 VBScript 的上下文中，“类对象”一词指的是用 VBScript Class 语句定义的任何对象。

在使用 Class 语句建立了类定义之后，可以用下面的形式创建类的一个实例：

Dim X
Set X = New classname
由于 VBScript 是一种后期约束型语言，下面的做法是不允许的：

Dim X as New classname
-或-

Dim X
X = New classname
-或-

Set X = New Scripting.FileSystemObject

Class 对象的事件
Class 对象提供对类的事件的访问。

Initialize 事件
在创建类的实例时发生此事件。

Private Sub Class_Initialize()
语句
End Sub
当类初始化时，statements部分由零个或多个将要运行的代码语句组成。

说明
下面的例子演示了 Initialize 事件的用法。

Class TestClass
Private Sub Class_Initialize ' 设置 Initialize 事件。
MsgBox("TestClass started")
End Sub
Private Sub Class_Terminate ' 设置 Terminate 事件。
MsgBox("TestClass terminated")
End Sub
End Class

Set X = New TestClass ' 创建一个 TestClass 实例。
Set X = Nothing ' 删除实例。

Terminate 事件

在所关联的类的实例终止时发生此事件。

Private Sub Class_Terminate()
语句
End Sub
当类初始化时，statements 部分由零个或多个将要运行的代码语句组成。

说明
下面的例子演示了 Terminate 事件的用法。

Class TestClass
Private Sub Class_Initialize ' 设置 Initialize 事件。
MsgBox("TestClass started")
End Sub
Private Sub Class_Terminate ' 设置 Terminate 事件。
MsgBox("TestClass terminated")
End Sub
End Class
Set X = New TestClass ' 创建一个 TestClass 实例。
Set X = Nothing ' 删除实例。

Class 语句
声明一个类的名称，以及组成该类的变量、属性和方法的定义。
Class name
statements
End Class
参数
name 　必选项。Class 的名称；遵照标准的变量命名规则。
statements 　必选项。一个或多个语句，定义了 Class 的变量、属性和方法。

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!