循环遍历表单中的所有文本框

在VB和VBA中，有时需要循环遍历表单中的所有文本框并进行操作。这篇文章将向您介绍几种方法。

方法一：使用For Each循环

一个简单的方法是使用For Each循环来遍历表单中的所有控件，并检查每个控件是否为文本框。以下是一个示例：

For Each ctl In Me.Controls
    If TypeName(ctl) = "TextBox" Then
        ' 进行文本框操作
    End If
Next ctl

该代码段将遍历表单中的所有控件，并使用TypeName函数检查每个控件的类型是否为“TextBox”。如果是，则可以将其操作。

方法二：使用For循环

您还可以使用For循环遍历文本框的索引号。以下是一个示例：

For i = 0 To Me.Controls.Count - 1
    If TypeOf Me.Controls(i) Is TextBox Then
        ' 进行文本框操作
    End If
Next i

该代码段使用For循环遍历表单中的每个控件，使用TypeOf运算符检查控件是否为文本框。

方法三：使用Do While循环

最后，您可以使用Do While循环遍历控件集合中的所有文本框。以下是一个示例：

Set ctl = Me.Controls.Item(0)
Do While Not ctl Is Nothing
    If TypeOf ctl Is TextBox Then
        ' 进行文本框操作
    End If
    Set ctl = Me.Controls.Item(ctl.Index + 1)
Loop

该代码段使用Set语句及Item方法以及Do While循环遍历控件集合，并使用TypeOf运算符检查控件是否为文本框。在每次循环中，使用Index属性获取控件的索引号，并将其加1以获取下一个控件。

无论您选择哪种方法，这些代码均可用于循环遍历表单中的所有文本框。