1. 该判断事件是TextBox的keypress 事件中进行判断的
创新互联公司专注于双阳企业网站建设,
成都响应式网站建设公司,
成都商城网站开发。双阳网站建设公司,为双阳等地区提供建站服务。全流程
定制网站制作，专业设计，全程项目跟踪，
创新互联公司专业和态度为您提供的服务
2. 判断key（e.KeyChar）是不是数字、小数点、或者负号
3. 判断是否多次输入负号或者小数点
代码如下：
If IsNumeric(e.KeyChar) OrElse e.KeyChar = "." OrElse e.KeyChar = "-" Then
Dim strCash As String =TextBox1.Text
If strCash.Contains(".") Then
If strCash.Split(".").Length > 2 Then
e.Handled = True
End If
End If
If strCash.Contains("-") Then
If strCash.Split("-").Length > 2 Then
e.Handled = True
End If
If strCash.Substring(0, 1) <> "-" Then
e.Handled = True
End If
If strCash.Length > 1 Then
If strCash.Substring(1, 1) = "." Then
e.Handled = True
End If
End If
End If
ElseIf Not Asc(e.KeyChar) = Keys.Back Then
e.Handled = True
End If
代码如上，如果有问题，欢迎修改指正
创新互联www.cdcxhl.cn，专业提供香港、美国云服务器，动态BGP最优骨干路由自动选择，持续稳定高效的网络助力业务部署。公司持有工信部办法的idc、isp许可证， 机房独有T级流量清洗系统配攻击溯源，准确进行流量调度，确保服务器高可用性。佳节活动现已开启，新人活动云服务器买多久送多久。
网页名称：VB.Net文本框TextBox只允许输入数字判断-创新互联
URL网址：
http://cdkjz.cn/article/jiojs.html
