vb.net-2010 - 代码只允许在文本框中输入文本，如果输入数字或其他字符，则在 msgbox 中显示“错误”

Question

代码只允许在文本框中输入文本，如果输入数字或其他字符，则在 msgbox 中显示“错误”

这是我的代码：

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    NA = Val(TextBox1.Text)
    If NA > 0 Then
        MsgBox("Error")
    Else
        NA = Val(TextBox1.Text)
    End If

End Sub

Answer 1

由于我不确定这是在 Forms 应用程序还是 ASP 应用程序中，您可能需要查看Regex类：

Imports System.Text.RegularExpressions   

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

       If Regex.Match(TextBox1.Text, @"\d")
           MsgBox("Error")               
       Else
           NA = Val(TextBox1.Text)
       End If

End Sub

如果您使用 ASP，您可以查看Control Validators，它们内置于 .Net 中，可以从页面设计器中添加和配置，并根据您的要求将所有必要的组件注入您的页面。我已经很长时间没有使用它们了，所以恐怕我无法提供任何具体细节。