切换成英文输入法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 切换成英文输入法

共有1955人关注过本帖树形打印复制链接主题：切换成英文输入法

恒隆君

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：496 积分：4055 威望：0 精华：0 注册：2017/7/5 16:15:00

切换成英文输入法 发帖心情

Post By：2017/9/6 11:41:00 [只看该作者]

如果表《刀具领用》中 <刀具编号>列输入内容时，自动使用英文输入法

我现在在列属性里将中文输入设为 false.

在表事件 prepare edit 和 start edit中加入了以下代码

DataTables("领用记录").DataCols("刀具编号").ImeMode = BooleanEnum.False

均无法达成。

我使用扫描枪输入，但手动输入也是同样的。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/6 11:54:00 [只看该作者]

用代码切换

For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages
    output.show(lang.LayoutName)
    If lang.LayoutName Like "*搜狗拼音输入法*" Then
        Windows.Forms.InputLanguage.CurrentInputLanguage = lang

        msgbox("切换到搜狗输入法成功")
        Exit For
    End If
Next

[此贴子已经被作者于2017/9/6 11:54:27编辑过]

恒隆君

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：496 积分：4055 威望：0 精华：0 注册：2017/7/5 16:15:00

Post By：2017/9/6 13:14:00 [只看该作者]

没有效果

我们现在电脑里的输入法

有三种

搜狗拼音输入法搜狗五笔输入法英语

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/6 14:20:00 [只看该作者]

1、能否切换到搜狗？

2、把字符改成你对应的输入法名字，即可。

For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages
    msgbox(lang.LayoutName)
    If lang.LayoutName Like "*搜狗拼音输入法*" Then
        Windows.Forms.InputLanguage.CurrentInputLanguage = lang

        msgbox("切换到搜狗输入法成功")
        Exit For
    End If
Next