Обяъвление массива меток

[noob4ever]

Public X as Label -присваиваю переменной свойства метки
Даны метки: Label1(0-10)
Как значение метки присвоить переменной?
если 1 значение то делаю так: Set X=Form1.Label1(0)

Но в моей программе надо использовать массив меток, т.е:
for i=0 to 10
f=f+1
X(i)=.fields(f)
next i

извините если непрально выразился, неед хэлп.

[Alexanbar]

А почему нельзя использовать непосредственно Form1.Label1(i) ?

[noob4ever]

потому что не работает так:
Public X as Label
-------------------------------
form load:
f=5
Set X=Form1.Label1(i)
-------------------------------
command click:
for i=0 to 10
f=f+1
X(i)=.fields(f)
next i

Что делать:?
почему так не работает, как сделать чтобы X(i) работал!?

[noob4ever]

А почему нельзя использовать непосредственно Form1.Label1(i) ?

объясняю почему, потому что X разный,
то есть в одном месте мы объявляем Set X=Form1.Label1(i), в другом Set X=Form1.Label2(i) и т.д.
а после объявление обращаемся в процедуру:
for i=0 to 10
f=f+1
X(i)=.fields(f)
next i

[tyomitch]

Чтобы X(i) работал, он должен быть объявлен как массив.
Массивы умеем объявлять?

[noob4ever]

тока не понял одно,
X объявить как массив и как метку одновременно?

[noob4ever]

Dim A,B
A=Array(5,7,12)
B=A(2)

а как это связать, не получается, никак не пойму, киньтесь кодом плиз!!!

[Alexanbar]

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

Dim a() As Label

ReDim a(0)

Set a(0) = Label1(0)

MsgBox a(0).Caption

[noob4ever]

Dim a() As Label

ReDim a(0)

Set a(0) = Label1(0)

MsgBox a(0).Caption

ну не нужно мне (0)
мне надо все эллементы массива управления присвоить! ничего не получается если подставить i

[tyomitch]

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

Dim a

Private Sub Form_Load()
Set a = Label1
a(0).Caption = "Маразм крепчал"
a(1).Caption = "Деревья гнулись"
End Sub


[noob4ever]

эх, оказывается так просто, спасибо!!! а я в такие дебри полез))))