如何在VB6中访问隐藏的类变量？

Question

我在声明部分有这一行:

Private filePath As String

和下面这样的事情:

Public Sub Print(filePath As String)
...
End Sub

在...部分,我想将参数分配给filePath模块级filePath.但是我如何才能访问后者呢？非常感谢.

Answer 1

如何更改代码,以避免混淆？

Private mFilePath As String

更改模块级别变量或print函数的参数.

Answer 2

Phoenie 我不认为一旦你在本地范围内有隐藏它的东西（我有一个很好的旧谷歌搜索，但什么也没出现），无论如何都没有必要查看 VB6/VBA 中的私有类变量。如果您想保留命名约定而不更改现有接口，唯一的解决方法是开发一个私有函数来为您访问变量。例如

Public Sub Print(filePath As String)

    SetMyFilePath filePath

End Sub

Private Sub SetMyFilePath(ByVal passedFilePath as String)

    filePath = passedFilePath

End Sub