VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何用api检查任务栏中有多少种输入法
发表评论(0)作者:, 平台:, 阅读:8984, 日期:2000-05-18
非常感谢 小马哥(maxz@263.net) 提供资料


如何用api检查任务栏中有多少种输入法

'例1:取得目前所有的输入法

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