【VB】使用ASCII码限制输入内

前端之家收集整理的这篇文章主要介绍了【VB】使用ASCII码限制输入内前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

背景:

在学生信息管理系统中有的地方需要限制输入的内容

措施:

限制输入的文本为大小写字母以及数字
Private Sub txtSID_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 8
        Case Asc("a") To Asc("z")
        Case Asc("0") To Asc("9")
        Case Asc("A") To Asc("Z")
        Case Else
        KeyAscii = 0
    End Select
End Sub

限制特殊的字符
Private Sub txtName_KeyPress(KeyAscii As Integer)
    If KeyAscii > 0 And Key < 8 Then KeyAscii = 0 
    If KeyAscii > 8 And Key < 65 Then KeyAscii = 0
    If KeyAscii > 90 And Key < 97 Then KeyAscii = 0
    If KeyAscii > 122 And Key < 127 Then KeyAscii = 0
    Select Case KeyAscii
    	Case 8
    End Select
End Sub
说实话,老是觉得这个博客有点水,毕竟是自己的能力不行,所以还请大佬们在评论区补充,我补充进正文区。(sharing is power)!
原文链接:https://www.f2er.com/vb/256374.html

猜你在找的VB相关文章