Массив объектов, например TextBox, Общий обработчик события

[CAPITALIST]

Как создать массив объектов и обращаться к ним, например
TextBox(1).Text
тем самым можно перебрать объекты в цикле, использовать один обработчик события.

И еще: как явно указать/сменить обработчик события?

[alibek]

Свойство Index.

[CAPITALIST]

Хм. Интересно, что это свойство доступно только в коде, и то его нет в выпадающем списке свойств/методов. Да и это не то (как я понял из справки по ВБ). мне нужно:
For n=1 to UBound(ComboBoxx)
ComboBoxx(n).AddItem
next

[Денис]

Хм. Интересно, что это свойство доступно только в коде, и то его нет в выпадающем списке свойств/методов.

Плохо ищете. Смотрите внимательней.

Да и это не то (как я понял из справки по ВБ). мне нужно:
For n=1 to UBound(ComboBoxx)
ComboBoxx(n).AddItem
next

Это то, что вам нужно? Или не то? Или не это? Перефразируйте вопрос. Потому что фрагмент кода рабочий.

Сорри, вот это рабочий код:

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

   Dim N As Integer

   For N = 0 To cbArray.Count - 1
      cbArray(N).AddItem "sdfsdfsd"
   Next

[dr.MIG]

В данном примере лучше использовать конструкцию For Each ... In ...

[Денис]

В данном примере лучше использовать конструкцию For Each ... In ...

For Each? В массиве? КАК? Покажи.
Нет, я понимаю, что если создать элементы через Me.Controls.Add, то удобнее перебирать через For Each. Но массив элементов... Есть же Count.

Кстати, Капиталист, насчет обработчика событий. Напрямую в 6 бейсике это делать нельзя, но есть обходной маневр.
Сначала делаем так:
Dim Withevents EventControl as ТипКонтролa
потом делаем так:
Set EventControl = ArrayControl(НужныйИндекс)

[CAPITALIST]

А у меня нету
При попытке сменить имя ComboBox1 на ComboBoxx(100) выдает ошибку "Not a legal object name:ComboBoxx(100)"

[Денис]

А у меня нету
При попытке сменить имя ComboBox1 на ComboBoxx(100) выдает ошибку "Not a legal object name:ComboBoxx(100)"

Я понял! У тебя не VB(Visual Studio), у тебя VBA(Word, Excel, etc.)! Тогда либо через коллекции, либо через Set. Но в любом случае, один обработчик на всех не получится. Рекомендую сделать в обработчиках событий всех требуемых контролов ссылку на одну общую процедуру.

Как-то так:

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

Private Sub ComboBox1_Change()
    ComboChange ComboBox1
End Sub

Private Sub ComboBox2_Change()
    ComboChange ComboBox2
End Sub

Private Sub ComboBox3_Change()
    ComboChange ComboBox3
End Sub

Private Sub ComboBox4_Change()
    ComboChange ComboBox4
End Sub

Private Sub ComboChange(Sender As ComboBox)
    Sender.AddItem Sender.Text
End Sub

Кинь на форму четыре комбобокса.

[Хакер]

Думай над этим.

[Alec]

насчет обработчика
http://bbs.vbstreets.ru/viewtopic.php?f=7&t=40939
кажется, подобное...

[dr.MIG]

For Each? В массиве? КАК? Покажи.

Я просто имел в виду, что

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

Dim N As Integer
For N = 0 To cbArray.Count - 1
    cbArray(N).AddItem "sdfsdfsd"
Next

лучше заменить на

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

Dim cb As ComboBox
For Each cb In cbArray
    cb.AddItem "dsdsdsds"
Next