易语言如何自动切换到英文输入法

老衲法号黄牛 · 发表于 2016-8-11 21:34:19

比如，我的一个子程序需要在英文输入状态下执行，怎么换系统输入法切换到英文。大牛帮忙看看

39667285 · 发表于 2016-8-11 21:41:35

为什么要换到英文下输入，换到英文下软件你不是也软件那24个字母处几个符号吗？用模似健按下，对应上键码，就可以输入你想要的了

一瓶矿泉水 · 发表于 2016-8-11 21:44:09

.版本 2
.支持库 spec

.子程序内部调用_输入法控制类_获取系统所有输入法
.局部变量 curkeylayout, 整数型
.局部变量 NoOfKBDLayout, 整数型
.局部变量 i, 整数型
.局部变量 RetCount, 整数型
.局部变量 Buff, 文本型
.局部变量 BuffLen, 整数型
.局部变量 RetStr, 文本型

Buff ＝取空白文本 (255)
curkeylayout ＝ GetKeyboardLayout (0)
NoOfKBDLayout ＝取所有键盘布局_ (25, 输入法句柄 [1])
.计次循环首 (NoOfKBDLayout, i)
.如果 (是否为输入法_ (输入法句柄 [i]) ＝ 1)
      BuffLen ＝ 255
      RetCount ＝ ImmGetDescription (输入法句柄 [i], Buff, BuffLen)
      调试输出 (Buff)
      RetStr ＝取文本左边 (Buff, RetCount)
      .判断开始 (寻找文本 (RetStr, “搜狗拼音”, , 假) ≠ -1)
         搜狗输入法句柄＝输入法句柄 [i]
      .默认
         .如果真 (Buff ＝取空白文本 (255))
            系统英文句柄＝输入法句柄 [i]
         .如果真结束

      .判断结束

.否则

      .如果真 (系统英文句柄＝ 0)
         系统英文句柄＝输入法句柄 [i]
      .如果真结束

.如果结束
调试输出 (输入法句柄 [i])
.计次循环尾 ()

.版本 2

.子程序激活指定窗口输入法, 逻辑型, 公开, 非模拟按键,走窗口消息
.参数窗口句柄, 整数型
.参数指定输入法句柄, 整数型
.局部变量 kln, 文本型
.局部变量 res, 整数型
.局部变量 curkeylayout, 整数型

.判断开始 (API_投递消息 (窗口句柄, 80, 1, 指定输入法句柄) ＝ 0)  ' 投递消息使窗口激活指定输入法
返回 (假)
.默认
返回 (真)