Question

如何在不创建类型实例副本的情况下使用局部变量引用用户定义的类型？

作为一个例子，在下面的代码中，我理想的做法是在MySub3中我创建一个局部变量 MT ，并引用嵌套在另一个结构中的数据结构...但是VBA不允许这样做。它允许它用于对象，但不允许用户定义的类型（arrggg！）...并且没有明显的原因...它只是不允许它。

MySub1展示了如何以长而笨重的方式引用嵌套结构。 MySub2显示了如何通过传入嵌套结构来实现这一点，但是这会使调用例程变得混乱，并且有多个这样的嵌套结构变得很难看。

MySub2演示了VBA 可以做我想做的事情，它似乎没有提供一种方法。我希望有一种我没有偶然发现的方法。

请注意，我的实际代码比这个示例复杂得多，多个独立的结构为许多数组提供索引作为struct元素。使用这些本地引用变量将使代码更具可读性和可管理性。

另请注意，我知道“with”语句，它确实有帮助，但一次只能在一个结构上使用。

另请注意，我知道我可以使用实际的对象类。我的代码开始使用一个对象，但我很快发现VBA将数组的限制作为属性成员......用户定义的类型没有限制。

Type tMyType
    VariableA As Single
End Type

Type tMyOtherType
    MyTypeArray() As tMyType
End Type

Type tOneMoreType
    MyOtherType As tMyOtherType
End Type

Dim GlobalIndex As Integer

Sub TopLevel()
    Dim TopLevelType As tOneMoreType

    ReDim TopLevelType.MyOtherType.MyTypeArray(0 To 10)
    Call MySub1(TopLevelType)
    Call MySub2(TopLevelType.MyOtherType.MyTypeArray(GlobalIndex))
    Call MySub3(TopLevelType)
End Sub

Sub MySub1(OMT As tOneMoreType)
    Dim VarA As Single

    VarA = OMT.MyOtherType.MyTypeArray(GlobalIndex).VariableA
End Sub

Sub MySub2(MT As tMyType)
    Dim VarA As Single

    VarA = MT.VariableA
End Sub

Sub MySub3(OMT As tOneMoreType)
    Dim VarA As Single
    Dim MT

    Set MT = OMT.MyOtherType.MyTypeArray(GlobalIndex)
    VarA = MT.VariableA
End Sub

Answer 1

从我的角度来看，你让它变得复杂多变。但我相信你有理由这样做。您提交的示例会生成您提到的错误。但是，当我改变一些行时，没有错误。我不确定我的建议是否符合您的预期（虽然我的问题并不完全清楚），但请尝试使用此而不是MySub3：

Sub MySub3(OMT As tOneMoreType)
Dim VarA As Single
Dim MT

MT = OMT.MyOtherType.MyTypeArray(GlobalIndex).VariableA

VarA = MT

End Sub

通常，这样我就可以阅读从MySub3传递的任何元素TopLevel。如果不是答案，请澄清更多。

Answer 2

我认为你已经遇到了VBA的一个局限性。我知道无法绕过嵌套用户类型的部分解引用限制。

我认为你最好使用包含带有getter和setter函数的私有数组的类（遗憾的是，VBA也没有运算符重载）。

VBA：使用变量作为用户定义类型的引用

2 个答案: