主题：在TEXT中输入限制问题?
hw2007name
[专家分：4790] 发布于 2009-03-12 20:40:00
在TEXT框中进行输入字符时,如何让TEXT不接受指定字符,如:
我想在TEXT中进行输入时,当在键盘上按下A()^&%%$%等这些字符时,TEXT框自动就屏蔽它们,不在TEXT中显示,TEXT的VALUE值也不会有这些字符.还请各位老师指教!
回复列表 （共4个回复）
沙发
hzc2 [专家分：390] 发布于 2009-03-12 23:10:00
在text框的lostfocus中：thisform.text1.value=chrtranc(allt(thisform.text1.value),"A()^&%%$%","")
板凳
hw2007name [专家分：4790] 发布于 2009-03-13 09:36:00
谢谢hzc2,我现在就是用这种方法,但总觉得还是不理想!有没有可以在键盘输入时就限制输入这些字符?
3 楼
moz [专家分：37620] 发布于 2009-03-13 09:58:00
.InteractiveChange
this.value=chrtran(this.value,"A()^&%%$%","")
4 楼
hw2007name [专家分：4790] 发布于 2009-03-13 13:20:00
我在VFP帮助中找到答案:
在TEXT的KeyPress事件中加入如下代码:
LOCAL cNoListStr
NODEFAULT
cNoListStr="*()''&^%$#@!~[]{}=+<>?/\|"+'".,:;'
IF CHR(nKeyCode)$cNoListStr
RETURN .F.
ENDIF
DODEFAULT()
我来回复
您所在位置：