赢话费的斗地主哪个好:在vb中怎么屏蔽用户输入的全角特殊字符
来源:百度文库 编辑:中科新闻网 时间:2024/05/07 13:47:12
,如,‘;“:。等
来个简单一点的
Private Sub Text1_KeyPress(KeyAscii As Integer)
dim cTemp as string
cTemp = "#$%^&*" '禁止输入的字符
if instr(1,cTemp,chr(KeyAscii)) <> 0 then keyascii = 0
End Sub
'说明一下: instr,查找字符. CHR将Ascii码转换为字符.