冠珠瓷砖8oox8o0最低价:在vb中怎么屏蔽用户输入的全角特殊字符
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/03 15:43:00
,如,‘;“:。等
来个简单一点的
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码转换为字符.