在VFP 5.0中实现中英文自动切换
通过系统菜单栏“文件/新建/类…”启动“新类”对话框,填入类名:gsTextBox,并设置父类为:TextBox。按“确定”键进入类设计器画面。新增一个属性,来作为对象是否启动中文输入法的控制码。新属性设制意义说明如下:
^401304a^
通过系统菜单栏“类/新建属性…”启动“新建属性”对话框,按上表设置属性,其中可视性设为:公共。最后设置GotFocus与LostFocus事件过程:
Gotfocus Event事件过程:
If this.是否中文
=imestatus(1)
else
=imestatus(0)
endif
Lostfocus Event事件过程:
=imestatus(0)
到此,类已经定义完成,以后只要在设计表单时,通过表单控件“工具栏/查看类/添加…”把自定义类加入,并且设置“是否中文”属性即可实现中英文输入的自动切换。
如果大家有什么问题或见解可与我联系。
E-mail:gs1@163.net