首页 >> 读书频道 >> 电脑 >> 例1:取得目前所有的输入法
 
· 自行绘图的存档/非Bit
· 在vb中叫出控制台Ite
· 使用快捷键所隐含的问题
· 透过Word97印表格
· 动态改变Data-awa
· 取得.Bas 中Func
· VB编程技巧几例
· 如何取得Double值各
· 在VB中使用枚举变量
· 将阿拉伯数字转成中文字的
· 字串中文的问题
· VB5.0与Window
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

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


查看有无更新版本

关键字:VB 2006-9-18

 

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

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

[ 1 ]
例1:取得目前所有的输入法 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