vb.net - 检查具有字符串值的文本框

Question

我要做的就是检查带有字符串值的文本框，如果是，那么消息框将显示（使用编号）。

    For Each t In Me.Controls
        If TextBox1.Text = (String) Then
            MsgBox("Please Use Number")
            Exit Sub
            Exit For
        End If
    Next

提前致谢

Answer 1

从您的错误消息中，我假设您要验证用户输入的数值。然后您可以使用Int32.TryParse或Double.TryParse简单地枚举所有字符并检查它们是否是数字：

For Each txt In Me.Controls.OfType(Of textBox)()
    Dim allDigit = txt.Text.Trim.Length <> 0 AndAlso _
            txt.Text.All(Function(chr) Char.IsDigit(chr))
    If Not allDigit Then
        MsgBox("Please Use Number")
        Exit Sub
    End If
Next

与Int32.TryParse：

Dim intVal As Int32
Dim isInteger As Boolean = Int32.TryParse(txt.Text, intVal)

（还假设您要验证表单上的所有文本框）

Answer 2

干得好：

For Each c As Control In Me.Controls
    If TypeOf (c) Is TextBox Then
        If Not IsNumeric(c.Text) Then
            MessageBox.Show("Not a number")
            Exit Sub
        End If
    End If
Next

Answer 3

使用正则表达式验证文本框是否包含数字。

例如。

Dim regNumber As New Regex("^\d{1,10}$")
regNumber.IsMatch(TextBox1.Text)