禁止用户在某文本框内输入特殊字符

roych

我一般会在提交时再统一检测，不符合的再提示。
另外，如果不嫌复杂，用正则表达式效率会更高一些。
这个大概就是person童鞋吧？

roych

Charline 发表于 2015-11-24 15:10
正是是洒家！

正则表达式是啥？望阁下不吝赐教！

试试这个：
引用Microsoft VBScript Regular Expressions 5.5

1. Function GetReg(ByVal strSource As String) As Boolean
   
2.     Dim reg As New RegExp
   
3.     Dim strPattern As String
   
4.     strPattern = "[`~\.&~#\|\^@￡\$%\*!/:;?><μ°§¨¤,""]"
   
5.     reg.Pattern = strPattern
   
6.     GetReg = reg.test(strSource)
   
7. End Function

复制代码

值得注意的是，部分属于正则表达式的特殊字符，需要使用反斜杠【\】进行转义。例如：匹配点号【.】，应使用【\.】
引用方法：在button的click事件里输入：
if GetReg(me.text0) then
msgbox "您输入了特殊字符，请重新输入"
me.text0=""
me.text0.setfocus
end if