Добрый день. Прошу помощи.

Есть класс, у него есть свойство - массив определенного пользователем
типа. Требуется сделать так, чтобы к этому свойству-массиву был доступ для всего проекта. Объявить свойство-массив класса сразу как Public, не дает Excel. Пробую сделать через Get/Let/Set

Код класса Library:
'свойство класса в виде массива пользовательского типа
Private inner_Book() As Record
'попытка получить значения
Public Property Get Book() As Record
(as Record выдает "Application-defined or object-defined error")
(as Object выдает "Only user defined types defined in public object modules...")
Book() = inner_Book()
End Property
---------------------------------------
Код модуля:
'пользовательский тип данных
Public Type Record
number As Long
End Type
'создание объекта
Dim myLibrary As Library
Set myLibrary = New Library

вот здесь мне нужно иметь возможность работать с элементами массива вот в таком виде
test = myLibrary.Book(1).number

как сделать чтобы это было возможно?

ну класс там и создан)

Бенедикт,

да Вы правы, спасибо, я не разобрался в этом моменте. Правильнее сказать, что мне нужна возможность обратиться не к самому массиву, к любому элементу массива. Но при попытке сделать такой Get пишет "Private enum and user-defined types cannot be used as parameters or return types for public procedures, public data members, or fields of..."

обращатсья я буду в цикле ко всем элементам, это тут просто для примера я написал обращение к одному элементу

testing22,

а, все, вижу ошибку, теперь сделал тип Public, сейчас попробую

Бенедикт,

Большое спасибо за подробный ответ и совет!!!

Возник вопрос: а почему мы не можем сделать у класса свойство Let? Чтобы изменять массив.

В таком виде у меня не работает, но, возможно, я просто допустил ошибку в коде. Пишет "Definitions of property procedures for the same property are inconsistent, or property procedure has an optional parameter, a ParamArray, or an invalid Set final parameter"

Или тут сам принцип не будет работать? Можно ли передать в Property Let индекс элемента массива?

Public Property Let Book (ByVal NewValue As Long, ByVal Index As Long)
inner_Book (Index) = NewValue
End Property

"В таком виде не работает" - это имею в виду код, который я написал в последнем сообщении. Код из Ващего сообщения у меня работает отлично.

Бенедикт,

Большое спасибо! Теперь все ясно!