用VB读取和控制Windows的中文输入法

 

在Windows中我们可以用“Ctrl＋Shift”键来调入或切换中文输入法，但是这样做每次都是使位于输入法列表顶端的那个输入法首先被调用。通常我们都要连续按好几次“Ctrl＋Shift”才能将习惯的输入法调出。我编制了一段小程序，通过它可以把任意一个输入法放在输入法列表的顶端。
　　它的原理是：使用LoadKeyboardLayout函数可以改变输入法的顺序，只要在第一个参数中传递目标输入法的KeyboardlayoutName，第二个参数用KLF_REORDER就可以了。
　　例如，aa = LoadKeyboardLayout(″00000409″, KLF_REORDER) 使英文变成第一。那怎样获得KeyboardlayoutName呢？因为使用GetKeyboardLayoutname可以返回当前输入法的KeyboardlayoutName，所以我们可以先用GetKeyboardLayoutList 函数来取得所有输入法，再用activateKeyboardlayout()函数设置当前输入法，最后就可以得到它的KeyboardlayoutName了。具体步骤如下：
　　打开VB后选择标准的EXE文档，在Form1上添加一个Combobox和一个command控件，输入以下程序。
　　′以下的API函数用于输入法操作
　　Private Declare Function GetKeyboardLayoutList Lib ″user32″ _
　　(ByVal nBuff As Long, lpList As Long) As Long
　　Private Declare Function ImmGetDescription Lib ″imm32.dll″ _
　　Alias ″ImmGetDescriptionA″ (ByVal hkl As Long, _
　　ByVal lpsz As Strin