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

TextBox中接受某些特定字符,例如\@#$\,简单的…

2018-06-17 17:13:30来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

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

-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->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:在VB应用程序中使用INI文件的一点体会

下一篇:在VisualBasic6.0中实现自动播放VCD