原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Pb中利用热键将所需的文本输入到当前程序的输入框中
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 st_2 from statictext within w_main
end type
文档评论（0）