Элементы в форме - массив?

[boris-blade]

У меня в форме много однотипных элементов - текстбоксов, чекбоксов и тп. Они имеют дефолтные имена: textbox1, textbox2, textboxN.
Не существует ли системного массива
form1.textbox(N-1) as textbox
или чего-то типа этого, чтобы я мог работать с элментами например в цикле
for i=1 to 10
form1.textbox(i) =i*i
next i

[Вождь]

Код переключающий все элементы CheckBox расположенные в рамке F и у которых поле Tag равно 1

Sub Form_ChieldsChecked(ByRef F As MSForms.Frame)

Dim C As MSForms.Control
Dim B As MSForms.CheckBox
    
    For Each C In F.Controls
        On Error Resume Next
        Set B = C
        If Err.Number <> 0 Then
        ElseIf B.Tag <> "1" Then
        Else
            B.Value = not B.Value
        End If
    Next C

End Sub

[boris-blade]

Сообщение от Вождь

Код переключающий все элементы CheckBox расположенные в рамке F и у которых поле Tag равно 1

Sub Form_ChieldsChecked(ByRef F As MSForms.Frame)

Dim C As MSForms.Control
Dim B As MSForms.CheckBox
    
    For Each C In F.Controls
        On Error Resume Next
        Set B = C
        If Err.Number <> 0 Then
        ElseIf B.Tag <> "1" Then
        Else
            B.Value = not B.Value
        End If
    Next C

End Sub

1 че код-то такой ненаглядный - не лучше ли так:
If Err.Number <> 0 and B.Tag = "1" Then
B.Value = not B.Value

2 это был прямой перебор всех чекбоксов. а мне нужна возможность прямого обращения к каждому отдельному элементу по какому-либо индексу, как к элементу массива.

[Вождь]

Сообщение от boris-blade

2 это был прямой перебор всех чекбоксов. а мне нужна возможность прямого обращения к каждому отдельному элементу по какому-либо индексу, как к элементу массива.

Да, пожалуйста: Controls.Item(Индекс)
Встроенная коллекция - это только Controls.
Можешь создать свою коллекцию (Collection) и работать с ней как с массивом.

[boris-blade]

Сообщение от Вождь

Да, пожалуйста: Controls.Item(Индекс)
Встроенная коллекция - это только Controls.
Можешь создать свою коллекцию (Collection) и работать с ней как с массивом.

Напиши, пожалуйста, как создать коллекцию? Вот есть у меня два текстовых поля textbox1 и textbox2. Нужно, чтобы работало
tbox(1)="sgsgr"
tbox(2)="dfsbdfbg"
напиши весь код, плиз
а то я не нашел как сделать коллецию

[Вождь]

Пример 1 - массив

Dim A(1 To 2) As MSForms.TextBox
    
    Set A(1) = Me.TextBox1...
    Set A(2) = Me.TextBox2...

    A(1).Text = "Тест 1"
    A(2).Text = "Тест 2"

Пример 2 - коллекция

Dim C As New Collection
    
    C.Add Item:=Me.TextBox1... ', Key:=, Before:=, After:=
    C.Add Item:=Me.TextBox1... ', Key:=, Before:=, After:=
    
    C(1).Text = "Тест 1"
    C.Item(2).Text = "Тест 2"

[boris-blade]

Спасибо - мне подходит первый вариант
Хочу циклом заполнить массив
for i=1 to 10
set A(i)=(Me.TextBox+"i")
next i

как это сделать?

[Вождь]

Сообщение от boris-blade

for i=1 to 10
set A(i)=(Me.TextBox+"i")
next i

как это сделать?

Вот-вот Для этого я и давал первый пример. Подправим его:

Option Base 0
...
Dim C As MSForms.Control
Dim TB As MSForms.TextBox
Dim A() as MSForms.TextBox
Dim N&

    N=-1 ' = Base - 1
    For Each C In Me.Controls
        On Error Resume Next
        Set TB = C
        If Err.Number = 0 Then
            N = N + 1
            ReDim Preserve A(N)
            Set A(N) = TB
        End If
    Next C