VB.Net文本框TextBox只允许输入数字判断-创新互联

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://lszwz.com/article/jiojs.html

其他资讯

售后响应及时

7×24小时客服热线

数据备份

更安全、更高效、更稳定

价格公道精准

项目经理精准报价不弄虚作假

合作无风险

重合同讲信誉，无效全额退款

乐山小谭建站工作室是一家专注从事于高品质视觉体验及互联网设计开发，乐山网站建设，乐山网站设计，乐山网页设计，乐山网站制作，品牌网站建设，营销网站建设，集团网站建设，企业网站建设，外贸网站建设，响应式网站建设，小程序开发，微信开发，企业形象设计，企业宣传视频等服务，小谭建站位于乐山市龙岗区大运软件小镇，小谭建站拥有经验丰富的高级网站建设工程师和一流的网页高端设计人员，具备各种规模与类型网站建设的雄厚实力，在网站建设领域树立了自己独特的设计风格。

友情链接交换友情链接

雅安服务器托管成都网站设计成都网站改版成都h5网站建设 app网站建设成都微信小程序开发成都公司注册代办成都网站推广营销光华村机房名片

Copyright © 2022 青羊区小谭信息技术咨询服务工作室乐山建站工作室 All Rights Reserved 蜀ICP备2021004003号-25

Copyright © 2022 青羊区小谭信息技术咨询服务工作室乐山建站工作室

蜀ICP备2021004003号-25