【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：sample2.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "API函数实现不同输入法的切换"
       ClientHeight    =   2685
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   3675
       LinkTopic       =   "Form1"
       ScaleHeight     =   2685
       ScaleWidth      =   3675
       StartUpPosition =   3  '窗口缺省
       Begin VB.ComboBox Combo1 
          Height          =   300
          Left            =   1080
          TabIndex        =   0
          Top             =   720
          Width           =   1935
       End
       Begin VB.Frame Frame1 
          Caption         =   "请选择输入法"
          Height          =   2175
          Left            =   120
          TabIndex        =   1
          Top             =   240
          Width           =   3375
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    
    Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _
            lpList As Long) As Long
    Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _
            (ByVal pwszKLID As String) As Long
    Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout 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 ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _
            flags As Long) As Long
            
    Const IME_CONFIG_GENERAL = 1
    Const KLF_REORDER = &H8
    Const KLF_ACTIVATE = &H1
    
    Dim la(1 To 16) As Long
    Dim ActIme As Long
    
    Private Sub Combo1_Click()
        ActIme = la(Combo1.ListIndex + 1)
      If Combo1.ListCount > 0 Then
            ActivateKeyboardLayout ActIme, 1
        End If
    End Sub
    
    Private Sub Form_Load()
        Dim astr As String * 256
        Dim bstr As String
        Dim X, hMem, i As Long
        
        X = GetKeyboardLayoutList(32, la(1))
        Combo1.Clear
        If X Then
            For i = 1 To X
                ImmGetDescription la(i), astr, 256
                If InStr(astr, Chr(0)) = 1 Then
                    bstr = ""
                Else
                    bstr = Left$(astr, InStr(astr, Chr(0)))
                End If
            
                If Trim(bstr) = "" Then
                    Combo1.AddItem "英语（美国）"
                Else
                    Combo1.AddItem bstr
                End If
            Next i
        End If
    End Sub