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

例3:change Ctrl-Shift 出现输入法的顺序


查看有无更新版本

关键字:VB 2006-9-18

 

loadKeyboardLayout()可以改变order,只要第一个叁数传
    您要使之变成Top的KeyboardlayoutName,第二个叁数传KLF_REORDER
    便可,例如底下的例子便是

    aa = LoadKeyboardLayout("e0060404", KLF_REORDER) '使大易 变top
    aa = LoadKeyboardLayout("00000409", KLF_REORDER) '使英文变top
    aa = LoadKeyboardLayout("e0010404", KLF_REORDER) '使注音变top
    如此,使顺序变成

             注音
             英文
             大易


       而如何得知每个输入法的keyboardlayName呢? 则使用
       GetKeyboardLayoutname()它会传回Current KeyBoardLayoutName
       配合GetKeyboardLayoutList 取得所有install的KeyBoard Handle
       再用activateKeyboardlayout()来设定目前的keyboardLayout如下:


Private Declare Function GetKeyboardLayoutList Lib "user32" Alias _
   "GetKeyboardLayoutList" (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 ActivateKeyboardLayout Lib "user32" Alias _
   "ActivateKeyboardLayout" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" _
   (ByVal pwszKLID As String, ByVal flags As Long) As Long
Const KLF_REORDER = &H8

Private Form_Load()
Dim hkb5(24) as Long, i as Long
Dim kln As String
Dim BuffLen As Long
Dim Buff As String
Dim RetStr As String
Dim RetCount As Long

Buff = String(255, 0)
BuffLen = 255

kln = String(8, 0)
LayOutNO = GetKeyboardLayoutList(25, hkb5(0))
For i = 0 To LayOutNO - 1
   ActivateKeyboardLayout hkb5(i), 0
   res = GetKeyboardLayoutName(kln)
   RetCount = ImmGetDescription(hKB5(i - 1), Buff, BuffLen)
   RetStr = Left(Buff, RetCount)
   Debug.Print RetStr, kln   '列印各种输入法,及其输入法名称代号
Next i
End Sub

例3:change Ctrl-Shift 出现输入法的顺序

[ 1 ]
例3:change Ctrl-Shift 出现输入法的顺序 num

打印本页 关闭

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