Возможно ли свойство формы в виде массива?

[Anatoliy]

Необходимо для формы создать свойство, представлюящее собой массив чисел.
Если одно число в виде свойства, работает:

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


Dim iTmp As Integer
Public Property Let Tmp(ByVal aTmp As Integer)
    iTmp = aTmp
End Property


А так не работает:

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


Dim iTmps() As Integer
Public Property Set Tmps(ByRef aTmps() As Integer)
    Set iTmps = aTmps
End Property

Пробовал и Let и Set.
Передавал параметр и как массив:
aTmps() As Integer,
и как Object:
aTmps() As Object
По ссылке и по значению (ByRef, ByVal).
Все одно ругательство:

Definitions of property procedures for the same property are inconsistent, or property procedure has an optional prarameter, aParamArray. or an invalid Set final parameter

Есть ли решение?
Спасибо

[alibek]

Ну, во-первых, можно использовать индексированную проперть (Public Property Get Tmp(ByVal Index As Long, aTmp As Integer)). А во-вторых, проперть может быть Variant и возвращать подтип массива. Еще что-то мне смутно вспоминается насчет Function Test()(), но уже не помню точно.

[GSerg]

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

Option Explicit

Private mArr() As Long

Public Property Get Arr() As Long()
  Arr = mArr
End Property

Public Property Let Arr(a() As Long)
  mArr = a
End Property

Private Sub Form_Load()
  ReDim mArr(1 To 10)
  mArr(5) = 7
 
  MsgBox Me.Arr()(5)
End Sub

[alibek]

Точно, скобки после типа добавляются.

[Anatoliy]

ОК. Спасибо. Работает