Передача процедуре массива контролов

[Space]

А какой синтаксис при передаче процедуре массива контролов (lineA, lineB)? Что-то никак не получается...

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

LineDelimeterMove lineA
LineDelimeterMove lineB
Private Sub LineDelimeterMove(lineD As Line)
    lineD(0).X1 = 0
    lineD(1).X1 = lineD(0).X1
...
End Sub

[Antonariy]

Object

[Matew]

Недавно столкнулся с проблемой в подобном подходе. Суть: Имею порядка 10ти массивов контролов одного типа с однотипной обработкой. Сделал универсальную процедуру, в которую передается один из массивов As Object(As Variant тоже работает, эффект тот же). В скомпилированной программе периодически (в произвольный момент и в любом массиве) вместо массива в процедуру приходит один иэ контролов массива. Так и не понял почему. Пришлось делать свою процедуру на каждый массив контролов.

[Space]

теперь надо ещё и грузить новые элементы, как в таком случае указывать (существует только lineD(0)) ?

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

SetLineDelimeter ?
Private Sub SetLineDelimeter(lineD As ?)
Dim i as Integer
    For i=1 To 10
     Load lineD(i)
    Next
...
End Sub