在VBA類中處理模塊級數組的正確方法是什麼？

Question

在VBA類中處理模塊級數組的正確方法是什麼？

我使用Property Let和Property Get其他變量，但我還沒有想出如何傳遞數組和從屬性。

已更新。此代碼對Mark Nold感謝。

Option Explicit 

Private mstrTestArray() As String 

Public Property Get TestArray() As String() 
    TestArray = mstrTestArray 
End Property 
Public Property Let TestArray(ByRef strTestArray() As String) 
    mstrTestArray = strTestArray 
End Property 
Public Property Get TestArrayValue(d1 As Long, d2 As Long) As String 
    TestArrayValue = mstrTestArray(d1, d2) 
End Property 
Public Property Let TestArrayValue(d1 As Long, d2 As Long, strValue As String) 
    strTestArray(d1, d2) = strValue 
End Property 

Sub DoTest() 

    Dim strTestArray() As String 
    ReDim strTestArray(2, 1) As String 

    strTestArray(0, 0) = "a": strTestArray(0, 1) = "one" 
    strTestArray(1, 0) = "b": strTestArray(1, 1) = "two" 
    strTestArray(2, 0) = "c": strTestArray(2, 1) = "three" 

    TestArray = strTestArray 

    Debug.Print TestArrayValue(UBound(TestArray, 1), UBound(TestArray, 2)) 

End Sub 

以下不起作用。這個頂部在上述類中的方法：

Sub LetArrayFromReference(ByRef strTestArray() As String) 
    TestArray = strTestArray 
End Sub 

這部分是調用類的程序：

Sub DoTest() 

    Dim strTestArray() As String 
    ReDim strTestArray(2, 1) As String 
    Dim objTestClass As New TestClass 

    strTestArray(0, 0) = "a": strTestArray(0, 1) = "one" 
    strTestArray(1, 0) = "b": strTestArray(1, 1) = "two" 
    strTestArray(2, 0) = "c": strTestArray(2, 1) = "three" 

    objTestClass.LetArrayFromReference strTestArray 

    Debug.Print objTestClass.TestArrayValue(UBound(objTestClass.TestArray, 1) _ 
    , UBound(objTestClass.TestArray, 2)) 

End Sub 

謝謝！

Answer 1

下面的代碼可能會給你一些幫助的線索。首先定義一個名爲TestClass的類。

Option Explicit 

Private strTestArray() As String 

Public Property Get TestArrayValue(d1 As Long, d2 As Long) As String 
    TestArrayValue = strTestArray(d1, d2) 
End Property 

Public Property Let TestArrayValue(d1 As Long, d2 As Long, sValue As String) 
    strTestArray(d1, d2) = sValue 
End Property 


Sub DoTest() 

    Dim myTestArray() As String 
    ReDim myTestArray(3, 1) As String 

    myTestArray(0, 0) = "a": myTestArray(0, 1) = "one" 
    myTestArray(1, 0) = "b": myTestArray(1, 1) = "two" 
    myTestArray(2, 0) = "c": myTestArray(2, 1) = "three" 

    strTestArray = myTestArray 
    Me.TestArrayValue(3, 1) = "Hello" 


    Debug.Print strTestArray(2, 1) 
    Debug.Print Me.TestArrayValue(1, 1) 
    Debug.Print Me.TestArrayValue(3, 1) 

End Sub 

然後在代碼模塊或工作表中創建一個名爲MyTest（）的子類;

Option Explicit 

Sub MyTest() 
    Dim t As New TestClass 
    t.DoTest 

    Debug.Print "The value at 1,1 is; " & t.TestArrayValue(1, 1) 
End Sub 

在類中，您可以更新strTestArray()或Me.TestArrayValue。我會讓你創建一個Get併爲TestArray設置。我不是100％確定你要做什麼..所以，如果你有任何問題請留言並更新你的OP :)