作为 ByRef 参数的类属性不起作用

Question

我正在使用一个函数来修改一系列字符串，将它们作为参数传递给修改函数。调用者的字符串变量都按预期进行了修改，但是作为类属性的一个参数没有改变，这可能吗？ 该课程的要点是：-

Private cRptRef As String

Public Property Get TestRefID() As String
    TestRefID = cRptRef
End Property

Public Property Let TestRefID(Test_Ref As String)
    cRptRef = Test_Ref
End Property

修改字符串的函数有如下声明

Public Function GetTestFileNames(ByRef hdrFile As String, _
                                 ByRef calFile As String, _
                                 ByRef dataFile As String, _
                                 ByRef testRef As String _
                                 ) As Boolean

对GetTestFilenames的调用如下：

If GetTestFileNames(HEADERpath, CALpath, RAWDATApath, _
                    ref) = False Then

所有字符串参数都被声明为全局字符串，并且在调用之前为空 ("")。通话后，他们通常具有类似“d:{path to file{filename.csv}”的内容。 所以函数中的所有这些语句都可以填充目标字符串。

hdrFile = Replace(userFile, "##", PT_Rpt.Info.FindNode(TEST_REF_HDRsuffix).data, , , vbTextCompare)
dataFile = Replace(userFile, "##", PT_Rpt.Info.FindNode(TEST_REF_DATAsuffix).data, , , vbTextCompare)
calFile = Replace(userFile, "##", PT_Rpt.Info.FindNode(TEST_REF_CALsuffix).data, , , vbTextCompare)

但是这个语句没有给它的目标字符串赋值

testRef = Mid(userFile, InStrRev(userFile, Application.PathSeparator) + 1)
testRef = Left(testRef, InStrRev(testRef, "_") - 1)
Debug.Print "Class.TestRefID="; testRef

Debug.Print 语句打印预期的字符串，但外部引用不受影响。这与它是财产有关吗？ 目标字符串是 Class.TestRefID 代替 testRef 参数。 如果我用标准字符串变量替换参数列表中的类属性，然后将其分配给类属性，那么我会得到预期的结果，这似乎是不必要的工作。 是否有我遗漏的东西，或者这在 VBA 中是不可能的？

Answer 1

成员访问表达式是一个表达式，必须先由 VBA 求值，然后才能传递其结果。

如果我有这样的Class1 模块：

Option Explicit
Public Foo As String

然后是一个快速调用程序：

Sub test()
    With New Class1
        bla .Foo
        Debug.Print .Foo
    End With
End Sub

Sub bla(ByRef bar As String)
    bar = "huh"
End Sub

test 过程将输出一个空字符串。

这是因为当您将成员传递给 VBA 中过程的 ByRef 参数时，您并没有将引用传递给成员 - 您传递的是引用该成员持有的值。

所以成员访问表达式被求值，求值为""，所以""被传递给过程ByRef，过程将它分配给"huh"，但调用者不是' t 持有对"" 值的引用，因此它永远不会看到分配的"huh" 字符串。

如果我用标准字符串变量替换参数列表中的类属性，然后将其分配给类属性，那么我会得到预期的结果，这似乎是不必要的工作

这不是不必要的工作，它是强制，否则没有任何东西持有对成员表达式结果的引用。

那么真正的问题又是一个设计问题，pointed out by Warcupine：函数不想通过ref-return 4个值，它想引用这个对象，并分配它的属性。