我想在文本框中只能输入数字........

Unicode码自己查一下数字的范围.然后用历遍一个个字符来匹配就行了.
我给你简单写个例子
dim i as string = textbox1.text.trim
Dim m As Char
For Each m In u
AscW(m) > Unicode码范围 and AscW(m) < Unicode码范围
'给出相应提示信息
Next

谢谢版主........
看你给的代码很简单,可我还是看不懂.
我得买些VB.NET的入门书看看了.....
以前学别的语言一般不买入门书的,只是买些函数、控件这类资料书
可这VB.NET的这些书在我们这地方都没得卖，网上也找不到。
特郁闷。。。。。。。

C/S中,将其它键盘键给屏蔽了.
B/S中,可以用数据转换或验证控件.

我重新写了全代码，如下：
Dim i As String = AscW(Mid(TextBox1.Text, Len(TextBox1.Text), 1))
If i > 47 And i < 58 Then
.........
Else
TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
Beep()
End If
可还有问题，只有对最后一位有效，如在前面插入字符就不行了。
并且如有非数字输入，光标会回到最前面。

请问一下，在Beep()之后如何让光标指什指向结尾处？？