首页 百科知识 防止基类代码被执行

防止基类代码被执行

时间:2024-10-21 百科知识 版权反馈
【摘要】:但有时在事件和方法程序中希望防止发生基类的默认操作。例如,用户使用文本框接受口令时,希望键盘输入的内容在文本框内不显示,可以通过在方法程序代码中加入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所示。

img365

图10-20 结果效果图

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

我要反馈