声明用于给属性赋值的 Set 属性过程。

[ <attributelist> ] [ accessmodifier ] Set (ByVal value [ As datatype ])
    [ statements ]
End Set

部件

• attributelist
  可选。 请参见特性列表。

• accessmodifier
  在此属性中的至多一个 Get 和 Set 语句上为可选项。 可以是如下内容之一：

  • Protected

  • Friend

  • Private

  • Protected Friend

  请参见Visual Basic 中的访问级别。

• value
  必选。 包含此属性的新值的参数。

• datatype
  如果 Option Strict 为 On，则为必选项。 value 参数的数据类型。 指定的数据类型必须与声明此 Set 语句的属性的数据类型相同。

• statements
  可选。 在调用 Set 属性过程时运行的一个或多个语句。

• End Set
  必选。 终止 Set 属性过程的定义。

备注

每个属性均必须具有一个 Set 属性过程（除非该属性标记为 ReadOnly）。 Set 过程用于设置属性的值。

当赋值语句提供一个将存储在属性中的值时，Visual Basic 会自动调用属性的 Set 过程。

在属性赋值期间，Visual Basic 会将参数传递给 Set 过程。 如果没有为 Set 提供参数，则集成开发环境 (IDE) 将使用一个名为 value 的隐式参数。 此参数保存将赋给属性的值。 通常在私有局部变量中存储此值，并在调用 Get 过程时返回它。

属性声明体只能在 Property 语句 和 End Property 语句之间包含属性的 Get 和 Set 过程。 它不能存储除这些过程外的任何内容。 特别地，它不能存储属性的当前值。 必须在属性外存储此值，原因是，如果在以上任一属性过程中存储此值，则另一个属性过程将无法访问它。 常用的方法是将此值存储在 Private (Visual Basic) 变量（在与属性相同的级别上声明）中。 必须在此值应用于的属性的内部定义 Set 过程。

Set 过程默认为它的包含属性的访问级别（除非在 Set 语句中使用 accessmodifier）。

规则

• **混合访问级别。**如果定义一个读写属性，则可以根据需要为 Get 或 Set 过程指定不同的访问级别，但不能同时为两者这样做。 否则，过程访问级别在限制性上必须比属性的访问级别更高。 例如，如果属性被声明为 Friend，则可以将 Set 过程声明为 Private，但不能声明为 Public。

  如果定义 WriteOnly 属性，则 Set 过程将代表整个属性。 不能为 Set 声明不同的访问级别，原因是这会为属性设置两个访问级别。

行为

• **从属性过程返回。**在 Set 过程返回到调用代码时，将会从提供了要存储的值的语句后面继续执行语句。

  Set 属性过程可以使用 Return 语句 (Visual Basic) 或 Exit 语句 (Visual Basic) 返回。

  使用 Exit Property 和 Return 语句可以立即从属性过程中退出。 过程中的任何地方可以出现任意数量的 Exit Property 和 Return 语句，而且可以混用 Exit Property 和 Return 语句。

示例

下面的示例使用 Set 语句设置属性值。

Class propClass
    Private propVal As Integer
    Property prop1() As Integer
        Get
            Return propVal
        End Get
        Set(ByVal value As Integer)
            propVal = value
        End Set
    End Property
End Class