用VB在程序中添加切换中文输入法的功能

 思路:
        先用GetKeyboardLayoutList 函数来取得所有输入法,然后逐个用ImmIsIME判断是否是中文输入法,如果是的话在用ImmGetDescription得到输入法的名称,最后选定你需要的输入法用ActivateKeyboardLayout激活它.  
 源码: 
        Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal flags As Long) As Long
        Public Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, lpList As Long) As Long
        Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
        Public Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal hkl As Long,
                                                             _ByVal lpsz As String, ByVal uBufLen As Long) As Long
       Public Declare Function ImmIsIME Lib "imm32.dll" (ByVal hkl As Long) As Long
       Public hCurKBDLayout As Long
       Public Sub loadsrfz()
                 Dim buff As String
                 buff = String(255, 0)
                 Dim NoOfKBDLayout As Long
                 Dim BuffLen As Long
                 Dim retstr As String
                
                 hCurKBDLayout = GetKeyboardLayout(0)′取得目前的输入法
                 NoOfKBDLayout = GetKeyboardLayoutList(25, hkb(0))
                 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)
                     If Left(retstr, Len("智能ABC")) = "智能ABC" Then
                      ActivateKeyboardLayout hkb(I - 1), 0
                      Exit Sub
                     End If
                   End If
                 Next
    End Sub