关于vb.net数字识别的信息

vb.net文本框输入后按回车或tab判断是不是数字，不是就跳出提示框，怎么打，我哪里打错啦

你用的都是vb6的代码，改成：

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

If IsNumeric(TextBox1.Text) = False Then

MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "友情提示")

TextBox1.Focus()

Return

End If

End Sub

相关问答

Q1: vb.net 2010 如何把文本框中的数字提取出来

源代码如下：（代码写在按钮点击事件里）

Label1.Text = ""

        Label2.Text = ""

        Dim a As String = TextBox1.Text

        Dim b As String = TextBox2.Text

        For x = 1 To a.Length

            Dim txt As String = Mid(a, x, 1)

            If txt Like "#" Then

                Label1.Text = Label1.Text txt

            End If

        Next

        For x = 1 To b.Length

            Dim txt As String = Mid(b, x, 1)

            If txt Like "#" Then

                Label2.Text = Label2.Text txt

            End If

        Next

此方法用的是mid 将一个字符串拆分成单个字符，然后用like运算符进行对比是否为数字，关于这两个函数的用法如果不懂的可以自己搜索下，此外还有别的方法，这里就不多说了

Q2: VB.NET用正则表达提取数字的问题！

你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.

完整的程序如下(改动的地方见注释)

Dim bbb As String

bbb = TextBox1.Text  

Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格

MsgBox(My_str)

Q3: VB.net 用正则表达式提取数字！

Dim 测试文本 = "td class=''68/tdtd class=''65/tdtd class=''169/td"

Dim 匹配集合 = (New Regex("(?is)(?=)[^]+(?=)")).Matches(测试文本)

Dim 结果列表 As New List（Of Decimal）

For Each 匹配 As Match In 匹配集合

    If IsNumeric(匹配.Value) Then 结果列表.Add(CDec(匹配.Value))

Next

软糖来回答吧， 已测试可用。

如满意请采纳，谢谢。

Q4: VB.NET中判断输入的是字符还是数字

可以用VB6里的函数

isnumeric()

比如要判断文本框里的内容是否数字

if isnumeric(TextBox1.text) Then

msgbox("是数字！")

else

msgbox("不是数字！")

end if

Q5: vb.net怎样判断字符串是否为数字+分隔符（如逗号，空格，tab等）+数字的格式

如果用常规编程的方法：

直接用split（str1，“，”）的形式把str1字符串分成字符串数组，然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。