4

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

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

MySub1 展示了如何以冗长笨拙的方式引用嵌套结构。MySub2 展示了如何通过传入嵌套结构来做到这一点，但这会使调用例程变得混乱，并且拥有多个这样的嵌套结构会变得丑陋。

MySub2 展示了 VBA可以做我想做的事，但它似乎没有提供一种方法来做到这一点。我希望有一种我没有偶然发现的方法。

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

另请注意，我知道“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
4

2 回答 2

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. 如果不是答案，请进一步澄清。

于 2013-03-09T19:34:23.683 回答
0

我认为您在这里遇到了 VBA 的限制之一。我不知道对嵌套用户类型的部分取消引用的限制。

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

于 2013-03-09T19:42:45.117 回答