Новые combobox в run-time

[sniff]

Вот такой вопрос:

существует форма. Нужно в run-tim'е создать на ней коллекцию из N combobox'ов, а затем расставить в нужных местах формы.

Расставить я смогу, а вот создать коллекцию - не получается.
Помогите пожалуйста.

[RayShade]

Все просто. Так как contrоl arrays не создаются в рантайме, то просто в цикле юзаем оыбчный метод Add соллекции Form.Controls:

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


for i = 1 to 1048576
form.controls.add "VB.ComboBox","Combo" & i
next i

[sniff]

Спасибо!

А вот если комбобоксы должны лежать на гриде, тогда на что ссылаться при создании коллекции?

[RayShade]

Грид - не контейнер. Ссылаться по прежнему на форму. Просто потом позиционируй комоббксы куда надо и выставляй ихх поверх грида методом .ZOrder

[sniff]

Thx a lot!!!!

[sniff]

А как тогда обрабатывать события клика на этих комбобоксах?

[Ennor]

Вариантов тут два: или своей оконной процедурой (с проверкой по hWnd контрола), или же ты все-таки используешь массив контролов. Ну чего тебе стоит кинуть на форму 1 (один) комбик, выставить ему Visible = False и Index = 0. А потом просто в цикле:

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

Load Me.cmb_Arr(Me.cmb_Arr.Ubound + 1)

Только не забудь, что спаунятся они невидимыми. Визибль выставь потом.
А на выходе - аналогично:

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

Do While Me.cmb_Arr.Count > 1
  Unload Me.cmb_Arr(Me.cmb_Arr.Ubound)
Loop


А в обработчике события у тебя тогда индекс конкретного комбика появится - не ошибешься.