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只允许输入数字判断-创新互联
文章转载：http://abwzjs.com/article/jiojs.html