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级流量清洗系统配攻击溯源，准确进行流量调度，确保服务器高可用性。佳节活动现已开启，新人活动云服务器买多久送多久。