>请问：thischinese 是一个什么意思？<

[heavenmusic]

实现中英文自动切换
　　在用VFP6.0开发查询系统时，文本框对象和组合框对象应用得较多，在文本框中进行中英文的输入时，来回切换非常烦琐，所以笔者借助自定义子类，来实现中英文输入的自动切换。具体实现的步骤如下：

　　1.点击VFP6系统选单栏“文件→新建→类”，启动“新类”对话框，填入类名为gsTextBox，并设置父类为TextBox，在“存储于”栏处输入存储的位置和名称，按“确定”键进入类设计器画面。

　　2.新增一个属性，来作为对象是否启动中文输入法的控制码。通过系统选单栏“类→新建属性...”，启动“新建属性”对话框，设置一些属性，其中可视性设为public。

　　3.最后设置GotFocus与LostFocus事件过程。Gotfocus Event事件过程如下：

　　If thischinese 　　&&&&中英文选择，thischinese为逻辑量

　　　　=imestatus(1)
　　　　else
　　　　=imestatus(0)
　　　　endif

　　　　Lostfocus Event事件过程如下：
　　　　=imestatus(0)

谁愿把这个程序补全一点？？？ 谢谢！！！ 学习！！！

[westbulls]

if asc(substr(allt(this.value),1,1))>128
...............
汉字的asc码大于128！

[yasur]

这是一个完整的类呀！为什么需要补全？

在应用程序中使用的时候

[1] 在表单等容器中直接可视化使用的时候，直接设置此textbox的thischinese属性即可决定是否采用输入法。
[2] 在代码行中使用的时候通过对象引用的方式来设置属性。

[heavenmusic]

thanks!!