VB.Net循环遍历文本框以检查它们是否仅包含数字

Question

我正在从事一个简单的大学项目，该项目必须注册一个新成员。现在我正忙于表单验证。

我的一些文本框只能包含文本而不是字母，我用来检查文本框是否只能接受文本的代码如下：

'check textboxes contains only characters'
        'initial'
        If Not System.Text.RegularExpressions.Regex.Match(vinital, "^[a-z]*$", System.Text.RegularExpressions.RegexOptions.IgnoreCase).Success Then
            MsgBox("Initial can only contain text .")
        End If   

我的问题

我如何使用与上面类似的代码循环遍历它们，而不是一次为每个文本框做一个 if 语句来验证文本。

Answer 1

您可以尝试将所有控件放在 Panel 中，然后像这样迭代它（未经测试，但您明白了）：

Dim ctrl As Control
For Each ctrl In Panel1.Controls 'Me.Controls should also work, I think.
    If (ctrl.GetType() Is GetType(TextBox)) Then
        Dim txt As TextBox = CType(ctrl, TextBox)
        'check content of txt here
    End If
Next