教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

   问：在数据窗口录入数据时，有的域要输英文、有的域要输中文，每次要手工切换，很麻烦，能不能在程序中自动控制切换中英文输入法？ 
答：可以用API函数实现：
声明API函数：
function boolean ImmSimulateHotKey (ULong hWnd, ULong dwHotKeyID) library "IMM32.dll" 
function ulong GetKeyboardLayout(ulong dwLayout) LIBRARY "user32.dll" 
function boolean ImmIsIME(uLong hklKeyboardLayout) library "IMM32.DLL" 
定义变量：
constant int IME_THotKey_IME_NonIME_Toggle=112 
ulong hklCurrent
ulong hnd 
切换到英文输入法：
hklCurrent=GetKeyboardLayout(0) 
if ImmIsIME(hklCurrent) then 
hnd=Handle(parent) 
ImmSimulateHotKey(hnd,IME_THotKey_IME_NonIME_Toggle) 
end if 
切换到中文输入法：
hklCurrent=GetKeyboardLayout(0) 
if not ImmIsIME(hklCurrent) then 
hnd=Handle(parent) 
ImmSimulateHotKey(hnd,IME_THotKey_IME_NonIME_Toggle)
end if 
可根据需要，触发两段不同的脚本以达到动态切换中英文输入法的目的。