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

[Mouse]

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

[Firestorm]

пример очищения всех текстбоксов...

Private Sub Command1_Click()
Dim Ctl As Control

For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" Then
Ctl.Text = Empty
End If
Next
End Sub

[Amed]

Кстати, установи у редактируемых textbox параметр tag в, скажем, "edited", тогда можно редактировать только нужные поля:

Private Sub Command1_Click()
Dim Ctl As Control

For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" and Ctl.Tag="edited" Then
Ctl.Text = Empty
End If
Next
End Sub

[alibek]

Amed, хочу тебя поправить

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

Private Sub Command1_Click()
Dim Ctl As Control

For Each Ctl In Controls
If TypeName(Ctl) = "TextBox" Then
  If Ctl.Tag="edited" Then
    Ctl.Text = Empty
  End If
End If
Next
End Sub


У контрола может и не оказаться свойства .Tag, тогда твой код вызовет ошибку.
И я бы использовал не TypeName, а

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

If TypeOf Ctl Is TextBox Then