一.ASCII码——限制字符问题

在敲学生的时候需要设置很多限制条件，比如限制字符，显示数据类型，限制字符长度等等，其中有很多限制需要通过ASCII码来进行代码编写限制，数不胜数，小编至今还是有很多限制条件的ASCII 不知道，记是永远记不住的，未来用到的时候再多多补充啦。下面是小编在优化学生时经常用到的一些代码限制条件，分享给大家。

1.文本框只能输入汉字：

Private SubtxtDirector_KeyPress(KeyAscii As Integer)  If KeyAscii > 0 And KeyAscii <> 13And KeyAscii <> 8 Then KeyAscii = 0
End Sub或者：
Private Sub txtusername_KeyPress(KeyAscii As Integer)If KeyAscii < 0 Or KeyAscii = 8 Or KeyAscii = 13 Then Exit SubKeyAscii = 0End Sub或者：
Private Sub txtDirector_KeyPress(KeyAscii As Integer) If KeyAscii < 0 Or KeyAscii = 8 Then Exit Sub KeyAscii = 0 ‘不能输入
End Sub

2.只能输入文字及删除键：

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 ThenElseKeyAscii = 0End If
End Sub

3.限制只能输入数字：

If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0

4.限制只能输入数字和删除键：

If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) ThenKeyAscii = 0End if

5.只能输入数字和文字：

If ((KeyAscii <= 57 And KeyAscii >= 48) Or (KeyAscii <= -3652 And KeyAscii >= -20319) Or KeyAscii = 8) = False Then KeyAscii = 0

6.只能输入数字和英文字母：

Private Sub Text1_KeyPress(KeyAscii As Integer)If ((KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122)) = False Then KeyAscii = 0
End Sub

7.只输入数字、小数和删除键：

If KeyAscii <> Asc(".") And (KeyAscii <> 8) And (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) ThenKeyAscii = 0End If'添加成绩窗体限制成绩：
(1)限制添加成绩窗体只能输入数字且大于0小于150且可以使用退格键
If KeyAscii = 8 Then Exit SubIf KeyAscii < 48 Or KeyAscii > 57 ThenKeyAscii = 0ElseIf CLng(txtResult.Text & Chr(KeyAscii)) > 100 Or CLng(txtResult.Text & Chr(KeyAscii)) < 0 ThenKeyAscii = 0
End If(2)'限制文本框只能输入数字和小数点,但是不可以使用退格键If KeyAscii < 48 Or KeyAscii > 57 ThenIf KeyAscii = 46 ThenIf txtResult.Text = "" Or InStr(1, txtResult.Text, ".") <> 0 ThenKeyAscii = 0KeyAscii = 46End IfElseKeyAscii = 0End IfEnd If(3)既限制只输入数字、小数点、又可以限制数值大小，也可以使用退格键
If KeyAscii <> Asc(".") And (KeyAscii <> 8) And (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) ThenKeyAscii = 0ElseIf CLng(txtResult.Text & Chr(KeyAscii)) > 100 Or CLng(txtResult.Text & Chr(KeyAscii)) < 0 ThenKeyAscii = 0End If

8.只能输入文字，英文和空格：

Private Sub txtName_Change()txtName.MaxLength = 10  '限制长度为10
End Sub
Private Sub txtName_KeyPress(KeyAscii As Integer)If ((KeyAscii <= -3652 And KeyAscii >= -20319) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or KeyAscii = 32 Or KeyAscii = 8) = False ThenKeyAscii = 0End If
End Sub

9.限制只能输入英文字母、数字以及退格：

Private Sub txtUserName_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 48 To 57         '只能输入数字Case 65 To 90         '只能输入大写字母Case 97 To 122        '只能输入小写字母Case 8                '只能输入退格Case Else             '否则KeyAscii = 0          '限制输入，使输入无效End Select
End Sub'限制了用户名只能输入数字，大小写字母和删除键，其他输入均被视为无效输入。

10.限制特殊字符、数字、空格，只能输入汉字和字母


Private Sub txtCoursename_KeyPress(KeyAscii As Integer)If KeyAscii < 0 Or KeyAscii = 8 Or KeyAscii = 13 ThenElseIf Not Chr(KeyAscii) Like "[a-zA-Z]" ThenKeyAscii = 0End If
End Sub

