Как создать массив контролов?

[Mouse]

У меня 20 текстовых полей. Все их надо одинаково обработать. Как создать массив?

[Calvin]

Вообще форма уже содержит в себе коллекцию элементов управления, просто можно обратиться к элементам определенного типа и осуществлять с ними то, что нужно....

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

Private Sub CommandButton1_Click()
Dim myobj As Control
For Each myobj In Me.Controls
If TypeOf myobj Is Textbox Then
..........
End If
Next
End Sub


[Vitaly1]

1) Ставишь Textbox1 на форму.
2) Копируешь Textbox1 в буффер.
3) Вставляешь Textbox1 из буфера и подтверждаешь создание массива.

Обращаются следующим образом:
Textbox1(Индекс).свойство
помойму индексация с 0.

[mad_Max]

Ну индексация не обязательно с нуля. Можно подредактировать свойства Index у элементов и сделать минимальный индекс хоть 100. Ну а создать проще всего действительно копируя из буфера скопированный элемент, а если контролы уже на форме - присвоить всем одно и то же имя (здесь VB один раз ругнётся - спросит, хотим ли мы создать Control Array)