Создание массива элементов.

[GAGArin]

Надо создать массив элементов или ссылок на них. Я пробовал:
В модуле.

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

Dim a (16) as CommandButton


А потом писал примерно так:

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

a(15) = command15
a(15).caption = "!!!"


Причем Command15 существует.
Он ответил что обьект отсутствует. Создать просто массив элементов не могу. Скажите мне че я не так сделал

[RayShade]

Ну так наверное наддо было в массиве создать элементы. Что то типа

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

set a(15)= new commandbutton


[SergeySV]

Чтобы был массив ссылок, я делал так:

Dim a (16) as Variant
Set a(15) = command15
a(15).caption = "!!!"
Если заменить тип Variant на СommandButton работать не будет, не совсем понимаю почему они так не разрешили писать... видимо какая-то логика есть, но какая...

Ну так наверное наддо было в массиве создать элементы. Что то типа

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

set a(15)= new commandbutton


А насколько я понимаю этот код (проверить не могу), должно получиться создание контрола и добавление его в массив, т.е. его по идее потом еще на форму размещать надо и т.д.....?

[GAGArin]

Спасибо!

[RayShade]

2 SergeySV

Ну да. Создали объект, потом его там на форму кладем и так далее.

[Vi]

Есть разница между операторами Let и Set:

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

Dim a (16) as CommandButton
a(15) = command15 ' это Let

и

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

Dim a (16) as CommandButton
Set a(15) = command15  ' это Set

[GAGArin]

Я уже понял что проблемка в этом была. А вот кто теперь мне обьяснит как обработать событие клика по одной кнопке из массива

[Urvin]

Почему бы не использовать стандартно?-
cmdCommand(1877645).load
тогда
Sub cmdCommand_Click(Index as integer)

[GAGArin]

Создать массив элементов можно и вручную в обычном VB. Но я не могу этого сделать т.к. версия VB мне не позволяет а если новая и вышла то достать ее мне проблематично. Я пишу на eMbedded Visual Basic 3.0 Это для карманных компьютеров под WIndows CE. Если кто знает о новой версии то скажите и мне тоже.

[Алекс]

Устанавливаешь Контрол1.index=0
Потом LOad КОНТРОЛ1(a)

[GAGArin]

Алекс
Гениально!!! Но я вроде обьяснил что не могу так сделать НЕМОГУ там вообще нет .index у СommandButton'ов Извини если резко, но меня эта проблема запарила, когда пришло уведомление, я думал может это уже ответ. Но его похоже не дождусь.

ЗЫ А проблемку я решил в лоб. Просто перебрал все возможности. Места занимает много больше(да и изящество на уровне каменного топора), но и работает быстрее.