代码仅允许在文本框中输入文本，并在输入数字或其他字符时在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中，可以从页面设计器中添加和配置，并将所有必要的组件注入到基于页面的页面中根据您的要求。我很长时间没有使用它们，所以我担心我无法提供任何具体的细节。