從Get屬性引用Set屬性

Question

我遇到了另一個SO問題中發佈的這個vba代碼位。在引用類的Get屬性中的Set屬性時是否有任何意義？

Private WithEvents mctlEventButton As MSForms.CommandButton

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

爲什麼這樣做？ ...

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

代碼是示出如何使用collections通過一組控件進行迭代。問題並不是關於代碼的那部分，所以在這個問題中沒有提到。使用問題中的示例，我遇到了一個問題，因爲Get Property正在使用Set屬性。那麼什麼時候會有用？

這裏是鏈接到SO問題：object array or collection in 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 

在另一方面，這個它是用來返回一個值的語句。
實際上，認爲Get作爲

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

包裹在開發人員的財產形式做得到/套。