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

类代码看起来不错。消费部分可能出现问题？这是一个适合我的例子：

“的Class1

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

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

1 个答案: