学生系统优化（一）-

一、文本框限定：

1.限定输入的字符长度

a.文本框有个MaxLength属性，输入自己要限定的数字即可，但是这样不太理想，因为这样输入后会让人产生疑惑。

b.利用代码来限定，当超过限定长度时，弹出警告对话框。

Private Sub txtUserName_Change()If Len(Trim(txtUserName)) > 8 ThenMsgBox "姓名不能超过8个字符，请重新输入！", vbOKOnly + vbExclamation, "警告"txtUserName = ""End If
End Sub

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

2.限定输入的字符类型:

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

3.限定特殊字符:

Private Sub txtUserName_Change()If Len(Trim(txtUserName)) > 8 ThenMsgBox "姓名不能超过8个字符，请重新输入！", vbOKOnly + vbExclamation, "警告"txtUserName = ""End If
End Sub

这里用到的是IIf函数：根据表达式的值，来返回两部分中的其中一个。

IIf(expr,truepart,falsepart)

这3个参数都是必要参数，

expr：用来判断真伪的表达式

truepart：如果expr为true 则返回这部分的值或表达式

falsepart：如果expr为false 则返回这部分的值或表达式

4.限定特定字符

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

二、下拉框限定：

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

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

三、限定不能复制粘贴：

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

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

四、限定成绩：

个人的成绩不可能小于0，也不能大于某个数（假设为150），否则就是不合理的：

Private Sub txtResult_Change()If Val(txtResult.Text) > 150 Or Val(txtResult.Text) < 0 ThenMsgBox "请输入成绩在0-150范围内！", vbOKOnly = vbExclamation, "提示"txtResult.Text = ""End If
End Sub

学生系统优化（一）- - 字符限定相关推荐

学生系统优化（三）- -细节优化
之前让师傅点了一下学生系统,我的内心是忐忑的.学生系统已经进行了快一个月了,而且中间还经厉了一个寒假,但是感觉自己已经改不出来什么东西了,也是有点不想改吧,所以就一直拖到了现在.后来让师傅点完之后感觉 ...
学生系统优化（二）- - 窗体代码
1.修改密码窗体: a.首先就是窗体上方显示登录人的姓名,这样修改密码的时候可以加深自己的印象: Label1.Caption = "当前用户为:" & frmLogin. ...
高级软件工程团队结对作业（学生部门智能匹配）
部门与学生的智能匹配的程序结对成员: 170320053 林静 170327109 张梨贤 1.Github链接 https://github.com/zlxzlxzlx/StudentDept 2 ...
（十）学生课程表查询
创建学生课程表(多对多),两张表,一个学生可以上多个课程,一个课程包含多个学生. 使用列限定符来标识课程号以及学生id. 在关系数据库中和在hbase中的表设计使用filter查询: 1.根据学号s ...
Java——字符缓冲流练习之集合到文件、文件到集合、点名器
Java--字符缓冲流练习之集合到文件.文件到集合.点名器一.集合到文件(集合中的数据是字符串) 二.集合到文件(集合中的数据是学生对象) 三.集合到文件(数据排序) 四.文件到集合(文件中的数据是 ...
c语言狗脸字符画,小学一年级语文《十二生肖》教学教案
<十二生肖>以故事的形式讲述了用浪漫.幻想创造的<十二生肖>传说,使学生初步体会传说故事中反映出的民俗文化和好恶感情.下面就是小编给大家带来的小学一年级语文<十二生肖&g ...
Regex—匹配特定字符后的一个字符
一需求匹配user_id = ?后面的数字二实现 *对应代码如下: <?php $tableShardKey = 'user_id'; $str = "user_id = ?2 ...
Web前端面试题整合，持续更新【可以收藏】
饭后闲来无事,把这几年带学生用的一些面试题整合一下,供上!拿走,不客气!应付一般公司的二面基本上是够用了.祝你早日拿到心仪的offer. css相关 1. 万能居中 1.margin: 0 auto; ...
每日加瓦，终成栋房5-正则表达式
正则表达式: 1.定义了字符串的形式 2.作用:搜索.编辑.处理文本 3.使用的类 Parrern类:正则表达式的编译表示,没有公共构造方法,调用公共静态编译方式返回一个Pattern对象,接受正则表 ...

学生系统优化（一）- - 字符限定

学生系统优化（一）- - 字符限定相关推荐

最新文章

热门文章