网页功能: 加入收藏 设为首页 网站搜索  
用vb调用系统输入法
发表日期:2002-09-30作者:csdn[] 出处:  

'例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

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 用vb调用系统输入法
本类热点文章
  在VB中使用WMI获取系统硬件和软件有关信..
  将繁体中文字转化成简体中文
  获取CPU的ID
  在vb程序中如何获取剪贴板中所复制的文..
  更新桌面图片
  VB编程破解Windows屏幕保护密码
  让程序的鼠标支持滚轮
  用VB创建Windows快捷方式(无需DLL)
  用vb调用系统输入法
  用VB制作IE工具条自定义按钮
  修改显示器的刷新频率
  vb实现多线程
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00311