arrays - VB6 - 获取访问器不适用于数组属性

Question

我的 VB6 代码中有两个属性：

Public Property Get PropFileID() As Long
    PropFileID = m_FileID
End Property

Public Property Get PropFileIDArray() As Long()
    PropFileIDArray = m_FileIDArray
End Property

调试时，我可以看到第一个属性 (PropFileID) 被正确赋值。m_FileID 有一个值，通过 Get 访问器后，PropFileID 得到相同的值。

在调试第二个属性 (PropFileIDArray) 时，我可以看到 m_FileIDArray 具有有效的数组值。但是，通过 Get 访问器后，PropFileIDArray 仍然为空。

我在语法中犯了某种错误吗？

任何建议将不胜感激

Answer 1

类代码看起来不错。也许消费部分有问题？这是一个对我有用的例子：

'类1

Private m_FileIDArray(2) As Long

Public Sub SetValues()
    m_FileIDArray(0) = 0
    m_FileIDArray(1) = 1
    m_FileIDArray(2) = 2
End Sub

Public Property Get PropFileIDArray() As Long()
    PropFileIDArray = m_FileIDArray
End Property

'形式

Private Sub Form_Load()
    Dim class1 As class1

    Set class1 = New class1

    class1.SetValues

    Dim pa As Variant

    pa = class1.PropFileIDArray

    MsgBox pa(0)
    MsgBox pa(1)
    MsgBox pa(2)

    Set class1 = Nothing
End Sub