从 Get 属性引用 Set 属性

Question

我在另一个 SO 问题中发现了这段 vba 代码。在类的Get属性中引用Set属性有什么意义吗？

私有WithEvents mctlEventButton作为MSForms.CommandButton

公共属性设置EventButton(ctlButton As MSForms.CommandButton)
设置 mctlEventButton = ctlButton
End Property

为什么要这样做？ ...

公共属性 Get EventButton() As MSForms.CommandButton
设置EventButton = mctlEventButton
End Property

该代码展示了如何使用集合来迭代一组控件。问题实际上并不是关于代码的那部分，因此问题中没有解决它。使用问题中的示例，我遇到了此处发布的问题，因为“获取属性”正在使用“设置”属性。那么什么时候会有用呢？

这是SO问题的链接：VBA Excel中的对象数组或集合

Answer 1

Public Property Get EventButton() As MSForms.CommandButton
   Set EventButton = mctlEventButton
End Property

在上面的代码中，Set EventButton = mctlEventButton 不会调用以下代码（尝试单步执行代码，您会发现它不会单步执行Set)

Public Property Set EventButton(ctlButton As MSForms.CommandButton)
   Set mctlEventButton = ctlButton
End Property

另一方面，this 作为一个用于返回值的语句。
实际上，可以将 Get 视为

Public function EventButton() As MSForms.CommandButton
   Set EventButton = mctlEventButton  'returning the value from the function
End Property

以属性形式包装，供开发人员执行获取/设置操作。