VB6 和 .NET - 数组差异

Question

请看一下我在 VB6 和 .NET 中运行的以下代码：

Private Sub Form_Load()
Dim TestArray3() As String
TestArray3 = TestArrayFunction

End Sub

Private Function TestArrayFunction() As String()
    Dim TestArray1(0 To 1) As String
    Dim TestArray2() As String
    TestArray1(0) = "Monday"
    TestArray1(1) = "Tuesday"
    TestArray2 = TestArray1
    TestArray1(0) = "Wednesday"
End Function

当程序到达 VB6 中的 TestArrayFunction 末尾时，TestArray2(0) 的值为“Monday”，但是在 .NET 中运行时，今天是“星期三”。我在 .NET 中理解数组是一个对象，并且在 TestArrayFunction 中有两个指向它的引用。为什么VB6中不是这样呢？

Answer 1

这是对 Dabblernl 的回应的补充。

长话短说，VB6 从未真正拥有通用引用类型。由于构建在 COM 之上，它拥有的唯一引用类型 (Dim ... As Object) 是基于 COM 的（或 COM 样式）类的引用类型。变异型只擅长拳击其他类型。

至于为什么 ByRef 与数组一起工作......

许多 BASIC 方言的演变，包括 VB6，在子例程和函数方面采用/适应了 FORTRAN 的范例；即，参数通过地址传递（因此 ByRef 是默认值），函数通过值返回结果。除此之外，BASIC 从未真正具有地址或引用的概念：VB6（和早期版本）将使用 32 位（有符号）整数模拟地址，否则将通过 DECLARE SUB 的特殊规则进行处理（以奇怪的方式） /FUNCTION 语句以及（鞋履式）AddressOf 运算符和 VarPtr/StrPtr 函数。

最后注意：由于 VB6 类是 COM 风格的，因此 VB6 具有 SET 语句。原因是如果没有 SET，左值 = 右值的情况就是隐含的 LET 语句。 COM 支持默认属性的概念（带参数和不带参数）； LET objA = objB 被解释为 LET objA.DefaultPropOfA = objB.DefaultPropOfB。另一方面，SET 使 objA 接受对 objB 引用的同一对象的引用。

.NET 的 Visual Basic 是一种优秀而强大的语言，其缺点和缺陷比 VB6 少得多。然而，它与它的传统表兄弟确实有很大的不同。这些差异让 VB6 的长期用户感到不满，而且我怀疑这也让许多 VB.NET 用户在被要求处理 VB6 代码时感到困惑。

顺便说一句，VB6 编码器会以这种方式处理类问题中的数组：

Public Property Get DaysOfWeek(ByVal index As Integer) As String
  DaysOfWeek = m_strDaysOfWeek(index)
End Property

Public Property Let DaysOfWeek(ByVal index As Integer, ByRef value As String)
  m_strDaysOfWeek(index) = value
End Property

这将允许使用 strDay = clsDateTime.DaysOfWeek(1) 和 clsDateTime.DaysOfWeek(2)=" 语法星期二” 按需要工作。

Answer 2

我几乎每天都在为此苦苦挣扎。虽然完全可以将数组 ByRef 传递给函数调用，但“=”符号将进行浅复制。

但是 VB6 中的数组有更奇怪的行为，假设您在 VB6 中有以下 DateTimeClass 类模块：

Option Explicit

Private m_strDaysOfWeek() As String

Public Property Get DaysOfWeek() As String()

    DaysOfWeek = m_strDaysOfWeek()

End Property

Public Property Let DaysOfWeek(strDaysOfWeek() As String)

    m_strDaysOfWeek() = strDaysOfWeek

End Property

Private Sub Class_Initialize()
    ReDim m_strDaysOfWeek(7)
    m_strDaysOfWeek(1) = "Monday"
End Sub

您希望能够编写如下代码：

Dim clsDateTime As New DateTimeClass
Dim strDay As String

strDay = clsDateTime.DaysOfWeek(1)

或者：

clsDateTime.DaysOfWeek(2)="Tuesday"

但您不能。你必须这样做：

Dim clsDateTime As New DateTimeClass
Dim strDay As String
Dim strDays() As String

strDays = clsDateTime.DaysOfWeek
strDay = strDays(1)
strDays(2) = "Tuesday"
clsDateTime.DaysOfWeek = strDays

VB6团队当时这样做的原因是什么？我不知道...
我已经放弃了 VB6 数组，几乎只使用集合和字典。

Answer 3

VB6 复制数组，而 Function 的最后一条语句仅更改原始副本。

既然你知道 .Net 破坏了与 VB 的兼容性，我不确定这种混乱从何而来。