访问类模块中的私有字段

Question

我有这个简化的类模块 clXXX....

':: backing field
Private fTemplateBk As Excel.Workbook

':::::::::::::::::::::::::::
'::
':: constructor
Private Sub Class_Initialize()

End Sub

':::::::::::::::::::::::::::
'::
':: properties
Property Get TemplateBk() 'As Excel.Workbook '<< different error messages depending on if "As Excel.Workbook" is included or not
    TemplateBk = fTemplateBk
End Property

':::::::::::::::::::::::::::
'::
':: methods
Public Sub openTemplate()
    Set fTemplateBk = Excel.Workbooks.Open("\\xxx\yyy\zzz.xlsx")
End Sub

Public Sub someMethod()
    Me.TemplateBk.Sheets(1).Activate
End Sub

普通模块：

Sub control()

Dim x As clXXX
Set x = New clXXX
x.openTemplate
x.someMethod  '<<<<<<errors here

End Sub

我只想通过只读属性TemplateBk 使用me.TemplateBk. ... 之类的代码访问私有字段fTemplateBk。我该如何修改上述内容才能做到这一点？

Answer 1

您需要公开该属性并且必须使用 Set 关键字。

检查下面的代码并确认它是否有效：

Private fTemplateBk As Excel.Workbook

Public Property Get TemplateBk() As Excel.Workbook 
    Set TemplateBk = fTemplateBk
End Property

Answer 2

您的 someMethod 应该使用私有字段 fTemplateBk，因为它是外部私有的，而不是内部私有的。

Public Sub someMethod()
    Me.fTemplateBk.Sheets(1).Activate
End Sub

如果您需要从外部使用该属性，则应在您的普通模块中使用：

Sub control()
    Dim x As clXXX
    Set x = New clXXX
    x.openTemplate
    x.TemplateBk.Sheets(1).Activate
End Sub

更新 1

如果您想保持代码不变，只需在 TemplateBk getter 中添加 SET，代码就可以工作。正如您在图片中看到的，我在此更改中使用了与您相同的代码，并且可以正常工作。

Property Get TemplateBk() 'As Excel.Workbook
    Set TemplateBk = fTemplateBk  'add the SET at the beggining
End Property