Классы

[Sirik]

Как в классе реализовать свойство массив?
Ранее уменя были свойства только стринги лонги, но теперь надо сделать массив, при чём вида (2,10).

Попробовал просто через Public - ошибка "вылетает".

Может будут предложения ?

[GSerg]

Либо функцию, возвращающую long(), либо функцию, возвращающую variant. А напрямую низя

[Sirik]

Я прочитал что можно через тип Variant. Вот если бы пример был...

[GSerg]

А он есть. Поищи. Прямо тут.

[Sirik]

Всё!!!! сам сделал: всё гениальное просто.
Вот нашёл страничку:

Массивы могут храниться в переменных типа Variant. Иногда это бывает удобным. В некоторых случаях без этого просто не обойтись! (Например, когда вы хотите, чтобы ваша функция возвращала массив). Чтобы сохранить какой-либо массив в переменной типа Variant необходимо просто присвоить этой переменной нужный массив:

Dim myVariantArray ' переменная Variant по умолчанию
myVarianrArray = chessTable

Обратите внимание, никакие индексы указывать не нужно!

Теперь можно использовать копию как обычный массив:

myVarianrArray (0) = "Это копия"

Так и сделал, всё работает просто супер!!!

[tyomitch]

FYI, обычно свойства-массивы, например VBA.Collection::Item, реализованы как свойства с параметром, например:

Код: Выделить всё

Public Property Get Item (ByVal Index As Long) As Your_Type