Property Set 语句

声明 Property 过程的名称，参数以及构成其主体的代码，该过程设置一个对象引用。

语法

[Public | Private | Friend] [Static] Property Set name ([arglist,] reference)

[statements]

[Exit Property]

[statements]

End Property

Property Set 语句的语法包含下面部分：部分描述[]可选。表示调用者可以提供或不提供该参数。

Public可选的。表示所有模块的所有其它过程都可访问这个 Property Set 过程。

Private可选的。表示只有包含其声明的模块的其它过程可以访问该 Property Set 过程。

Friend可选的。只能在类模块中使用。表示该 Property Set 过程在整个工程中都是可见的，但对对象实例

的控制者是不可见的。

Static可选的。表示在调用之间保留 Property Set 过程的局部变量的值。Static 属性对在该 Property Set

外声明的变量不会产生影响，即使过程中也使用了这些变量。

name必需的。Property Set 过程的名称；遵循标准的变量命名约定，但不能与同一模块中的 Property Get

或 Property Let 过程同名。

arglist可选的。代表在调用时要传递给 Property Set 过程的参数的变量列表。对于多个变量则用逗号隔开。

reference必需的。对象引用赋值的右边所使用的包含对象引用的变量。

statements可选的。Property 过程体中所执行的任何语句组。

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

[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type] [= defaultvalue]

部分描述Optional可选的。表示参数不是必需的。如果使用了该选项，则 arglist 中的后续参数都必

须是可选的，而且必须都使用 Optional 关键字声明。注意：Property Set 表达式的右边不可能是

Optional。

ByVal可选的。表示该参数按值传递。

ByRef可选的。表示该参数按地址传递。ByRef 是 Visual Basic 的缺省选项。

ParamArray可选的。只用于 arglist 的最后一个参数，指明最后这个参数是一个 Variant 元素的

Optional 数组。使用 ParamArray 关键字可以提供任意数目的参数。ParamArray 关键字不能与

ByVal、ByRef 或 Optional 一起使用。

varname必需的。代表参数的变量的名称；遵循标准的变量命名约定。

type可选的。传递给该过程的参数的数据类型；可以是 Byte、Boolean、Integer、Long、

Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）、

Object 或 Variant。如果参数不是 Optional，则也可以是用户定义类型，或对象类型。

defaultvalue可选的。任何常数或常数表达式。只在 Optional 参数时是合法的。如果类型为

Object，则显式的缺省值只能是 Nothing。

注意 每个 Property Set 语句必须为其所定义的过程定义至少一个参数。当 Property Set 语句所定义的过程被调用时，这个参数（如果有多个参数则指最后一个）就包含了将赋给属性的实际的对象引用。这个参数就是前述语法中的 reference。它不能是 Optional。说明如果没有使用 Public、Private 或 Friend 显式指定，则 Property 过程按缺省情况是公用的。如果没有使用 Static，则在调用之后不会保留局部变量的值。Friend 关键字只能在类模块中使用。不过 Friend 过程可以被工程中的任何模块的过程访问。Friend 过程不会在其父类的类型库中出现，且 Friend 过程不能被后期绑定。所有的可执行代码都必须属于某个过程。不能在别的 Property、Sub 或 Function 过程中定义 Property Set 过程。

Exit Property 语句使执行立即从一个 Property Set 过程中退出。程序接着从调用该 Property Set 过程的语句下一条语句执行。在 Property Set 过程的任何位置都可以有 Exit Property 语句。

Property Set 过程与 Function 和 Property Get 过程的相似之处是：它们都是一个可以获取参数，执行一系列语句，以及改变其参数的值的独立过程。而与 Function 和 Property Get 过程不同的是：这两个过程都有返回值，而 Property Set 过程只能用于对象引用赋值（Set 语句）的左边。