VFP自定義子類實(shí)現(xiàn)中英文輸入切換

字號(hào):

在用VFP5.0開(kāi)發(fā)應(yīng)用系統(tǒng)時(shí),結(jié)合數(shù)據(jù)進(jìn)行處理,應(yīng)用最多的是文本框?qū)ο螅貏e是進(jìn)行中英文的輸入時(shí),來(lái)回切換非常繁瑣,所以我們可以借助自定義子類,來(lái)實(shí)現(xiàn)中英文輸入的自動(dòng)切換。其步驟如下:
    通過(guò)系統(tǒng)菜單欄“文件/新建/類…”啟動(dòng)“新類”對(duì)話框,填入類名:gsTextBox,并設(shè)置父類為:TextBox。按“確定”鍵進(jìn)入類設(shè)計(jì)器畫(huà)面。新增一個(gè)屬性,來(lái)作為對(duì)象是否啟動(dòng)中文輸入法的控制碼。
    通過(guò)系統(tǒng)菜單欄“類/新建屬性…”啟動(dòng)“新建屬性”對(duì)話框,按上表設(shè)置屬性,其中可視性設(shè)為:公共。最后設(shè)置GotFocus與LostFocus事件過(guò)程:
    Gotfocus Event事件過(guò)程:
    If this是否中文
     =imestatus(1)
    else
     =imestatus(0)
    endif
    Lostfocus Event事件過(guò)程:
     =imestatus(0)
     到此,類已經(jīng)定義完成,以后只要在設(shè)計(jì)表單時(shí),通過(guò)表單控件“工具欄/查看類/添加…”把自定義類加入,并且設(shè)置“是否中文”屬性即可實(shí)現(xiàn)中英文輸入的自動(dòng)切換。