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 Sub Form_Load() Dim NoOfKBDLayout As Long, i As Long, j As Long Dim hKB(24) As Long, BuffLen As Long Dim Buff As String Dim RetStr As String Dim RetCount As Long
Buff = String(255, 0) hCurKBDLayout = GetKeyboardLayout(0) '取得目前keyboard layout NoOfKBDLayout = GetKeyboardLayoutList(25, hKB(0)) '取得所有输入法的hkeys 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)" '假设我们的win95非Ime 者只有English Combo1.AddItem RetStr '若有其他者，要去取得keyboardLayout End If ' Name再去Registry中找其对应的名称 If hKB(i - 1) = hCurKBDLayout Then Combo1.Text = RetStr End If Next ActivateKeyboardLayout hCurKBDLayout, 0 '回复原来输入法 End Sub End Function
