VB.NET版机房收费系统之限制textbox输入

    我在优化机房收费时候想要限制textbox控件的输入，不允许输入非法字符，可是我找了好几天都没有找到，我在第一遍机房收费的时候没有好好做，很多功能就没有实现，现在遇到这个功能不能实现，我怎么忍心再放弃啊...之后我想，问问别人吧，结果都跟我说“在第一遍的时候这个功能我已经实现了，所以第二遍的时候就没做”，额...我就去找了他们曾经写过得博客，如何限制textbox的输入，可是VB6.0上的代码用到VB.net却不能实现，好郁闷。

    然后我又去查，但只找到了怎样只能输入数字，这我就已经开心的不行了！，我想继续优化，比如限制输入汉字和字母...我想用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

从这件事上看...即使看上去很简单的功能，也有必要自己上手实践一下啊...