VB6 - get訪問的數組屬性

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