vb 的数组是否可以定义为公有类型？

Question

vb 的数组是否可以定义为公有类型？

Answer 1

我想将数组打包dll然后作为一个接口，那么我应该在哪定义数组呢

Answer 2

可在类内部定义一个Private数组,然后通过属性索引显露它,好处是可以判断数组下标等是否有效:Private Const mconArraySize As Integer=10
Private mintArray(1 to mconArraySize) As DoublePublic Property Get Array(ByVal intIndex As Integer) As Double
    If ( intIndex < 1 ) Or ( intIndex > mconArraySize ) Then
        Err.Raise 381               '无效属性参数值
    End if
    Array=mintArray(intIndex)
End PropertyPublic Property Let Array(Byval intIndex As Integer,Byval dblValue As Double)
    If ( intIndex < 1 ) Or ( intIndex > mconArraySize ) Then
        Err.Raise 381               '无效属性参数值
    End if
    mintArray(intIndex) = dblValue
End Property使用这个属性跟使用一个数组一样:
i = objMyObj.Array(2)
objMyObj.Array(1) = 5.3

Answer 3

谢谢chenziteng(陈子腾)前辈！不胜感激！