redim свойство в модуле класса

Question

Я довольно новичок в использовании классов в vba. Я пытаюсь использовать массив как свойство, где длина массива должна быть переменной. Я искал способ сделать это, но я действительно не понимаю, как работают эти свойства.

так я определяю мой массив в модуле класса

Private pTestArray() As String 

и свойства для получения и установки значений

Private Property Get TestArrayValue(index As Long) As String 
    TestArrayValue = qTestArray(index) 
End Property 

Private Property Let ArrayValue(index As Long, strValue As String) 
    pTestArray(index) = strValue 
End Property 

, но я не могу найти способ ReDim массив. любые подсказки? Thanks C

Answer 1

Вы хотите изменить размер при назначении? то вы можете проверить & обрабатывать границы в Let;

Private Property Let ArrayValue(index As Long, strValue As String) 
    If index > UBound(pTestArray) Then ReDim Preserve pTestArray(index) 
    pTestArray(index) = strValue 
End Property 

Вам также нужно сначала измерение с redim pTestArray(0) в Class_Initialize случае.