value 的设置值包括：
设置 描述
0 无（缺省设置）。该值表明"无 IME 控制"。当 IMEMode 属性被设置为 0 时，可以使用
IMEStatus 函数确定当前的 IME 状态。
1 IME 打开。该数值表明 IME 已经被打开，可以输入汉字或日文字符。该设置仅对日文、简体汉
字和繁体汉字 IME 有效。
2 IME 关闭。该模式表明 IME 被关闭，因此对象将处于英文输入模式。该设置仅对日文、简体汉
字和繁体汉字 IME 有效。
3 IME 被禁止。该模式类似于 IMEMode = 2，区别仅在于数值 2 没有禁止 IME。在本设置下，用户
不能够通过键盘将 IME 打开，而且 IME 浮动窗口被隐藏。该设置仅对日文 IME 有效。
4 日文平假名双字节字符（DBC）。该设置仅对日文 IME 有效。
5 日文片假名 DBC. 这些设置仅对日文 IME 有效。
6 日文片假名单字节字符 (SBC)。这些设置仅对日文 IME 有效。
7 字母数字 DBC。该些设置仅对日文 IME 有效。
8 字母数字 SBC。该些设置仅对日文 IME 有效。
9 Hangeul DBC。该些设置仅对朝鲜语 IME 有效。
10 Hangeul SBC。该些设置仅对朝鲜语 IME 有效。
下面还有一篇相关内容的文章
资料来源：碧波山庄Visual Basic http://ctsvb.126.com
用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 String, ByVal uBufLen As Long) As Long
Private Declare Function ImmIsIME Lib ″imm32.dll″ (ByVal hkl As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib ″user32″ _
(ByVal hkl As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib ″user32″ (ByVal dwLayout As Long)As Long
Private Declare Function GetKeyboardLayoutName Lib ″user32″ Alias _
″GetKeyboardLayoutNameA″ (ByVal pwszKLID As String) As Long
Private Declare Function LoadKeyboardLayout Lib ″user32″ Alias ″LoadKeyboardLayoutA″ _
(ByVal pwszKLID As String, ByVal flags As Long) As Long
Const KLF_REORDER = ＆H8
Private NoOfKBDLayout As Long, i As Long, j As Long
Private hKB(24) As Long, BuffLen As Long
Private Buff As String
Private RetStr As String
Private RetCount As Long
Private kln As String
Private Sub Command1_Click()
If Combo1.ListIndex = －1 Then′如果用户尚未选择输入法，显示出错信息
MsgBox ″请先选择一个输入法″
Exit Sub
End If
′改变输入法顺序
kln = String(8, 0)
ActivateKeyboardLayout hKB(Combo1.ListIndex), 0
res = GetKeyboardLayoutName(kln)
res = LoadKeyboardLayout(kln, KLF_REORDER)
ActivateKeyboardLayout hCurKBDLayout, 0
End Sub
Private Sub Form_Load()
Buff = String(255, 0)
hCurKBDLayout = GetKeyboardLayout(0) ′取得目前的输入法
NoOfKBDLayout = GetKeyboardLayoutList(25, hKB(0)) ′取得所有输入法
′ReDim layoutlist(NoOfKBDLayout) As String
For i = 1 To NoOfKBDLayout
If ImmIsIME(hKB(i － 1)) = 1 Then ′中文输入法
BuffLen = 255
RetCount = ImmGetDescription(hKB(i － 1), Buff, BuffLen)
RetStr = Left(Buff, RetCount)
Combo1.AddItem RetStr
Else
RetStr = ″English (American)″ ′英文输入法
Combo1.AddItem RetStr
End If
Next
ActivateKeyboardLayout hCurKBDLayout, 0 ′恢复原来的输入法
End Sub
运行后，在combobox中选择目标输入法，按下command即可。
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
