对象如何作为参数传递ByVal应该表现

Question

我正在学习/学习ByVal和ByRef的行为，因为它使用了一个调用对象。所以我创建了这个类人物模型

Private Type TPerson
    firstName As String
    lastName As String
End Type

Private this As TPerson

Public Property Get firstName() As String
    firstName = this.firstName
End Property

Public Property Let firstName(ByVal strNewValue As String)
    this.firstName = strNewValue
End Property

Public Property Get lastName() As String
    lastName = this.lastName
End Property

Public Property Let lastName(ByVal strNewValue As String)
    this.lastName = strNewValue
End Property

Public Property Get fullName() As String
    fullName = this.firstName & " " & this.lastName
End Property

我创建了一个标准模块，试图看看如果一个对象的值在s子例程中作为ByVal或ByRef传递，它将如何受到影响。这是标准模块中的代码

Private passedPerson As PersonModel

Public Sub StructureType()
    Dim Object1 As PersonModel
    Dim Object2 As PersonModel

    Set Object1 = New PersonModel
    With Object1
        .firstName = "Max"
        .lastName = "Weber"
        Debug.Print .fullName 'gives Max Weber
    End With

    Set Object2 = Object1   'Object2 references Object1

    Debug.Print Object2.fullName 'gives Max Weber

    passByVal Object1
    ' First Call
    Debug.Print passedPerson.fullName  'gives Max Weber

    With Object2
        .firstName = "Karl"
        .lastName = "Marx"
        Debug.Print .fullName  'gives Karl Marx
    End With

    'Second Call
    Debug.Print passedPerson.fullName 'gives Karl Marx

End Sub

Private Sub passByVal(ByVal person As PersonModel)
    Set passedPerson = New PersonModel
    Set passedPerson = person
End Sub

我只是希望在代码的第二个调用部分中，Debug.Print passedPerson.fullName会给我一个不变的“Max Weber”值。但相反，它赋予了新的价值“卡尔马克思”。即使我将过程passByVal的代码更改为：

Private Sub passByVal(ByVal person As PersonModel)
    Dim newPerson As PersonModel
    Set newPerson = New PersonModel
    Set newPerson = person

    Set passedPerson = newPerson
End Sub

代码Debug.Print passedPerson.fullName的第二部分调用仍然是“Karl Marx”。无论将ByVal改为ByRef，它仍然会给出相同的结果。

我有两个问题：1。它应该如何真正起作用吗？ 2.如果我的目标是将变量passedPerson的值保持为“Max Weber”，我做错了什么？

Answer 1

对象变量不是对象：它是一个编程构造，我们用它来保持对一个的引用 - 实际对象不在我们的代码中，而是在VBA运行时上下文中。

Dim objRef1 As Object
Set objRef1 = New Collection
Debug.Print ObjPtr(objRef1)

Dim objRef2 As Object
Set objRef2 = objRef1
Debug.Print ObjPtr(objRef2)

这应该输出相同的地址，两次：两个变量都指向同一个对象：用一个改变该对象的属性......

objRef1.Add 42

...会影响另一个指向的同一个对象：

Debug.Print objRef2.Count ' prints 1 even though .Add was called against objRef1

---

传递一个对象ByRef（它是隐式默认值）意味着你传递一个对象指针的引用，所以它可以简化为传递指针本身：ByRef参数现在是一个局部变量在它自己的局部范围内，指向一个调用者也有参考的对象。

Public Sub CallingCode()
    Dim objRef1 As Object
    Set objRef1 = New Collection
    PassByReference objRef1
    Debug.Print objRef1.Count ' error 91, the object reference is gone!
End Sub

Private Sub PassByReference(ByRef thing As Object)
    thing.Add 42
    Set thing = Nothing
End Sub

因为正在传递引用，所以在任一过程中将其设置为Nothing都会使该对象的引用计数为0，并且对象将被销毁。这里对象被销毁然后被访问，这引起了错误91。

传递对象ByVal意味着您将引用的副本传递给对象指针 - 它是对同一对象的不同引用：

Public Sub CallingCode()
    Dim objRef1 As Object
    Set objRef1 = New Collection
    PassByValue objRef1
    Debug.Print objRef1.Count ' 1
End Sub

Private Sub PassByValue(ByVal thing As Object)
    thing.Add 42
    Set thing = Nothing
End Sub

这里本地副本被设置为Nothing，但由于调用代码也有对该对象的引用，因此对象本身不会被破坏 - 因此元素42被添加到集合中，而Debug.Print输出1。

这正是你的PersonModel正在发生的事情：传递它ByVal给你一个对象指针的本地副本，指向与调用代码完全相同的对象 - ByVal没有深度克隆整个对象，它只是一个新的引用同一个涉及的对象。因此，无论指向该对象的指针是通过值还是通过引用传递，修改该对象的属性都会影响完全相同的对象。