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

我的问题

如果每个文本框一次都有一个语句，那么如何使用上面类似的代码对它们进行循环以仅验证文本。

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

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

1 个答案: