TextBox中接受某些特定字符，例如/@#$/，简单的写法

2019-11-18 17:33:26

字体：大中小

来源：转载

供稿：网友

方法有好几种,以下列举二种：

-valign="top"width="48">方法1:->-width="703">可以使用IF或SelectCase一个个判断,但如果不接受的字符多时,较麻烦!->-valign="top"width="48">方法2:->-width="703">将要剔除的字符统统放在一个字串中，只要一个IF判断即可!!如下：

PRivateSubText1_KeyPress(KeyAsciiAsInteger)
DimsTemplateAsString
sTemplate="!@#$^&*()_ -="'用来存放不接受的字符
IfInStr(1,sTemplate,Chr(KeyAscii))>0Then
KeyAscii=0
EndIf
EndSub->

上一篇：让鼠标进入TextBox时自动选定TextBox中之整串文字

下一篇：在TextBox中限制只能输入数字

发表评论

共有条评论