在VB环境下输入法自动切换

'设置输入法自动切换 Public ImeNo As Integer, ImeName As String Public Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _ lpList As Long) As Long Public Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _ (ByVal pwszKLID As String) 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 ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _ flags As Long) As Long ... ...