VBS教程:VBscript语句-Class 语句_vbs

Class 语句

声明一个类的名称,以及组成该类的变量、属性和方法的定义。

Class name
    statements
End Class

参数

name

必选项。Class 的名称;遵照标准的变量命名约定。

statements

必选项。一个或多个语句,定义了 Class 的变量、属性和方法。

说明

Class 块中,成员通过相应的声明语句被声明为 PrivatePublic。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的,对 Class 块之外的代码也是可见的。没有使用 PrivatePublic 明确声明的被默认为 Public。 在类的块内部被声明为 Public 的过程 (SubFunction)将成为类的方法。Public 变量将成为类的属性,同使用 Property GetProperty LetProperty Set 显式声明的属性一样。 类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。关于如何使用该关键字,请参考单独的声明语句主题。

要求

版本 5

时间: 2024-09-16 06:46:58

VBS教程:VBscript语句-Class 语句_vbs的相关文章

VBS教程:方法-Clear 方法_vbs

Clear 方法 清除 Err 对象的所有属性设置. object.Clear object 应为 Err 对象的名称. 说明 在错误处理后,使用 Clear 显式地清除 Err 对象.此操作是必须的,例如使用 On Error Resume Next 延迟错误处理时.在任何时候执行下列语句,VBScript 自动调用 Clear 方法: On Error Resume Next Exit Sub Exit Function 下面例子举例说明如何使用 Clear 方法. '发生错误继续下一步Er

VBS教程:函数-Eval 函数_vbs

Eval 函数 计算一个表达式的值并返回结果.  [result = ]Eval(expression) 参数 result 可选项. 是一个变量,用于接受返回的结果.如果未指定结果,应考虑使用 Execute 语句代替. expression 必选项.可以是包含任何有效 VBScript 表达式的字符串. 说明 在 VBScript 中,x = y 可以有两种解释.第一种方式是赋值语句,将 y 的值赋予 x.第二种解释是测试 x 和 y 是否相等.如果相等,result 为 True:否则 r

VBS教程:函数-GetObject 函数_vbs

GetObject 函数 返回对文件中 Automation 对象的引用. GetObject([pathname] [, class]) 参数 Pathname 可选项.字符串,包含待检索对象的文件的完整路径和名称.如果省略 pathname 则必须有 class. Class 可选项.字符串,对象的类. class 参数的语法格式为 appname.objectype,其中包括以下部分: 参数 appname 必选项.字符串,提供对象的应用程序名称. objectype 必选项.字符串,要创

VBS教程:对象-Drives 集合_vbs

Drives 集合 只读所有可用驱动器的集合. 说明 无论是否插入媒体,可移动媒体驱动器都显示在 Drives 集合中. 以下代码举例说明如何获得 Drives 集合并使用 For Each...Next 语句枚举集合成员: ShowDriveList 函数 Dim fso, d, dc, s, n Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d in dc n =

VBS教程:方法-WriteLine 方法_vbs

WriteLine 方法 向 TextStream 文件写入指定字符串和新行字符. object.WriteLine([string]) 参数 object 必选项.应为 TextStream 对象的名称. string 可选项.要写入文件的文本.如果省略,将向文件写入新行字符. 说明 下面例子举例说明如何使用 WriteLine 方法: Function WriteLineToFile Const ForReading = 1, ForWriting = 2 Dim fso, f Set fs

VBS教程:函数-Array 函数_vbs

Array 函数 返回包含数组的 Variant. Array(arglist) arglist 参数是赋给包含在 Variant 中的数组元素的值的列表(用逗号分隔).如果没有指定此参数,则将会创建零长度的数组. 说明 用于引用数组元素的表示符,由跟随有括号的变量名组成,括号中包含指示所需元素的索引号.在下面的示例中,第一条语句创建名为 A 的变量.第二条语句将一个数组赋值给变量 A.最后一条语句将包含在第二个数组元素中的值赋值给另一个变量. Dim AA = Array(10,20,30)B

VBS教程:对象-Folders 集合_vbs

Folders 集合 包含在一个 Folder 对象中的所有 Folder 对象的集合. 说明 以下代码举例说明如何获得 Folders 集合并使用 For Each...Next 语句枚举集合成员: Function ShowFolderList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec)

VBS教程:函数-UBound 函数_vbs

UBound 函数 返回指定数组维数的最大可用下标. UBound(arrayname[, dimension]) 参数 arrayname 必选项.数组变量名,遵循标准变量命名约定. Dimension 可选项.指定返回哪一维上界的整数.1 表示第一维,2 表示第二维,以此类推.如果省略 dimension 参数,则默认值为 1. 说明 UBound 函数与 LBound 函数一起使用,用于确定数组的大小.使用 LBound 函数可以确定数组某一维的下界. 所有维的下界均为 0.对于有这样维数

VBS教程:对象-Files 集合_vbs

Files 集合 文件夹中所有 File 对象的集合. 说明 以下代码举例说明如何获得 Folders 集合并使用 For Each...Next 语句枚举集合成员:  Function ShowFolderList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.File

VBS教程:方法-Raise 方法_vbs

Raise 方法 生成运行时错误 object.Raise(number, source, description, helpfile, helpcontext) 参数 object 应为 Err 对象. Number Long 整数子类型,标识错误性质.VBScript 错误(有 VBScript 定义和用户定义两种错误)的范围在 0-65535 之间. Source 命名最初产生错误的对象或应用程序的string expression.当为 Automation 对象设置此属性时,请使用窗体