【摘要】:但有时在事件和方法程序中希望防止发生基类的默认操作。例如,用户使用文本框接受口令时,希望键盘输入的内容在文本框内不显示,可以通过在方法程序代码中加入Nodefault关键字来实现。例如,设计一个表单,添加一个“文本框”对象,用来接收口令字。
10.5.7 防止基类代码被执行
VFP的对象继承父类或基类的所有属性、事件和方法程序。但有时在事件和方法程序中希望防止发生基类的默认操作。例如,用户使用文本框接受口令时,希望键盘输入的内容在文本框内不显示,可以通过在方法程序代码中加入Nodefault关键字来实现。
例如,设计一个表单,添加一个“文本框”对象,用来接收口令字。要求在输入口令字时,文本框中不显示输入内容,而且每输入一个A~Z以内的字符,就显示一个“*”,A~Z之外的字符不接收,并把输入的内容存放到内存变量_MM中。
要实现以上功能,可按以下步骤操作:
(1)创建一个表单对象,并在表单上添加一个文本框对象。
(2)为表单的Activate 事件编写代码:
Public_mm
_Mm=" "
(3)为文本框的Key Press事件添加代码:
Parameters n KeyCode,nShift AltCrd
Nodefault
IF Between(n KeyCode,65,90)
This.Value=Alltrim(This.Value)
_MM=_MM+Chr(n KeyCode)
Endif
(4)为文本框的Destrory事件添加代码:clear events
表单运行结果如图10-20所示。
图10-20 结果效果图
免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。