在2000下如何实现中英文输入法？？（急哦0

cool_liubo 2004-01-05 10:04:22

http://expert.csdn.net/Expert/topic/2241/2241530.xml?temp=.9849054
这是论坛曾经有人提出的问题和解答，不过好象在2000下还是不起作用啊！那位大虾能帮个忙呵！

...全文

68 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

cool_liubo 2004-01-06

打赏
举报

MaJia2004() 你发的程序我看了，我搞好了，谢谢！
iSunny001() 谢谢呵

cool_liubo 2004-01-05

打赏
举报

我改成16了，还是不行啊

balloonman2002 2004-01-05

打赏
举报

112要改成16才行

cool_liubo 2004-01-05

打赏
举报

谁能帮帮我？谢谢了

cool_liubo 2004-01-05

打赏
举报

好使的

mittee 2004-01-05

打赏
举报

写的代码在98下好使不？

cool_liubo 2004-01-05

打赏
举报

我的电脑在c:\winnt\system32里存在imm32.dll文件啊

cool_liubo 2004-01-05

打赏
举报

那应该把这个dll，从98下考过来，放在2000的那里呢？

hzhxxx 2004-01-05

打赏
举报

你的那个 imm32.dll,在 win 2000 下面没有了啊

iSunny001 2004-01-05

打赏
举报

//输入法切换说明函数
Function unsignedlong ActivateKeyboardLayout(unsignedlong HKL, string flags) library "user32.dll"
FUNCTION ulong GetKeyboardLayoutName(ref string pwszKLID) LIBRARY "user32.dll" ALIAS FOR "GetKeyboardLayoutNameA"
FUNCTION ulong GetKeyboardLayout(ulong dwLayout) LIBRARY "user32.dll"

f_SwitchInput(as_cn_en)
//在数据窗口中的itmefocuschanged中应用此函数：
long ll_lay

ll_lay = GetKeyboardLayout(layout_handle)
If ll_lay <> 134481924 Then
lay_old = ll_lay
End If

If as_cn_en = "CN" Then
//输入法设为中文
If lay_old <> 0 And lay_old <> 134481924 Then
ActivateKeyboardLayout(lay_old, "KLF_SETFORPROCESS")
Else
ActivateKeyboardLayout(layout_handle, "KLF_SETFORPROCESS")
End If
Else
//输入法设为英文
ActivateKeyboardLayout(134481924, "KLF_SETFORPROCESS")
End If

//在注册表里
//HKEY_CURRENT_USER\Keyboard Layout\Preload
//有输入法的值
//智能ABC FFFFFFFFE0040804 -536606716
//微软拼音 FFFFFFFFE00E0804 -535951356
//王码五笔 FFFFFFFFE0100804 -53595135

MaJia2004 2004-01-05