vba - 将多个文本框值传输到数组

Question

我有一个包含 13 个文本框的用户表单，我试图将其中最后 10 个文本框(即 #4-#13)的值传输到一个数组中。我的想法是循环遍历表单上的所有控件，并使用一个简单的计数器跳过前 3 个文本框，然后依次将数组元素设置为其余文本框值。

For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "TextBox" Then
        i = i + 1
        If i > 3 Then
            PO(i - 3) = Ctrl.Value
        End If
    End If
Next Ctrl

这个概念本身是有效的；但是，循环从文本框 #3 而不是 #1 开始，最终我在数组中得到以下值 - (#6-#13, #1, #2)。因此，它找到的第一个文本框控件是#3，然后找到#13，最后返回#1 和#2。

这些框按照逻辑顺序命名(和选项卡索引)以适合我想要做的事情，但显然这个过程中有一些我不太明白的地方——或者VBA以不同的方式获取它比我还多。

For Each Ctrl 语句是否可能按照控件最初创建的顺序(而不是 tabindex 或名称的顺序)遍历控件？如果是这样，我怎样才能找到原始的创建顺序？

Answer 1

您可以这样做，使用控件名称的一致结构。

For i = 4 To 13
    PO(i - 3) = Me.Controls("Textbox" & i).Value
Next i