限制text文本的输入类型

1.联系电话必须为11位

If Len(txtTel.Text) <> 11 ThenMsgBox "电话位数不对，请输入正确的电话！", vbOKOnly + vbExclamation, "警告"txtTel.Text = ""txtTel.SetFocusExit SubEnd If

2.文本框只能输入数字

Private Sub txtSID_KeyPress(KeyAscii As Integer)If KeyAscii = 8 Then     'ascii码=8是退格   Asc(a)函数是将a转为ASCII码ElseIf       KeyAscii < Asc("0") Or KeyAscii > Asc("9") ThenKeyAscii = 0End If
end sub

不知道大家是否还记得asc函数，chr函数，val函数的区别，想要知道的可以去看我这篇博客呦点击这里。

3.限制特殊符号

法一：

Private Sub txt？_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

法二：

Private Sub Text1_KeyPress(KeyAscii As Integer) dim cTemp as string cTemp = "#$%^&*！@《》，。" '双引号里面输入想要禁止输入的字符 if instr(1,cTemp,chr(KeyAscii)) <> 0 then keyascii = 0
End Sub

但是这一个方法有一个缺陷就是，不能限制" ",如果你在里面输入” vb会默认这个语句结束了。 instr函数查找字符. CHR将Ascii码转换为字符.

3.只能输入汉字

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

不知道有没有小伙伴跟我一样好奇为什么汉字的ascii码范围是-20319-（-3652）这个范围内，我在网上查阅了一下资料，相对的说，我感觉这个链接里的东西较为全面，好奇的请点击这里。

4.判断是否输入数字

If Not IsNumeric(Trim(txtSID.Text)) ThenMsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"txtSID.SetFocusExit SubEnd if

isnumeric( )检测字符串是否只由数字组成，如果字符串中只包括数字，就返回Ture，否则返回False。

5.判断成绩是否正常

If txtResult > 100 Or txtResult < 0 ThenMsgBox "分数不正常，请重新输入！", vbOKOnly + vbExclamation, "警告"txtResult.Text = ""txtResult.SetFocusExit Sub
End If

6.判断出生日期是否大于入校日期

 If DTPickerBorn.Value > DTPickerRu.Value ThenMsgBox "入校时间大于出生日期！", vbOKOnly + vbExclamation, "警告"DTPickerBorn.SetFocus
end if

这里对日期使用的是DTpicker控件，不再是文本框，在之后我会发一篇有关此控件使用以及注意事项，请大家关注呦~，我也会修改此博客的。

小知识：

instr函数的引用：

instr( string1, string2, start_position,nth_appearance )

参数

● string1：源字符串，要在此字符串中查找。

●string2：要在string1中查找的字符串。

●start_position：代表string1 的哪个位置开始查找。此参数可选，如果省略默认为1. 字符串索引从1开始。如果此参数为正，从左到右开始检索，如果此参数为负，从右到左检索，返回要查找的字符串在源字符串中的开始索引。

●nth_appearance：代表要查找第几次出现的string2. 此参数可选，如果省略，默认为 1.如果为负数系统会报错。

需要注意的是：

1.位置索引号从1开始。
2. 如果String2在String1中没有找到，instr函数返回0

例如：SELECT instr('syranmo','s') FROM dual; -- 返回 1
　　 SELECT instr('syranmo','ra') FROM dual; -- 返回 3
　　 SELECT instr('syran mo','at',1,2) FROM dual; -- 返回 0

学生优化（一）------输入文本限制相关推荐

混合开发的坑(7) ---输入文本时，键盘遮挡
CSS绝对定位于底部,输入文本时,键盘遮挡问题. 浏览器正确 ios 正确 anroid 会遮挡只能通过js来解决转载于:https://www.cnblogs.com/huangqiao/ ...
NLP之TEA：基于SnowNLP实现自然语言处理之对输入文本进行情感分析(分词→词性标注→拼音简繁转换→情感分析→测试)
NLP之TEA:基于SnowNLP实现自然语言处理之对输入文本进行情感分析(分词→词性标注→拼音&简繁转换→情感分析→测试) 目录 NLP分词 NLP词性标注 NLP情感分析-TEA NLP常 ...
转换输入文本中的回车和空格
主要应用String类中的replaceAll()方法,将用户输入的空格和回车替换成HTML代码中的和&nbsp,该方法用于将字符串中的某个子字符串替换成指定的字符串: replaceAll ...
Flutter TextField 边框样式以及提示文本、Flutter输入文本TextField
题记 -- 执剑天涯,从你的点滴积累开始,所及之处,必精益求精. github? 你可能需要百度同步 CSDN 网易云课堂教程掘金知乎 Flutter系列文章头条同步本文章首发于微信公众号( ...
input标签中使输入文本向右偏移像素解决方案（亲测有效）
需求:在输入框中输入文本达到这样的效果: 之前是这样的效果: 尝试过很多博主的方法,大概就是以下几种: letter-spacing:10px; text-indent:10px <input ...
如何使用jQuery设置输入文本的值
本文翻译自:How to set value of input text using jQuery I have an input text which is this: 我有一个输入文本是这样的: ...
android 文本输入区域,android – 键盘模糊输入文本区域
我有一个显示在 http://ionicframework.com/docs/api/service/$ionicPopup/内的表单.问题是当光标放在最终输入(文本区域)内时,键盘显示但输入不会滚动 ...
统计3个班成绩情况，每个班有5名同学求出各个班的平均分和所有班级的平均分（学生成绩键盘输入）同级生哪个班及格人数，每个班5名同学
import java.util.Scanner;//统计3个班成绩情况,每个班有5名同学//求出各个班的平均分和所有班级的平均分(学生成绩键盘输入)//同级生哪个班及格人数,每个班5名同学 publ ...
输入文本的html,输入文本的步骤主要包括
文字处理的基本步骤包括输入编辑排版和输出吗在网页中输入文本有几个方法文本框文本域 JS代码 prompt("文本","默认值") 在文本输入的过程中有几种 ...
Android Studio基础输入文本框EditText
Android Studio基础输入文本框EditText 接续上一节<Android Studio 基础按钮使用> 1.提示文本框.输入文本框,在布局xml编写 <EditText ...

学生优化（一）------输入文本限制