学生系统优化——字符限定

一、文本框限定

1、限定输入的字符长度

文本框中有个MaxLength属性，输入自己要限定的数字即可；也可以利用代码来限定，当超过限定长度时，弹出警告对话窗

Private sub txtUserName_change()If Len(Trim(txtUserName)) > 4 thenMsgBox "姓名不能超过4个字符，请重新输入!", 0 + 48txtUserName = ""End if
End iSub

Trim函数是消除字符串的空格，Len函数是计算字符串的长度

2、限定特殊字符

Private Sub txtUserName_Change()If Len(Trim(txtUserName)) > 4 thenMsgBox "姓名不能超过4个字符，请重新输入!", 0 + 48txtUserName = ""End if
End sub

3、限定输入的字符类型

Private Sub txtSID_KeyPress(KeyAscii As Integer)Const xStr As String = "123456"    '只能输入数字KeyAscii = IIf(Instr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
End Sub

4、限定特殊字符

Private Sub txtDirector_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 8     '限制退格键Case Asc("A") To ("Z")Case Asc("a") To ("z")Case Is < 0Case ElseKeyAscii = 0MsgBox "格式错误，请输入汉字或英文!", 0 + 48txtDirector.Text = ""End Select
End Sub

5、只能输入数字

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

6、限制数字大小，这个适合成绩对话框

Private Sub txtResult_change()
On Error Resume Next
If Val(Trim(txtResult.Text)) > 100 Then
MsgBox "输入数字过大，请重新输入"
txtResult.Text = ""
End If
End Sub

7、不能输入特殊字符(和第二、四个一样的性质）

Select Case keyAscii
Case -20319 To -3652
Case 48 To 57
Case 65 To 98
Case 97 To 122
Case 8
Case Else
keyAscii = 0
End Select

8、限定特殊字符、数字、空格，只能输入汉字和字母

Private Sub txtCourseName_KeyPress(KeyAscii As Integer)If KeyAscii < 0 or KeyAscii = 8 or KeyAscii = 13 ThenElse IfNot chr(KeyAscii) Like "[a-ZA-Z]" ThenkeyAscii = 0End if
End sub

二、下拉框限定

Combox限定不能键盘输入，只能选择下拉框里面的内容

Private Sub comboGrade_KeyPress(KeyAscii As Integer)KeyAscii = 0        '限制键盘不能输入内容
End Sub

三、限定成绩

Private Sub txtResult_Change()If Val(txtResult.Text) > 120 Or Val(txtResult.Text) < 0 ThenMsgBox "请输入成绩在0~120范围内!", 0 + 48txtResult.Text = ""End If
End Sub

四、限定不能复制粘贴

在第二次输入密码时，不能复制粘贴

Private Sub txtPassword1_KeyDown(KeyCide As Integer, Shift As Integer)If (KeyCode = 86 Or KeyCode = 67 Or KeyCode = 88) And Shift = 2 ThenMsgBox "不能复制粘贴", 0 + 48txtPassword1.Text = ""End If
End Sub

提示密码剩余次数

If miCout = 1 ThenMsgBox "您还有两次机会", 0 + 48,"提示"
Exit sub
End IfIf miCout = 2 ThenMsgBox "您还有一次机会", 0 + 48,"提示"
Exit sub
End IfIf miCout = 3 ThenMsgBox "即将关闭程序", 0 + 48,"提示"Me.Hide
Exit sub
End If

学生系统优化——字符限定相关推荐

学生系统优化（三）- -细节优化
之前让师傅点了一下学生系统,我的内心是忐忑的.学生系统已经进行了快一个月了,而且中间还经厉了一个寒假,但是感觉自己已经改不出来什么东西了,也是有点不想改吧,所以就一直拖到了现在.后来让师傅点完之后感觉 ...
学生系统优化（一）- - 字符限定
一.文本框限定: 1.限定输入的字符长度 a.文本框有个MaxLength属性,输入自己要限定的数字即可,但是这样不太理想, 因为这样输入后会让人产生疑惑. b.利用代码来限定,当超过限定长度时,弹出 ...
学生系统优化（二）- - 窗体代码
1.修改密码窗体: a.首先就是窗体上方显示登录人的姓名,这样修改密码的时候可以加深自己的印象: Label1.Caption = "当前用户为:" & frmLogin. ...
学生成绩档案管理系统（准备+结果）
文章目录一.实验任务及其实现功能需求分析二.开发工具及编程语言 1.开发工具编程语言三.算法分析 1.双向冒泡排序 2.希尔排序 3.快速排序 4.堆排序参考资料四.源代码 Pojo D ...
需求规格说明书-学生信息管理系统
1.开发系统的目的和目标 1.1系统的目的·目标列表利用计算机程序,减轻管理人员的压力和提升工作效率. 实现不同角色的用户需求,角色之间灵活多变. 进行学生各种信息的日常管理,实现学生信息的系统化. ...
Regex—匹配特定字符后的一个字符
一需求匹配user_id = ?后面的数字二实现 *对应代码如下: <?php $tableShardKey = 'user_id'; $str = "user_id = ?2 ...
2020年Java最新面试题整理题库完整版
JAVA面试题一.JavaSE编程基础 JDK,JRE,JVM三者关系 a. .jdk是JAVA程序开发时用的开发工具包,其内部也有JRE运行环境JRE. b. .JRE是JAVA程序运行时需要的运 ...
每日加瓦，终成栋房5-正则表达式
正则表达式: 1.定义了字符串的形式 2.作用:搜索.编辑.处理文本 3.使用的类 Parrern类:正则表达式的编译表示,没有公共构造方法,调用公共静态编译方式返回一个Pattern对象,接受正则表 ...
java面试题-最新整理
温馨提示: 全选黏贴到word里观看效果更佳! JAVA面试题 Java面试题- 1 一.JavaSE编程基础- 1 二.JDBC技术- 5 三.Mysql数据库技术- 7 四.JavaScript语 ...
【语音】论文阅读笔记 Non-autoregressive Error Correction for CTC-based ASR with Phone-conditioned Masked LM
目录摘要介绍预备和相关工作 1. CTC-based ASR 2. Masked LM 3. ASR error correction 提出的方法 1. Phone-conditioned Ma ...