11.文本框限制特殊字符不可输入：

Private SubtxtClassroom_KeyPress(KeyAscii As Integer)If ((KeyAscii >= 48 And KeyAscii <=57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or _(KeyAscii >= 97 And KeyAscii <=122) Or (KeyAscii = 8)) = flase Then KeyAscii = 0
End Sub

12.限制出生日期晚于入学日期：

Dim borndate As Date
Dim getdate As Date'定义变量
borndate =Trim(txtBorndate.Text)
getdate =Trim(txtRudate.Text)
If getdate<=borndate then'进行比较  MsgBox"入学时间不能早于出生时间，请重新输入",vbOKOnly + vbInformation,"警告"  txtRudate.SetFocus  Exit Sub
End If

13.限制文本框输入内容的长度

txtClassno.MaxLength = 10

14.限制文本框输入内容的数值范围

If Val(txtClassno.Text) > 2147483647 Or Val(txtClassno.Text) < 1ThenMsgBox "输入数值在1到2147483647范围内"txtClassno.SetFocusExit Sub
End If

以上内容是小编站在巨人的肩膀上学习和收获到的，感谢走在前边的大佬们，默默无言的给我提供了太多太多的帮助，让我可以走的更加的稳重，善于学习和应用并且不断总结和整理，把知识慢慢积累起来，一点一点的成长吧！

学生管理系统总结收获——限制字符相关推荐

带UI界面的学生管理系统
GitHub地址学生管理系统简述从8.7日到8.9晚上大功告成完成算有效时间的话大概三天,为暑假留校制作的第三个Demo,有注册登录,对学生信息进行增删改查,只不过没有放入文件进行储存,数据一次 ...
c语言字符密码验证码,c语言下的学生管理系统(含密码加密和验证码).docx
c语言下的学生管理系统(含密码加密和验证码).docx #include #include #include #include #include #define N 20void input();// ...
PyQt5入门——学生管理系统
需要源代码的家人们直接评论区或者私信我文章目录 PyQt5入门--学生管理系统 1. 项目背景 2. 项目简介 2.1 项目内容 2.2 数据说明 3. 相关工具介绍 3.1Python 3.6 3 ...
学生管理系统——用链表实现
前言该程序是大一上学期的课设,在上学期的基础上对此程序进行了细节上的优化,以及将程序分成多个文件,第一次对多文件开发有了了解(再也不要将几千行代码放在一个文件内了) 一. 软件功能描述假设学生成绩 ...
tkinter实现学生管理系统(完整代码）
文章目录前言运行环境效果预览项目流程模块分讲 Login StuWindow StuPassword GuiMain 完整代码结尾前言学习是一个漫长而又痛苦的过程,但学习的收获是令人欣 ...
python删除字典中性别为男_python初学者，用python3实现基本的学生管理系统代码实例...
本篇文章主要分享python学生管理系统的使用,文章非常详细地介绍了通过示例代码实现的学生管理系统,该系统对每个人的研究或工作都有一定的参考学习价值,希望你能在其中有所收获. 这个是用python实现 ...
用python3做学生管理系统_详解用python实现基本的学生管理系统(文件存储版)（python3）...
详解用python实现基本的学生管理系统(文件存储版)(python3) 来源:中文源码网浏览: 次日期:2019年11月5日详解用python实现基本的学生管理系统(文件存储版)( ...
python学生管理系统-学生管理系统python
广告关闭腾讯云+校园是针对学生用户推出的专项扶持计划,1核2G云服务器9元/月起,云数据库2元/月起,并享受按购买价续费的优惠,助力莘莘学子轻松上云 print(该学生不存在)return none ...
C语言学生管理系统
#include <stdio.h> #include <string.h> #define NAME_LEN 64 /* 姓名字符数 */ typedef struct st ...
Java09-day09【ArrayList(概述、构造方法、常用方法、遍历)、简易学生管理系统】
java零基础入门到精通(2019版)[黑马程序员] 视频+资料:[链接:https://pan.baidu.com/s/1MdFNUADVSFf-lVw3SJRvtg 提取码:zjxs] &qu ...

学生管理系统总结收获——限制字符