VB.NET版机房收费系统之限制textbox输入
2016-05-03 19:37
357 查看
我在优化机房收费时候想要限制textbox控件的输入,不允许输入非法字符,可是我找了好几天都没有找到,我在第一遍机房收费的时候没有好好做,很多功能就没有实现,现在遇到这个功能不能实现,我怎么忍心再放弃啊...之后我想,问问别人吧,结果都跟我说“在第一遍的时候这个功能我已经实现了,所以第二遍的时候就没做”,额...我就去找了他们曾经写过得博客,如何限制textbox的输入,可是VB6.0上的代码用到VB.net却不能实现,好郁闷。
然后我又去查,但只找到了怎样只能输入数字,这我就已经开心的不行了!,我想继续优化,比如限制输入汉字和字母...我想用ascii码限制,无奈我快崩溃了都没弄出来...我只好找外援了,荣凯兄一直跟我说用ascii码限制,所以我就他拉了过来...
修改的过程并不像我们想的那么简单,荣凯兄噼里啪啦的整了一个多小时,终于功夫不负有心人,达到了我们想要的结果。
姓名只可以可以输入汉字和字母,否则你按下键的时候就会有提示,而且在textbox框中不会显示不允许输入的内容
卡号只能输入数字,输入其他值就提示,“只能输入数字!”textbox框中不显示不允许输入的内容
密码可以输入数字和字母,通过设置ImeMode属性为Disable ,不管在中文输入下还是在英文输入下,按下字母都只能显示字母而不能显示汉字
好了,服务一下大众吧,上代码
从这件事上看...即使看上去很简单的功能,也有必要自己上手实践一下啊...
然后我又去查,但只找到了怎样只能输入数字,这我就已经开心的不行了!,我想继续优化,比如限制输入汉字和字母...我想用ascii码限制,无奈我快崩溃了都没弄出来...我只好找外援了,荣凯兄一直跟我说用ascii码限制,所以我就他拉了过来...
修改的过程并不像我们想的那么简单,荣凯兄噼里啪啦的整了一个多小时,终于功夫不负有心人,达到了我们想要的结果。
姓名只可以可以输入汉字和字母,否则你按下键的时候就会有提示,而且在textbox框中不会显示不允许输入的内容
卡号只能输入数字,输入其他值就提示,“只能输入数字!”textbox框中不显示不允许输入的内容
密码可以输入数字和字母,通过设置ImeMode属性为Disable ,不管在中文输入下还是在英文输入下,按下字母都只能显示字母而不能显示汉字
好了,服务一下大众吧,上代码
Private Sub txtName_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtName.KeyPress If Char.IsLetter(e.KeyChar) Or e.KeyChar = Chr(8) Then ' e.KeyChar = Chr(8)为删除键 e.Handled = False Else e.Handled = True '事件己处理 MsgBox("请输入汉字或字母!", , "提示!") End If txtName.MaxLength = 11 End Sub
Private Sub txtPWD2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPWD2.KeyPress 'vb.net textbox控件 限制输入,只能输入数字 txtPWD2.ImeMode = Windows.Forms.ImeMode.Disable If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Or Char.IsLetter(e.KeyChar) Then e.Handled = False Else e.Handled = True '事件己处理 MsgBox("只能输入数字或字母!", , "提示!") End If '限制textbox长度 txtPWD2.MaxLength = 11 End Sub
Private Sub txtUserID_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUserID.KeyPress 'vb.net textbox控件 限制输入,只能输入数字 txtUserID.ImeMode = Windows.Forms.ImeMode.Disable If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then e.Handled = False Else e.Handled = True '事件己处理 MsgBox("只能输入数字!", , "提示!") End If '限制textbox长度 txtUserID.MaxLength = 11 End Sub
从这件事上看...即使看上去很简单的功能,也有必要自己上手实践一下啊...
相关文章推荐
- VBA: Cant find project or librar
- vb.net实现邮件发送
- vb控件相关ocx文件注册问题
- Vb生成一定范围内的随机数(含小数部分)
- VB.NET版机房收费系统之组合查询
- vboxclient the virtualbox kernel service is not running
- VB热身:走进VBA&Excel高级应用
- 关于VB6.0的Microsoft windows common control 6.0 对象库未注册问题
- Web-Floor-Navbar 楼层导航菜单Demo
- 'VBoxManage' is not recognized as an internal or external command, operable program or batch file.
- 签名时出错: 未在路径 C:\Program Files (x86)\Microsoft SDKs\Windows\v7.0A\bin\signtool.exe 找到 SignTool.exe
- vb
- vb 十进制转二进制
- 15电气李书鹏4月28日VB作业(3)
- 十进制数转换成十六进制数
- vb
- 求给定一个正整数的十六进制表示 vb
- 15电气李书鹏4月28日VB作业(2)
- vb
- vb21