[求助]输入法的自动切换为何不灵？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]输入法的自动切换为何不灵？

共有2611人关注过本帖树形打印复制链接主题：[求助]输入法的自动切换为何不灵？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/12 15:44:00 [显示全部帖子]

测试了一下，没有好的方法

If e.Col.Name = "第三列" Then
    Dim myCurrentLanguage = Windows.Forms.InputLanguage.CurrentInputLanguage
    'msgbox(myCurrentLanguage.LayoutName)
    If myCurrentLanguage.LayoutName Like "*美*" Then
        Sendkeys.SendWait("^ ")
    End If
End If

https://msdn.microsoft.com/zh-cn/library/System.Windows.Forms.InputLanguage%28v=vs.100%29.aspx

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/12 15:49: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
        Exit For
    End If
Next

msgbox("切换到搜狗输入法成功")

下一主题 >> << 上一主题

主题：[求助]输入法的自动切换为何不灵？