Pb中利用热键将所需的文本输入到当前的输入框中技巧.doc

Pb中利用热键将所需的文本输入到当前程序的输入框中 用户对象 forward global type uo_ime from nonvisualobject end type end forward shared variables //简体中文 constant long IME_CHOTKEY_IME_NONIME_TOGGLE = 16 //切换中英文输入法 constant long IME_CHOTKEY_SHAPE_TOGGLE = 17 //切换半角和全角 constant long IME_CHOTKEY_SYMBOL_TOGGLE = 18 //切换中文标点和英文标点 constant long IME_CHOTKEY_LAST = 47 end variables global type uo_ime from nonvisualobject autoinstantiate end type type prototypes function long ImmSimulateHotKey(long h,long hkey) library IMM32.dll function long GetKeyboardLayout(long h) library user32.dll function boolean ImmIsIME(long h) library IMM32.dll end prototypes type variables end variables forward prototypes public subroutine of_to_chinese (long h) public subroutine of_to_english (long h) public function boolean of_is_chinese (long h) end prototypes public subroutine of_to_chinese (long h);long lcurrent_ime lcurrent_ime = getkeyboardlayout(0) if not immisime(lcurrent_ime) then ImmSimulateHotKey(h, IME_CHOTKEY_IME_NONIME_TOGGLE)// hkey) end if end subroutine public subroutine of_to_english (long h);long lcurrent_ime lcurrent_ime = getkeyboardlayout(0) if immisime(lcurrent_ime) then ImmSimulateHotKey(h, IME_CHOTKEY_IME_NONIME_TOGGLE) end if end subroutine public function boolean of_is_chinese (long h);long lcurrent_ime lcurrent_ime = getkeyboardlayout(0) return immisime(lcurrent_ime) end function on uo_ime.create call super::create TriggerEvent( this, constructor ) end on on uo_ime.destroy TriggerEvent( this, destructor ) call super::destroy end on event constructor;/************************************************** 中英文输入法切换对象： of_to_chinese( /*long h */) return (None) 功能：把句柄为h的窗口的输入法切换为中文 of_to_english( /*long h */) return (None) 功能：把句柄为h的窗口的输入法切换为英文 of_is_chinese( /*long h */) return boolean 功能：判断句柄为h的窗口的输入法是否为中文 New by njz Jysoft 2006-09-02 **************************************************/ end event 主窗体 forward global type w_main from window end type type