设置属性时执行代码

可以创建具有相同名称的 Property LetProperty SetProperty Get 过程。 通过执行此操作,您可以创建一组相关共同协作的过程。 将名称用于 Property 过程后,该名称不能用于命名 SubFunction 过程、 变量用户定义的类型

“Property Let”语句可让您创建设置属性的值的过程。 某示例可能是在表单上为位图创建插入的属性的“属性”过程。

这是用于调用 Property Let 过程的语法。

Form1.Inverted = True 

在窗体上反转位图的实际工作是在 Property Let 过程中完成的。

Private IsInverted As Boolean 
 
Property Let Inverted(X As Boolean) 
 IsInverted = X 
 If IsInverted Then 
 … 
 (statements) 
 Else 
 (statements) 
 End If 
End Property 

The form-level variable stores the setting of your property. 通过将其声明 为 Private,用户只能使用 Property Let 过程对其进行更改。 Use a name that makes it easy to recognize that the variable is used for the property.

此属性获取过程用于返回属性的当前状态。

Property Get Inverted() As Boolean 
 Inverted = IsInverted 
End Property 

通过属性过程 ,可以轻松地在设置属性值的同时执行代码。 使用属性过程执行以下处理:

  • 在设置属性值之前,可确定此属性值。
  • 在设置属性值之后,基于新值。

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。