龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

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

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
方法有好几种,以下列举二种:

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

精彩图集

赞助商链接